[elpa] externals/vertico 7ff368e5c0 1/2: Remove vertico-directory--completing-file-p

[ELPA Syncer]

branch: externals/vertico
commit 7ff368e5c0ca5d42252fc53071c8e239140ee552
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Remove vertico-directory--completing-file-p
---
 extensions/vertico-directory.el | 15 ++-------------
 1 file changed, 2 insertions(+), 13 deletions(-)

diff --git a/extensions/vertico-directory.el b/extensions/vertico-directory.el
index c26cfb153b..5d0959c248 100644
--- a/extensions/vertico-directory.el
+++ b/extensions/vertico-directory.el
@@ -40,17 +40,6 @@
 
 (require 'vertico)
 
-(defun vertico-directory--completing-file-p ()
-  "Return non-nil when completing file names."
-  (eq 'file
-      (completion-metadata-get
-       (completion-metadata
-        (buffer-substring (minibuffer-prompt-end)
-                          (max (minibuffer-prompt-end) (point)))
-        minibuffer-completion-table
-        minibuffer-completion-predicate)
-       'category)))
-
 ;;;###autoload
 (defun vertico-directory-enter ()
   "Enter directory or exit completion with current candidate."
@@ -60,7 +49,7 @@
              (or (string-suffix-p "/" cand)
                  (and (vertico--remote-p cand)
                       (string-suffix-p ":" cand))))
-           (vertico-directory--completing-file-p))
+           (eq 'file (vertico--metadata-get 'category)))
       (vertico-insert)
     (vertico-exit)))
 
@@ -70,7 +59,7 @@
   (interactive "p")
   (when (and (> (point) (minibuffer-prompt-end))
              (eq (char-before) ?/)
-             (vertico-directory--completing-file-p))
+             (eq 'file (vertico--metadata-get 'category)))
     (let ((path (buffer-substring (minibuffer-prompt-end) (point))) found)
       (when (string-match-p "\\`~[^/]*/\\'" path)
         (delete-minibuffer-contents)