From 735b45191041778824460807ee5bf4d1cebd3421 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Sun, 10 Apr 2022 10:37:55 +0300 Subject: [PATCH] Allow non-interactive uses of minibuffer-next-completion * lisp/minibuffer.el (minibuffer-previous-completion) (minibuffer-next-completion): Use 1 for n by default. --- lisp/minibuffer.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el index c79c5a7a5d6..68b167ccc78 100644 --- a/lisp/minibuffer.el +++ b/lisp/minibuffer.el @@ -4362,7 +4362,7 @@ and execute the forms." (with-minibuffer-completions-window (when completions-highlight-face (setq-local cursor-face-highlight-nonselected-window t)) - (previous-completion n))) + (previous-completion (or n 1)))) (defun minibuffer-next-completion (&optional n) "Run `next-completion' from the minibuffer in its completions window." @@ -4370,7 +4370,7 @@ and execute the forms." (with-minibuffer-completions-window (when completions-highlight-face (setq-local cursor-face-highlight-nonselected-window t)) - (next-completion n))) + (next-completion (or n 1)))) (defun minibuffer-choose-previous-completion (&optional n) "Run `previous-completion' from the minibuffer in its completions window. -- 2.39.5