diff options
| -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)) |