[nongnu] elpa/evil-escape 32a6c6c31e 102/133: Add support for compilation buffers

[ELPA Syncer]

branch: elpa/evil-escape
commit 32a6c6c31eaa5678205ce658baaab7eb5ca9c9e3
Author: sbenner <sylvain.benner@ubisoft.com>
Commit: sbenner <sylvain.benner@ubisoft.com>

    Add support for compilation buffers
---
 README.md      |  1 +
 evil-escape.el | 10 ++++++----
 2 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/README.md b/README.md
index cf4fdb62a9..7304569357 100644
--- a/README.md
+++ b/README.md
@@ -35,6 +35,7 @@ Press quickly `fd` (or the 2-keys sequence of your choice) to:
 - quit minibuffer
 - abort isearch
 - quit ibuffer
+- quit compilation buffers
 - quit magit buffers
 - quit help buffers
 - quit apropos buffers
diff --git a/evil-escape.el b/evil-escape.el
index a202aa94b5..34777f7048 100644
--- a/evil-escape.el
+++ b/evil-escape.el
@@ -34,6 +34,7 @@
 ;;   - escape from evil-iedit-state to normal state
 ;;   - abort evil ex command
 ;;   - quit minibuffer
+;;   - quit compilation buffers
 ;;   - abort isearch
 ;;   - quit ibuffer
 ;;   - quit magit buffers
@@ -221,10 +222,11 @@ with a key sequence."
 (defun evil-escape--escape-motion-state ()
   "Return the function to escape from motion state."
   (cond
-   ((or (eq 'apropos-mode major-mode)
-        (eq 'help-mode major-mode)
-        (eq 'ert-results-mode major-mode)
-        (eq 'ert-simple-view-mode major-mode)) 'quit-window)
+   ((or (memq major-mode '(apropos-mode
+                           help-mode
+                           ert-results-mode
+                           ert-simple-view-mode
+                           compilation-mode))) 'quit-window)
    ((eq 'undo-tree-visualizer-mode major-mode) 'undo-tree-visualizer-quit)
    ((and (fboundp 'helm-ag--edit-abort)
          (string-equal "*helm-ag-edit*" (buffer-name))) 'helm-ag--edit-abort)