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:
Philip Kaludercic 2021-12-09 17:34:54 +01:00
parent 678b29711b
commit f6967d2f66

View file

@ -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)