master 575c3beb4c: Allow completion wrapping in minibuffer completion navigation commands

[Juri Linkov]

branch: master
commit 575c3beb4c001687ce7a4581de005a16d6f2e081
Author: Juri Linkov <juri@linkov.net>
Commit: Juri Linkov <juri@linkov.net>

    Allow completion wrapping in minibuffer completion navigation commands
    
    * lisp/minibuffer.el (minibuffer-previous-completion)
    (minibuffer-next-completion): Don't set completion-wrap-movement.
---
 lisp/minibuffer.el | 14 ++++++--------
 1 file changed, 6 insertions(+), 8 deletions(-)

diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index 8a0e15ce05..c79c5a7a5d 100644
--- 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.