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

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

[nongnu] elpa/evil-escape b8c9b4631d 049/133: Add support for helm-ag-ed


From: ELPA Syncer
Subject: [nongnu] elpa/evil-escape b8c9b4631d 049/133: Add support for helm-ag-edit
Date: Wed, 3 Jan 2024 21:59:51 -0500 (EST)

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

    Add support for helm-ag-edit
---
 README.md      | 1 +
 evil-escape.el | 6 +++++-
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/README.md b/README.md
index 4eb9817f69..1d1e6125d8 100644
--- a/README.md
+++ b/README.md
@@ -35,6 +35,7 @@ Press quickly `fd` (or the 2-keys sequence of your choice) to:
 - quit undo-tree buffer
 - quit paradox
 - quit gist-list menu
+- quit helm-ag-edit
 - hide neotree buffer
 
 And more to come !
diff --git a/evil-escape.el b/evil-escape.el
index 1088e6d5a5..bc8af49cd9 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: 2.18
+;; Version: 2.19
 ;; Package-Requires: ((emacs "24") (evil "1.0.9"))
 ;; URL: https://github.com/syl20bnr/evil-escape
 
@@ -42,6 +42,7 @@
 ;;   - quit undo-tree buffer
 ;;   - quit paradox
 ;;   - quit gist-list menu
+;;   - quit helm-ag-edit
 ;;   - hide neotree buffer
 ;; And more to come !
 
@@ -207,6 +208,9 @@ with a key sequence."
                             (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)))
+                            (call-interactively 'helm-ag--edit-abort))
                            ((eq 'neotree-mode major-mode) (neotree-hide))
                            (t (evil-normal-state))))))
     (eval `(evil-escape-define-escape "motion-state" evil-motion-state-map 
,exit-func



reply via email to

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