emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/evil-escape 5da641b6e6 019/133: Quit ert buffers


From: ELPA Syncer
Subject: [nongnu] elpa/evil-escape 5da641b6e6 019/133: Quit ert buffers
Date: Wed, 3 Jan 2024 21:59:49 -0500 (EST)

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

    Quit ert buffers
---
 README.md      | 1 +
 evil-escape.el | 8 ++++++--
 2 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/README.md b/README.md
index c0d4faa955..3844ea2811 100644
--- a/README.md
+++ b/README.md
@@ -15,6 +15,7 @@ Press `fd` quickly to:
 - quit magit buffers
 - quit help buffers
 - quit apropos buffers
+- quit ert buffers
 - hide neotree buffer
 
 And more to come !
diff --git a/evil-escape.el b/evil-escape.el
index c9d5a9d1be..13be3db7de 100644
--- a/evil-escape.el
+++ b/evil-escape.el
@@ -5,7 +5,7 @@
 ;; Author: Sylvain Benner <sylvain.benner@gmail.com>
 ;; Keywords: convenience editing evil
 ;; Created: 22 Oct 2014
-;; Version: 1.5.1
+;; Version: 1.5.2
 ;; Package-Requires: ((emacs "24") (evil "1.0.9") (key-chord "0.6"))
 ;; URL: https://github.com/syl20bnr/evil-escape
 
@@ -37,6 +37,7 @@
 ;;   - quit magit buffers
 ;;   - quit help buffers
 ;;   - quit apropos buffers
+;;   - quit ert buffers
 ;;   - hide neotree buffer
 ;; And more to come !
 
@@ -162,7 +163,10 @@ with a key sequence."
         (lookup-key evil-motion-state-map (evil-escape--first-key)))
   (let ((exit-func (lambda () (interactive)
                      (cond ((or (eq 'apropos-mode major-mode)
-                                (eq 'help-mode major-mode)) (quit-window))
+                                (eq 'help-mode major-mode)
+                                (eq 'ert-results-mode major-mode)
+                                (eq 'ert-simple-view-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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]