[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/vertico 7ff368e5c0 1/2: Remove vertico-directory--compl
From: |
ELPA Syncer |
Subject: |
[elpa] externals/vertico 7ff368e5c0 1/2: Remove vertico-directory--completing-file-p |
Date: |
Mon, 20 Jun 2022 17:58:11 -0400 (EDT) |
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)