From: Juri Linkov <juri@linkov.net>
Date: Tue, 5 Apr 2022 20:08:48 +0000 (+0300)
Subject: Allow completion wrapping in minibuffer completion navigation commands
X-Git-Tag: emacs-29.0.90~1931^2~756
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=575c3beb4c001687ce7a4581de005a16d6f2e081;p=emacs.git

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 8a0e15ce05d..c79c5a7a5d6 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.