[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 9ddde6d 06/24: avy.el (avy--overlay-at-full): Improve
From: |
Oleh Krehel |
Subject: |
[elpa] master 9ddde6d 06/24: avy.el (avy--overlay-at-full): Improve |
Date: |
Thu, 25 Jun 2015 10:17:48 +0000 |
branch: master
commit 9ddde6dd797f5ba02db2d7e26dae531b59b0b3b6
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>
avy.el (avy--overlay-at-full): Improve
Re #51
---
avy.el | 17 +++++++++--------
1 files changed, 9 insertions(+), 8 deletions(-)
diff --git a/avy.el b/avy.el
index bca174f..8ca8350 100644
--- a/avy.el
+++ b/avy.el
@@ -556,19 +556,20 @@ LEAF is normally ((BEG . END) . WND)."
(beg (if (consp (car leaf))
(caar leaf)
(car leaf)))
- (wnd (cdr leaf)))
+ (wnd (cdr leaf))
+ oov)
(when (or avy-highlight-first (> (length str) 1))
(set-text-properties 0 1 '(face avy-lead-face-0) str))
(with-selected-window wnd
(save-excursion
(goto-char beg)
- (when (cl-some (lambda (o)
- (and (eq (overlay-get o 'category) 'avy)
- (eq (overlay-get o 'window) wnd)))
- (overlays-in (point) (min (+ (point) len)
- (line-end-position))))
- (setq str (substring str 0 1))
- (setq len 1))
+ (when (setq oov (cl-find-if (lambda (o)
+ (and (eq (overlay-get o 'category) 'avy)
+ (eq (overlay-get o 'window) wnd)))
+ (overlays-in (point) (min (+ (point) len)
+
(line-end-position)))))
+ (setq len (- (overlay-start oov) beg))
+ (setq str (substring str 0 len)))
(let ((other-ov (cl-find-if
(lambda (o)
(and (eq (overlay-get o 'category) 'avy)
- [elpa] master updated (98073fe -> f727b53), Oleh Krehel, 2015/06/25
- [elpa] master fc93fe6 10/24: avy.el (avy-ignored-modes): New defcustom., Oleh Krehel, 2015/06/25
- [elpa] master 1350ab3 08/24: avy.el (avy-goto-char-in-line): Quote char, Oleh Krehel, 2015/06/25
- [elpa] master 27b3da3 11/24: avy.el (avy-goto-char-in-line): Fix to this window, Oleh Krehel, 2015/06/25
- [elpa] master 7b0ba80 19/24: avy.el (avy-style): Switch the default from 'pre to 'at-full, Oleh Krehel, 2015/06/25
- [elpa] master 8d38a89 23/24: avy.el (avy-goto-char-timer): Obey avy-styles-alist, Oleh Krehel, 2015/06/25
- [elpa] master 9ddde6d 06/24: avy.el (avy--overlay-at-full): Improve,
Oleh Krehel <=
- [elpa] master 44d76b9 22/24: Bump version to 0.3.0, Oleh Krehel, 2015/06/25
- [elpa] master 791c16c 02/24: avy.el (avy-goto-char-in-line): New command, Oleh Krehel, 2015/06/25
- [elpa] master 6dfa445 12/24: README.md: Mention a custom-command tutorial, Oleh Krehel, 2015/06/25
- [elpa] master 7376a0c 18/24: avy.el (avy--overlay-at-full): Fixup (for overlays-in), Oleh Krehel, 2015/06/25
- [elpa] master 15c7f9f 17/24: targets/avy-init.el: Use the new checkdoc-file, Oleh Krehel, 2015/06/25
- [elpa] master 035d663 14/24: Add `avy-translate-char-function' to translate user input key, Oleh Krehel, 2015/06/25
- [elpa] master 27b98bb 03/24: Add 'de-bruijn option for avy-style, Oleh Krehel, 2015/06/25
- [elpa] master a7c92d8 21/24: Updated screenshot image for ivy-goto-char., Oleh Krehel, 2015/06/25
- [elpa] master f727b53 24/24: Merge commit '8d38a898f23b3105c5d098f0cfb6c3383547e394' from avy, Oleh Krehel, 2015/06/25
- [elpa] master 02bf35b 13/24: Modify `at-full' and `de-bruijn' overlays to color depth, Oleh Krehel, 2015/06/25