diff options
| author | Juri Linkov <juri@linkov.net> | 2022-04-05 23:08:48 +0300 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2022-04-05 23:08:48 +0300 |
| commit | 575c3beb4c001687ce7a4581de005a16d6f2e081 (patch) | |
| tree | 26ca38a1a08e87b27140df2a97f749403807e02e /lisp/minibuffer.el | |
| parent | 0e37fa7ed694c22fcfd8bfb5004c64eb0cbd13f8 (diff) | |
| download | emacs-575c3beb4c001687ce7a4581de005a16d6f2e081.tar.gz | |
Allow completion wrapping in minibuffer completion navigation commands
* lisp/minibuffer.el (minibuffer-previous-completion)
(minibuffer-next-completion): Don't set completion-wrap-movement.
Diffstat (limited to 'lisp/minibuffer.el')
| -rw-r--r-- | lisp/minibuffer.el | 14 |
1 files 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. |