[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master f6967d2 1/3: Allow for the completion buffer to be automatically
From: |
Philip Kaludercic |
Subject: |
master f6967d2 1/3: Allow for the completion buffer to be automatically selected |
Date: |
Tue, 21 Dec 2021 16:31:37 -0500 (EST) |
branch: master
commit f6967d2f6666d2e8b40f502e5a948c81c3236249
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>
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.
---
lisp/simple.el | 10 +++++++++-
1 file changed, 9 insertions(+), 1 deletion(-)
diff --git a/lisp/simple.el b/lisp/simple.el
index 6d46fc1..62a9f26 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -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)