From 575c3beb4c001687ce7a4581de005a16d6f2e081 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Tue, 5 Apr 2022 23:08:48 +0300 Subject: [PATCH] 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 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. -- 2.39.5