Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-06-14 04:21:24 +00:00
Code Issues Projects Releases Packages Wiki Activity

Remove 'completion-preview--is-calling'

Browse source 
We decided to leave it out for now, see discussion at
https://yhetil.org/emacs/jwvqzntzvvg.fsf-monnier+emacs@gnu.org/
This brings completion-preview.el back to how it were before
commit a24ff52a79.

* lisp/completion-preview.el (completion-preview--is-calling):
Delete.
(completion-preview--capf-wrapper): Adapt.
This commit is contained in:
Eshel Yaron 2026-05-02 21:43:24 +02:00
parent e05fab5775
commit 7c70816066
No known key found for this signature in database
GPG key ID: EF3EE9CA35D78618
1 changed files with 1 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/completion-preview.el
View file

@ -523,14 +523,9 @@ candidates or if there are multiple matching completions and
(setq sorted (cdr sorted)))
(list (substring string 0 base) common suffixes))))))
(defvar completion-preview--is-calling nil
"Non-nil while Completion Preview mode is calling a completion function.")
(defun completion-preview--capf-wrapper (capf)
"Translate return value of CAPF to properties for completion preview overlay."
(let ((res (ignore-errors
(let ((completion-preview--is-calling t))
(funcall capf)))))
(let ((res (ignore-errors (funcall capf))))
(and (consp res)
(not (functionp res))
(seq-let (beg end table &rest plist) res