From 7c708160668340c6b095a29f65f168adcb95d0b7 Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Sat, 2 May 2026 21:43:24 +0200 Subject: [PATCH] Remove 'completion-preview--is-calling' 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 a24ff52a79b. * lisp/completion-preview.el (completion-preview--is-calling): Delete. (completion-preview--capf-wrapper): Adapt. --- lisp/completion-preview.el | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) diff --git a/lisp/completion-preview.el b/lisp/completion-preview.el index 9ff726f3707..ff348ebf9af 100644 --- a/lisp/completion-preview.el +++ b/lisp/completion-preview.el @@ -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