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

Fixes #249
2026-02-04 06:42:26 +00:00 · 2018-09-13 20:19:19 +02:00
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."
               ;; Handle C-h, DEL
               ((memq char '(8 127))
                (let ((l (length str)))
+                  (when (>= l 1)
+                    (setq str (substring str 0 (1- l))))))
+               ;; Handle ESC
               ((= char 27)
                (keyboard-quit))
               (t