]> code.delx.au - gnu-emacs-elpa/commitdiff
Fix "DEL" generating a "Quit" sometimes for counsel-git-grep
authorOleh Krehel <ohwoeowho@gmail.com>
Mon, 27 Jul 2015 09:22:26 +0000 (11:22 +0200)
committerOleh Krehel <ohwoeowho@gmail.com>
Mon, 27 Jul 2015 09:22:26 +0000 (11:22 +0200)
* ivy.el (ivy-backward-kill-word): It seems that `backward-kill-word' is
  too elaborate; falling back to something simpler fixed the problem.

ivy.el

diff --git a/ivy.el b/ivy.el
index 5535e1dd9e754437e26adec60a2e8cc576348e8a..97113c46356f64b6623a0734f8469658235ebad1 100644 (file)
--- a/ivy.el
+++ b/ivy.el
@@ -704,7 +704,9 @@ On error (read-only), call `ivy-on-del-error-function'."
                     ivy--directory))))
         (ivy--exhibit))
     (ignore-errors
-      (backward-kill-word 1))))
+      (let ((pt (point)))
+        (forward-word -1)
+        (delete-region (point) pt)))))
 
 (defvar ivy--regexp-quote 'regexp-quote
   "Store the regexp quoting state.")