diff --git a/emacs/.emacs.d/prot-emacs.org b/emacs/.emacs.d/prot-emacs.org index a8914d13..4e6f2677 100644 --- a/emacs/.emacs.d/prot-emacs.org +++ b/emacs/.emacs.d/prot-emacs.org @@ -17308,7 +17308,7 @@ automatically.") This is done to accommodate `prot-vertico-multiform-minimal'." (interactive) (if vertico-unobtrusive-mode - (let ((vertico--index 0)) + (progn (vertico-multiform-vertical) (vertico-next 1)) (vertico-next 1))) @@ -17330,7 +17330,7 @@ This is done to accommodate `prot-vertico-multiform-minimal'." (if (and vertico-unobtrusive-mode (> vertico--total 1)) (progn (minibuffer-complete) - (vertico-multiform-vertical)) + (prot-vertico-private-next)) (vertico-insert))) (provide 'prot-vertico) diff --git a/emacs/.emacs.d/prot-lisp/prot-vertico.el b/emacs/.emacs.d/prot-lisp/prot-vertico.el index 389f457f..b447cd2d 100644 --- a/emacs/.emacs.d/prot-lisp/prot-vertico.el +++ b/emacs/.emacs.d/prot-lisp/prot-vertico.el @@ -75,7 +75,7 @@ automatically.") This is done to accommodate `prot-vertico-multiform-minimal'." (interactive) (if vertico-unobtrusive-mode - (let ((vertico--index 0)) + (progn (vertico-multiform-vertical) (vertico-next 1)) (vertico-next 1))) @@ -97,7 +97,7 @@ This is done to accommodate `prot-vertico-multiform-minimal'." (if (and vertico-unobtrusive-mode (> vertico--total 1)) (progn (minibuffer-complete) - (vertico-multiform-vertical)) + (prot-vertico-private-next)) (vertico-insert))) (provide 'prot-vertico)