Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 09:14:18 +00:00
Code Issues Projects Releases Packages Wiki Activity

Merge branch 'master' of git.savannah.gnu.org:/srv/git/emacs

Browse source
This commit is contained in:
Eli Zaretskii 2026-02-14 13:59:53 +02:00
commit 6a1a544a90
1 changed files with 8 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
lisp/completion-preview.el
View file

@ -176,6 +176,14 @@ after non-symbol characters, such as punctuation or whitespace."
(const :tag "Disable minimum symbol length requirement" nil))
:version "30.1")
(defcustom completion-preview-inhibit-functions nil
"Abnormal hook for inhibiting Completion Preview mode operation.
Completion Preview mode calls the functions on this hook without
arguments during `post-command-hook'. If any of these functions returns
non-nil, it inhibits the preview display."
:type 'hook
:version "31.1")
(defcustom completion-preview-message-format
"Completion suggestion %i out of %n"
"Message to show after cycling the completion preview suggestion.
@ -619,13 +627,6 @@ point, otherwise hide it."
(selected-window) (current-buffer)))
(completion-preview--try-update)))
(defcustom completion-preview-inhibit-functions nil
"Abnormal hook for inhibiting Completion Preview mode operation.
Completion Preview mode calls the functions on this hook without
arguments during `post-command-hook'. If any of these functions returns
non-nil, it inhibits the preview display."
:type 'hook)
(defun completion-preview--post-command ()
"Create, update or delete completion preview post last command."
(let ((internal-p (or completion-preview--inhibit-update-p