diff options
| author | David Morgan <djm_uk@protonmail.com> | 2024-09-04 11:59:51 +0100 |
|---|---|---|
| committer | David Morgan <djm_uk@protonmail.com> | 2024-09-04 11:59:51 +0100 |
| commit | c51f1832266156141402ac40a1fb75600bb32b45 (patch) | |
| tree | 773a250df5479915f9ab0d816f0055bfb8e61deb /.emacs.d | |
| parent | cd60a0018f52beb5de91da87efd903e0da451fb2 (diff) | |
| download | dotfiles-c51f1832266156141402ac40a1fb75600bb32b45.tar.gz | |
Fix bug in verito-indexed functions
Diffstat (limited to '.emacs.d')
| -rw-r--r-- | .emacs.d/lisp/init-minibuffer.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/.emacs.d/lisp/init-minibuffer.el b/.emacs.d/lisp/init-minibuffer.el index af6c145..9d0b4c6 100644 --- a/.emacs.d/lisp/init-minibuffer.el +++ b/.emacs.d/lisp/init-minibuffer.el @@ -156,13 +156,13 @@ DEFS is a plist associating completion categories to commands." `(defun ,(intern (format "vertico-indexed-choose-%s" n)) () ,(format "Exit minibuffer with candidate %s." n) (interactive) - (let ((current-prefix-arg ,n)) + (let ((vertico--index ,n)) (funcall-interactively 'vertico-exit)))) (defmacro define-insert (n) `(defun ,(intern (format "vertico-indexed-insert-%s" n)) () ,(format "Insert candidate %s in minibuffer." n) (interactive) - (let ((current-prefix-arg ,n)) + (let ((vertico--index ,n)) (funcall-interactively 'vertico-insert)))) (dotimes (n 10) (eval `(define-choose ,n)) |