ld/avy
1
0
Fork 0
mirror of https://github.com/abo-abo/avy.git synced 2026-02-04 06:42:26 +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
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."
;; Handle C-h, DEL ;; Handle C-h, DEL
((memq char '(8 127)) ((memq char '(8 127))
(let ((l (length str))) (let ((l (length str)))
(when (>= l 1)
(setq str (substring str 0 (1- l))))))
;; Handle ESC
((= char 27) ((= char 27)
(keyboard-quit)) (keyboard-quit))
(t (t