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

Allow "C-h" to delete for avy-goto-char-timer

Browse Source 
Fixes #193
This commit is contained in:
ketanaka 2017-04-11 21:09:29 +09:00 committed by Oleh Krehel
parent 105efc8482
commit f2bedeeb58
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
avy.el
View File

@ -1625,10 +1625,10 @@ saves the line(s) as if killed, but does not kill it(them)."
(defun avy--read-candidates ()
"Read as many chars as possible and return their occurences.
At least one char must be read, and then repeatedly one next char
may be read if it is entered before `avy-timeout-seconds'. `DEL'
deletes the last char entered, and `RET' exits with the currently
read string immediately instead of waiting for another char for
`avy-timeout-seconds'.
may be read if it is entered before `avy-timeout-seconds'. `C-h'
or `DEL' deletes the last char entered, and `RET' exits with the
currently read string immediately instead of waiting for another
char for `avy-timeout-seconds'.
The format of the result is the same as that of `avy--regex-candidates'.
This function obeys `avy-all-windows' setting."
(let ((str "") char break overlays regex)
@ -1651,8 +1651,8 @@ This function obeys `avy-all-windows' setting."
;; Handle RET
((= char 13)
(setq break t))
;; Handle DEL
((= char 127)
;; Handle C-h, DEL
((memq char '(8 127))
(let ((l (length str)))
(when (>= l 1)
(setq str (substring str 0 (1- l))))))