Allow non-interactive uses of minibuffer-next-completion

* lisp/minibuffer.el (minibuffer-previous-completion)
(minibuffer-next-completion): Use 1 for n by default.

diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index c79c5a7a5d6f412dadfce9d93d6a682f64e693e7..68b167ccc782b21c5375adce0051d2e1bc4f407f 100644 (file)
--- 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.