[elpa] externals/consult c0f792740a: consult-completion-in-region: Bind minibuffer-completing-file-name

[ELPA Syncer]

branch: externals/consult
commit c0f792740a0aca38c64eea711ab395a11f38f0d1
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    consult-completion-in-region: Bind minibuffer-completing-file-name
    
    This variable is mostly deprecated, but some packages still rely on it. 
Instead
    the completion category should be used. See #810.
---
 consult.el | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/consult.el b/consult.el
index f86eee13b7..e26979398c 100644
--- a/consult.el
+++ b/consult.el
@@ -2972,8 +2972,13 @@ These configuration options are supported:
                               (plist-get config :preview-key)
                             consult-preview-key))
              (initial (buffer-substring-no-properties start end))
+             (metadata (completion-metadata initial collection predicate))
+             ;; NOTE: `minibuffer-completing-file-name' is mostly
+             ;; deprecated. Packages should instead use the completion 
metadata!
+             (minibuffer-completing-file-name
+              (eq 'file (completion-metadata-get metadata 'category)))
              (threshold (or (plist-get config :cycle-threshold)
-                            (completion--cycle-threshold (completion-metadata 
initial collection predicate))))
+                            (completion--cycle-threshold metadata)))
              (all (completion-all-completions initial collection predicate 
(length initial)))
              ;; Wrap all annotation functions to ensure that they are executed
              ;; in the original buffer.