branch: externals/corfu
commit 6845fb0a206104fb6a08a3beef00a9be76b0db70
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
Simplify corfu--pre-command-hook
---
corfu.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/corfu.el b/corfu.el
index cfddd32..0aad744 100644
--- a/corfu.el
+++ b/corfu.el
@@ -346,7 +346,8 @@ If `line-spacing/=nil' or in text-mode, the background
color is used instead.")
(mapc #'delete-overlay corfu--overlays)
(setq corfu--overlays nil)
(unless (or (< corfu--index 0)
- (string-match-p corfu--keep-alive (prin1-to-string
this-command)))
+ (and (symbolp this-command)
+ (string-match-p corfu--keep-alive (symbol-name
this-command))))
(corfu--insert 'exact)))
(defun corfu-abort ()
