[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master acdd9e8 33/78: Modify avy--read-string-timer
From: |
Oleh Krehel |
Subject: |
[elpa] master acdd9e8 33/78: Modify avy--read-string-timer |
Date: |
Sat, 23 Jan 2016 13:59:53 +0000 |
branch: master
commit acdd9e8b3d6ff8ada6138e489883907948c23fe7
Author: momomo5717 <address@hidden>
Commit: momomo5717 <address@hidden>
Modify avy--read-string-timer
---
avy.el | 14 ++++++++------
1 files changed, 8 insertions(+), 6 deletions(-)
diff --git a/avy.el b/avy.el
index b0b038f..ae9eee2 100644
--- a/avy.el
+++ b/avy.el
@@ -1047,7 +1047,7 @@ 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'."
- (let ((str "") char break overlays)
+ (let ((str "") char break overlays regex)
(unwind-protect
(progn
(while (and (not break)
@@ -1077,11 +1077,13 @@ read string immediately instead of waiting for another
char for
(when (>= (length str) 1)
(save-excursion
(goto-char (window-start))
- (while (re-search-forward (regexp-quote str) (window-end) t)
- (let ((ov (make-overlay (match-beginning 0) (match-end 0))))
- (push ov overlays)
- (overlay-put ov 'window (selected-window))
- (overlay-put ov 'face 'avy-goto-char-timer-face))))))
+ (setq regex (regexp-quote str))
+ (while (re-search-forward regex (window-end) t)
+ (unless (get-char-property (point) 'invisible)
+ (let ((ov (make-overlay (match-beginning 0) (match-end
0))))
+ (push ov overlays)
+ (overlay-put ov 'window (selected-window))
+ (overlay-put ov 'face 'avy-goto-char-timer-face)))))))
str)
(dolist (ov overlays)
(delete-overlay ov)))))
- [elpa] master 009c0bc 22/78: avy.el (avy--line): Work for visual-line-mode, (continued)
- [elpa] master 009c0bc 22/78: avy.el (avy--line): Work for visual-line-mode, Oleh Krehel, 2016/01/23
- [elpa] master 53decea 24/78: avy.el (avy--line): Don't error on end of buffer, Oleh Krehel, 2016/01/23
- [elpa] master a6cfeda 23/78: avy.el (avy-goto-subword-0): Don't offer invisible chars, Oleh Krehel, 2016/01/23
- [elpa] master 72afecb 25/78: avy.el (avy-push-mark): Bring back push-mark, Oleh Krehel, 2016/01/23
- [elpa] master b1ef1f8 26/78: avy.el (avy--line): Obey avy-background, Oleh Krehel, 2016/01/23
- [elpa] master 48aa2cd 28/78: Improve avy-goto-char-timer so that it may read 1 or many chars, Oleh Krehel, 2016/01/23
- [elpa] master ac16227 27/78: Add padding for wide-width character, Oleh Krehel, 2016/01/23
- [elpa] master 67662ef 29/78: Fix indentation of defface, Oleh Krehel, 2016/01/23
- [elpa] master f9d7a76 31/78: Improve avy-goto-char-timer., Oleh Krehel, 2016/01/23
- [elpa] master 3f53a2a 30/78: avy.el (avy-goto-line): Fix off-by-one, Oleh Krehel, 2016/01/23
- [elpa] master acdd9e8 33/78: Modify avy--read-string-timer,
Oleh Krehel <=
- [elpa] master 22b4ff0 32/78: Define new face avy-goto-char-timer-face for the highlights, Oleh Krehel, 2016/01/23
- [elpa] master bda04b2 35/78: Properly highlight depending on avy-all-windows, Oleh Krehel, 2016/01/23
- [elpa] master c879498 38/78: New commands avy-goto-line-above and avy-goto-line-below, Oleh Krehel, 2016/01/23
- [elpa] master 248bff0 37/78: avy.el (avy--regex-candidates): Simplify, Oleh Krehel, 2016/01/23
- [elpa] master d439b9d 34/78: avy.el (avy--overlay-at-full): Avoid negative length, Oleh Krehel, 2016/01/23
- [elpa] master 70bd6ce 36/78: Search only in the visible region, Oleh Krehel, 2016/01/23
- [elpa] master f7ddd4b 39/78: Fix jumping to the last char of a folded Org outline, Oleh Krehel, 2016/01/23
- [elpa] master 528125e 40/78: avy.el (avy--process): Add window to candidates if not present, Oleh Krehel, 2016/01/23
- [elpa] master df181f1 44/78: avy.el (avy--read-candidates): Use avy-window-list, Oleh Krehel, 2016/01/23
- [elpa] master 964664c 45/78: Fix jumping to the last char of a folded Org outline, Oleh Krehel, 2016/01/23