Allow completion wrapping in minibuffer completion navigation commands

* lisp/minibuffer.el (minibuffer-previous-completion)
(minibuffer-next-completion): Don't set completion-wrap-movement.

diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index 8a0e15ce05d25b5efb3629607e86ad8e02446423..c79c5a7a5d6f412dadfce9d93d6a682f64e693e7 100644 (file)
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -4360,19 +4360,17 @@ and execute the forms."
   "Run `previous-completion' from the minibuffer in its completions window."
   (interactive "p")
   (with-minibuffer-completions-window
-    (let ((completion-wrap-movement nil))
-      (when completions-highlight-face
-        (setq-local cursor-face-highlight-nonselected-window t))
-      (previous-completion n))))
+    (when completions-highlight-face
+      (setq-local cursor-face-highlight-nonselected-window t))
+    (previous-completion n)))
 
 (defun minibuffer-next-completion (&optional n)
   "Run `next-completion' from the minibuffer in its completions window."
   (interactive "p")
   (with-minibuffer-completions-window
-    (let ((completion-wrap-movement nil))
-      (when completions-highlight-face
-        (setq-local cursor-face-highlight-nonselected-window t))
-      (next-completion n))))
+    (when completions-highlight-face
+      (setq-local cursor-face-highlight-nonselected-window t))
+    (next-completion n)))
 
 (defun minibuffer-choose-previous-completion (&optional n)
   "Run `previous-completion' from the minibuffer in its completions window.