avy.el (avy--read-candidates): Quit on ESC

Fixes #249
8 years ago · cd8fb10759
parent a29558d22c
commit cd8fb10759
1 changed files with 3 additions and 0 deletions
--- a/avy.el
+++ b/avy.el
@ -1917,6 +1917,9 @@ Otherwise, the whole regex is highlighted."
                (let ((l (length str)))
                  (when (>= l 1)
                    (setq str (substring str 0 (1- l))))))
+               ;; Handle ESC
+               ((= char 27)
+                (keyboard-quit))
               (t
                (setq str (concat str (list char)))))
             ;; Highlight