master 735b451910: Allow non-interactive uses of minibuffer-next-completion

[Juri Linkov]

branch: master
commit 735b45191041778824460807ee5bf4d1cebd3421
Author: Juri Linkov <juri@linkov.net>
Commit: Juri Linkov <juri@linkov.net>

    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 c79c5a7a5d..68b167ccc7 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.