mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/simple.el (completion-auto-wrap): Rename from completion-wrap-movement.

Browse source 
(next-completion): Use completion-auto-wrap.
https://lists.gnu.org/archive/html/emacs-devel/2022-06/msg00139.html
This commit is contained in:
Juri Linkov 2022-06-14 10:04:56 +03:00
parent 42203acd60
commit e494222814
3 changed files with 18 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lisp/simple.el
View file

@ -9502,10 +9502,10 @@ Go to the window from which completion was requested."
(if (get-buffer-window buf)
(select-window (get-buffer-window buf))))))
(defcustom completion-wrap-movement t
(defcustom completion-auto-wrap t
"Non-nil means to wrap around when selecting completion options.
This affects the commands `next-completion' and
`previous-completion'."
This affects the commands `next-completion' and `previous-completion'.
When `completion-auto-select' is t, it wraps through the minibuffer."
:type 'boolean
:version "29.1"
:group 'completion)
@ -9549,7 +9549,7 @@ the completions is popped up and down."
With prefix argument N, move back N items (negative N means move
forward).
Also see the `completion-wrap-movement' variable."
Also see the `completion-auto-wrap' variable."
(interactive "p")
(next-completion (- n)))
@ -9558,7 +9558,7 @@ Also see the `completion-wrap-movement' variable."
With prefix argument N, move N items (negative N means move
backward).
Also see the `completion-wrap-movement' variable."
Also see the `completion-auto-wrap' variable."
(interactive "p")
(let ((tabcommand (member (this-command-keys) '("\t" [backtab])))
pos)
@ -9574,7 +9574,7 @@ Also see the `completion-wrap-movement' variable."
(goto-char pos)
;; If at the last completion option, wrap or skip
;; to the minibuffer, if requested.
(when completion-wrap-movement
(when completion-auto-wrap
(if (and (eq completion-auto-select t) tabcommand
(minibufferp completion-reference-buffer))
(throw 'bound nil)
@ -9598,7 +9598,7 @@ Also see the `completion-wrap-movement' variable."
(point) 'mouse-face nil (point-min)))))
;; If at the first completion option, wrap or skip
;; to the minibuffer, if requested.
(when completion-wrap-movement
(when completion-auto-wrap
(if (and (eq completion-auto-select t) tabcommand
(minibufferp completion-reference-buffer))
(progn