djm
/
dotfiles
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix vertico-directory functions

This commit is contained in:
David Morgan 2022-07-19 16:04:29 +01:00
parent 5ca6bcbcc3
commit 679c36f7ec
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
.emacs.d/lisp/init-minibuffer.el
View File

@ -111,13 +111,13 @@ DEFS is a plist associating completion categories to commands."
(interactive) (interactive)
(if (and (>= vertico--index 0) (if (and (>= vertico--index 0)
(string-suffix-p "/" (vertico--candidate)) (string-suffix-p "/" (vertico--candidate))
(vertico-directory--completing-file-p)) (eq 'file (vertico--metadata-get 'category)))
(vertico-insert) (vertico-insert)
(insert "/"))) (insert "/")))
(defun vertico-directory-home () (defun vertico-directory-home ()
(interactive) (interactive)
(if (and (string-suffix-p "/" (vertico--candidate)) (if (and (string-suffix-p "/" (vertico--candidate))
(vertico-directory--completing-file-p)) (eq 'file (vertico--metadata-get 'category)))
(insert "~/") (insert "~/")
(insert "~"))) (insert "~")))
(defun read-project (orig &rest args) (defun read-project (orig &rest args)