Allow for the completion buffer to be automatically selected
* lisp/simple.el (completion-auto-select): Add new option. (completion-setup-function): Respect completion-auto-select.
This commit is contained in:
parent
678b29711b
commit
f6967d2f66
1 changed files with 9 additions and 1 deletions
|
@ -9228,6 +9228,12 @@ Called from `temp-buffer-show-hook'."
|
|||
:version "22.1"
|
||||
:group 'completion)
|
||||
|
||||
(defcustom completion-auto-select t
|
||||
"Non-nil means to automatically select the completions buffer."
|
||||
:type 'boolean
|
||||
:version "29.1"
|
||||
:group 'completion)
|
||||
|
||||
;; This function goes in completion-setup-hook, so that it is called
|
||||
;; after the text of the completion list buffer is written.
|
||||
(defun completion-setup-function ()
|
||||
|
@ -9264,7 +9270,9 @@ Called from `temp-buffer-show-hook'."
|
|||
(insert "Click on a completion to select it.\n"))
|
||||
(insert (substitute-command-keys
|
||||
"In this buffer, type \\[choose-completion] to \
|
||||
select the completion near point.\n\n"))))))
|
||||
select the completion near point.\n\n")))))
|
||||
(when completion-auto-select
|
||||
(switch-to-completions)))
|
||||
|
||||
(add-hook 'completion-setup-hook #'completion-setup-function)
|
||||
|
||||
|
|
Loading…
Add table
Reference in a new issue