[elpa] externals/corfu 6845fb0 03/11: Simplify corfu--pre-command-hook

[Protesilaos Stavrou]

branch: externals/corfu
commit 6845fb0a206104fb6a08a3beef00a9be76b0db70
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    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 ()