[nongnu] elpa/evil-escape f85416cc7c 015/133: Escape apropos buffers

[ELPA Syncer]

branch: elpa/evil-escape
commit f85416cc7cabe4f9ae958d9fde1a97f57a8ec20e
Author: syl20bnr <sylvain.benner@gmail.com>
Commit: syl20bnr <sylvain.benner@gmail.com>

    Escape apropos buffers
---
 evil-escape.el | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/evil-escape.el b/evil-escape.el
index 1d1af5e145..e59dcb9d64 100644
--- a/evil-escape.el
+++ b/evil-escape.el
@@ -135,9 +135,11 @@ with a key sequence."
   ;; visual state
   (key-chord-define evil-visual-state-map evil-escape-key-sequence 
'evil-exit-visual-state)
   ;; motion state
-  (let ((exit-func (cond ((eq 'help-mode major-mode) 'quit-window)
-                         ((eq 'neotree-mode major-mode) 'neotree-hide)
-                         (t 'evil-normal-state))))
+  (let ((exit-func (lambda () (interactive)
+                     (cond ((or (eq 'apropos-mode major-mode)
+                                (eq 'help-mode major-mode)) (quit-window))
+                           ((eq 'neotree-mode major-mode) (neotree-hide))
+                           (t (evil-normal-state))))))
     (eval `(evil-escape-define-escape evil-motion-state-map ,exit-func
                                       :shadowed t)))
   ;; lisp state if installed