ld/avy
1
0
Fork 0
mirror of https://github.com/abo-abo/avy.git synced 2026-02-04 14:52:25 +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
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)."
:type 'float) :type 'float)
(defun avy--read-candidates () (defun avy--read-candidates ()
"Read as many chars as possible and return their occurences. "Read as many chars as possible and return their occurences.
At least one char must be read, and then repeatedly one next char 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' may be read if it is entered before `avy-timeout-seconds'. `C-h'
deletes the last char entered, and `RET' exits with the currently or `DEL' deletes the last char entered, and `RET' exits with the
currently read string immediately instead of waiting for another currently read string immediately instead of waiting for another
char for `avy-timeout-seconds'. char for `avy-timeout-seconds'.
The format of the result is the same as that of `avy--regex-candidates'. The format of the result is the same as that of `avy--regex-candidates'.
@@ -1651,8 +1651,8 @@ This function obeys `avy-all-windows' setting."
(setq overlays nil) (setq overlays nil)
(cond (cond
;; Handle RET ;; Handle RET
((= char 13) ((= char 13)
(setq break t)) (setq break t))
;; Handle C-h, DEL ;; Handle C-h, DEL
((memq char '(8 127)) ((memq char '(8 127))
(let ((l (length str))) (let ((l (length str)))