[elpa] externals/ivy-hydra b40af52 267/395: counsel.el (counsel-find-file-undo): Remap undo

[Basil L. Contovounesios]

branch: externals/ivy-hydra
commit b40af52729046cb28adbb7204c1dca0b223730af
Author: Oleh Krehel <ohwoeowho@gmail.com>
Commit: Oleh Krehel <ohwoeowho@gmail.com>

    counsel.el (counsel-find-file-undo): Remap undo
    
    Re #1424
---
 counsel.el | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/counsel.el b/counsel.el
index f22976a..431ba23 100644
--- a/counsel.el
+++ b/counsel.el
@@ -1843,6 +1843,7 @@ currently checked out."
     (define-key map (kbd "C-DEL") 'counsel-up-directory)
     (define-key map (kbd "C-<backspace>") 'counsel-up-directory)
     (define-key map (kbd "`") (ivy-make-magic-action 'counsel-find-file "b"))
+    (define-key map [remap undo] 'counsel-find-file-undo)
     map))
 
 (when (executable-find "git")
@@ -2194,6 +2195,15 @@ See variable `counsel-up-directory-level'."
   (interactive)
   (ivy--directory-enter))
 
+(defun counsel-find-file-undo ()
+  (interactive)
+  (if (string= ivy-text "")
+      (progn
+        (ivy-backward-delete-char)
+        (ivy--exhibit)
+        (ivy-insert-current))
+    (undo)))
+
 (defun counsel-at-git-issue-p ()
   "When point is at an issue in a Git-versioned file, return the issue string."
   (and (looking-at "#[0-9]+")