[PATCH] Introduce `evil-echo-state' to suppress state changes being echoed

[Frank Terbeck]

Signed-off-by: Frank Terbeck <ft at bewatermyfriend.org>
---
 evil-core.el   |    3 ++-
 evil-vars.el   |    5 +++++
 evil-visual.el |    2 +-
 3 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/evil-core.el b/evil-core.el
index b2900aa..84badc6 100644
--- a/evil-core.el
+++ b/evil-core.el
@@ -872,7 +872,8 @@ If ARG is nil, don't display a message in the echo area.%s" name doc)
                    (redisplay)))
                , at body
                (run-hooks ',entry-hook)
-               (when (and arg (not evil-locked-display) ,message)
+               (when (and arg (not evil-locked-display)
+                          evil-echo-state ,message)
                  (if (functionp ,message)
                      (funcall ,message)
                    (evil-echo ,message))))))))
diff --git a/evil-vars.el b/evil-vars.el
index cbdd658..15074f4 100644
--- a/evil-vars.el
+++ b/evil-vars.el
@@ -149,6 +149,11 @@ which causes the parenthesis to be highlighted."
   :type 'function
   :group 'evil)
 
+(defcustom evil-echo-state t
+  "If non-nil (default), echo state in the minibuffer."
+  :type 'boolean
+  :group 'evil)
+
 (defcustom evil-complete-previous-func
   (lambda (arg)
     (let ((dabbrev-search-these-buffers-only (list (current-buffer)))
diff --git a/evil-visual.el b/evil-visual.el
index b72d00e..248063e 100644
--- a/evil-visual.el
+++ b/evil-visual.el
@@ -230,7 +230,7 @@ If MESSAGE is given, display it in the echo area."
     (evil-active-region 1)
     (setq evil-visual-region-expanded nil)
     (evil-visual-refresh type mark point)
-    (when (stringp message)
+    (when (and (stringp message) evil-echo-state)
       (evil-echo message))))
 
 (defun evil-visual-expand-region (&optional no-trailing-newline)
-- 
1.7.6.447.gb9176