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

avy.el (avy--read-candidates): Custom keys for deleting last read char

Browse Source 
Add a defcustom for list of events that delete last read char, with
the default being '(8 127) which represents C-h and DEL.

Fixes #251
This commit is contained in:
Jiangbin Zhao 2018-09-30 11:19:16 -07:00 committed by Oleh Krehel
parent abe150c7bd
commit c2e2a4a3f2
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
avy.el
View File

@ -248,6 +248,12 @@ Typically, these modes don't use the text representation."
"In case there is only one candidate jumps directly to it." "In case there is only one candidate jumps directly to it."
:type 'boolean) :type 'boolean)
(defcustom avy-del-last-char-by '(8 127)
"List of event types, i.e. key presses, that delete the last
character read. The default represents `C-h' and `DEL'. See
`event-convert-list'."
:type 'list)
(defvar avy-ring (make-ring 20) (defvar avy-ring (make-ring 20)
"Hold the window and point history.") "Hold the window and point history.")
@ -1882,8 +1888,9 @@ newline."
(defun avy--read-candidates (&optional re-builder) (defun avy--read-candidates (&optional re-builder)
"Read as many chars as possible and return their occurrences. "Read as many chars as possible and return their occurrences.
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'. `C-h' may be read if it is entered before `avy-timeout-seconds'. Any
or `DEL' deletes the last char entered, and `RET' exits with the key defined in `avy-del-last-char-by' (by default `C-h' and `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'.
@ -1917,7 +1924,7 @@ Otherwise, the whole regex is highlighted."
(setq break t) (setq break t)
(setq str (concat str (list ?\n))))) (setq str (concat str (list ?\n)))))
;; Handle C-h, DEL ;; Handle C-h, DEL
((memq char '(8 127)) ((memq char avy-del-last-char-by)
(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))))))