ld/avy
1
0
Fork 0
mirror of https://github.com/abo-abo/avy.git synced 2025-10-13 21:33:05 +00:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
Fixes #249
This commit is contained in:
Oleh Krehel 2018-09-13 20:19:19 +02:00
parent a29558d22c
commit cd8fb10759
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
avy.el
View File

@ -1917,6 +1917,9 @@ Otherwise, the whole regex is highlighted."
(let ((l (length str))) (let ((l (length str)))
(when (>= l 1) (when (>= l 1)
(setq str (substring str 0 (1- l)))))) (setq str (substring str 0 (1- l))))))
;; Handle ESC
((= char 27)
(keyboard-quit))
(t (t
(setq str (concat str (list char))))) (setq str (concat str (list char)))))
;; Highlight ;; Highlight