vertico: pass universal argument from vertico...

motion preview commands to underlying motion commands.
This commit is contained in:
Itai Y. Efrat 2021-07-13 14:01:42 +03:00
parent 41e657f70f
commit f8a64c8767

View file

@ -121,15 +121,15 @@ Supports exporting consult-grep to wgrep, file to wdeired, and consult-location
(embark-default-action))))) (embark-default-action)))))
;;;###autoload ;;;###autoload
(defun +vertico/next-candidate-preview () (defun +vertico/next-candidate-preview (&optional n)
"Move to next candidate and preivew it" "Go forward N candidates and preivew"
(interactive) (interactive)
(vertico-next) (vertico-next (or n 1))
(+vertico/embark-preview)) (+vertico/embark-preview))
;;;###autoload ;;;###autoload
(defun +vertico/previous-candidate-preview () (defun +vertico/previous-candidate-preview (&optional n)
"Move to previous candidate and preview it" "Go backward N candidates and preivew"
(interactive) (interactive)
(vertico-previous) (vertico-previous (or n 1))
(+vertico/embark-preview)) (+vertico/embark-preview))