[nongnu] elpa/keycast b02892ec77 24/31: Show only type for non-symbol bindings

[ELPA Syncer]

branch: elpa/keycast
commit b02892ec77ef8b83c957652c7859422d6f46e051
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    Show only type for non-symbol bindings
---
 keycast.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/keycast.el b/keycast.el
index 9c12c431ce..57742c8a52 100644
--- a/keycast.el
+++ b/keycast.el
@@ -209,7 +209,10 @@ instead."
   ;; happen until we return to the command loop and by that time these
   ;; values have been reset to nil.
   (setq keycast--this-command-keys (this-single-command-keys))
-  (setq keycast--this-command this-command)
+  (setq keycast--this-command
+        (cond ((symbolp this-command) this-command)
+              ((eq (car-safe this-command) 'lambda) "<lambda>")
+              (t (format "<%s>" (type-of this-command)))))
   (when keycast-log-mode
     (keycast-log-update-buffer))
   (when keycast-mode