branch: externals/ergoemacs-mode
commit 427d0e47afe66d0c870c026ba5b8a93bb0b76415
Author: Fidler <matthew.fid...@gmail.com>
Commit: Fidler <matthew.fid...@gmail.com>
Only echo on prefix keys
---
ergoemacs-command-loop.el | 13 +++++++------
1 file changed, 7 insertions(+), 6 deletions(-)
diff --git a/ergoemacs-command-loop.el b/ergoemacs-command-loop.el
index f9c66a2..d64b9ba 100644
--- a/ergoemacs-command-loop.el
+++ b/ergoemacs-command-loop.el
@@ -790,12 +790,13 @@ KEYS is the keys information"
(let ((keys (this-single-command-keys)))
(unless (or (equal [] keys)
(ergoemacs-command-loop-p))
- (ergoemacs-command-loop--message
- "%s" (ergoemacs-command-loop--key-msg
- (setq ergoemacs-command--blink-on (not
ergoemacs-command--blink-on))
- nil nil
- (this-single-command-keys)
- nil nil nil)))))
+ (when (ergoemacs-keymapp (key-binding keys))
+ (ergoemacs-command-loop--message
+ "%s" (ergoemacs-command-loop--key-msg
+ (setq ergoemacs-command--blink-on (not
ergoemacs-command--blink-on))
+ nil nil
+ (this-single-command-keys)
+ nil nil nil))))))
(defun ergoemacs-command--echo-timer ()
"Echo the keystrokes in the `ergoemacs-mode' way."
