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

Define new face avy-goto-char-timer-face for the highlights

Browse Source
This commit is contained in:
Tassilo Horn 2015-09-17 08:22:52 +02:00
parent f9d7a76cd4
commit 22b4ff0658
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
avy.el
View File

@ -185,6 +185,10 @@ For example, to make SPC do the same as ?a, use
'((t (:foreground "gray40"))) '((t (:foreground "gray40")))
"Face for whole window background during selection.") "Face for whole window background during selection.")
(defface avy-goto-char-timer-face
'((t (:inherit highlight)))
"Face for matches during reading chars using `avy-goto-char-timer'.")
(defconst avy-lead-faces '(avy-lead-face (defconst avy-lead-faces '(avy-lead-face
avy-lead-face-0 avy-lead-face-0
avy-lead-face-2 avy-lead-face-2
@ -1077,7 +1081,7 @@ read string immediately instead of waiting for another char for
(let ((ov (make-overlay (match-beginning 0) (match-end 0)))) (let ((ov (make-overlay (match-beginning 0) (match-end 0))))
(push ov overlays) (push ov overlays)
(overlay-put ov 'window (selected-window)) (overlay-put ov 'window (selected-window))
(overlay-put ov 'face 'avy-lead-face)))))) (overlay-put ov 'face 'avy-goto-char-timer-face))))))
str) str)
(dolist (ov overlays) (dolist (ov overlays)
(delete-overlay ov))))) (delete-overlay ov)))))