diff options
author | David Morgan <djm_uk@protonmail.com> | 2024-09-26 16:01:22 +0100 |
---|---|---|
committer | David Morgan <djm_uk@protonmail.com> | 2024-09-26 16:01:22 +0100 |
commit | 4a0e3f8aa226ea7012f3d63d2bb59b1cedd3eaa7 (patch) | |
tree | 4b735164e2511982e8d420e25739f48bdce7659c /.emacs.d/lisp/init-minibuffer.el | |
parent | e078e06394855e75b37a9cc37ce115d2b9319394 (diff) | |
download | dotfiles-4a0e3f8aa226ea7012f3d63d2bb59b1cedd3eaa7.tar.gz |
Re-order slightly
Diffstat (limited to '.emacs.d/lisp/init-minibuffer.el')
-rw-r--r-- | .emacs.d/lisp/init-minibuffer.el | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/.emacs.d/lisp/init-minibuffer.el b/.emacs.d/lisp/init-minibuffer.el index 80b4a91..37e543b 100644 --- a/.emacs.d/lisp/init-minibuffer.el +++ b/.emacs.d/lisp/init-minibuffer.el @@ -17,15 +17,6 @@ (setq enable-recursive-minibuffers t) (minibuffer-depth-indicate-mode t) - ;; https://github.com/minad/vertico/wiki#ding-when-wrapping-around - (advice-add #'vertico-next - :around - #'(lambda (origin &rest args) - (let ((beg-index vertico--index)) - (apply origin args) - (if (not (eq 1 (abs (- beg-index vertico--index)))) - (ding))))) - ;; Add prompt indicator to `completing-read-multiple'. ;; We display [CRM<separator>], e.g., [CRM,] if the separator is a comma. (defun crm-indicator (args) @@ -51,6 +42,15 @@ " ") cand))) + ;; https://github.com/minad/vertico/wiki#ding-when-wrapping-around + (advice-add #'vertico-next + :around + #'(lambda (origin &rest args) + (let ((beg-index vertico--index)) + (apply origin args) + (if (not (eq 1 (abs (- beg-index vertico--index)))) + (ding))))) + (defun down-from-outside () "Move to next candidate in minibuffer, even when minibuffer isn't selected." (interactive) |