about summary refs log tree commit diff stats
path: root/.emacs.d/lisp
diff options
context:
space:
mode:
authorDavid Morgan <djm_uk@protonmail.com>2022-07-19 16:04:29 +0100
committerDavid Morgan <djm_uk@protonmail.com>2022-07-19 16:04:29 +0100
commit679c36f7ec6417487d84fe13922a25e25df059ca (patch)
treed9eaabb2a48d65d2c911c18cb96373ef31c01ac3 /.emacs.d/lisp
parent5ca6bcbcc3489885960953cadca7a125a2eb8165 (diff)
downloaddotfiles-679c36f7ec6417487d84fe13922a25e25df059ca.tar.gz
Fix vertico-directory functions
Diffstat (limited to '.emacs.d/lisp')
-rw-r--r--.emacs.d/lisp/init-minibuffer.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/.emacs.d/lisp/init-minibuffer.el b/.emacs.d/lisp/init-minibuffer.el
index 56b9586..5245ba9 100644
--- a/.emacs.d/lisp/init-minibuffer.el
+++ b/.emacs.d/lisp/init-minibuffer.el
@@ -111,13 +111,13 @@ DEFS is a plist associating completion categories to commands."
     (interactive)
     (if (and (>= vertico--index 0)
              (string-suffix-p "/" (vertico--candidate))
-             (vertico-directory--completing-file-p))
+             (eq 'file (vertico--metadata-get 'category)))
         (vertico-insert)
       (insert "/")))
   (defun vertico-directory-home ()
     (interactive)
     (if (and (string-suffix-p "/" (vertico--candidate))
-             (vertico-directory--completing-file-p))
+             (eq 'file (vertico--metadata-get 'category)))
         (insert "~/")
       (insert "~")))
   (defun read-project (orig &rest args)