ld/avy
1
0
Fork 0
mirror of https://github.com/abo-abo/avy.git synced 2025-10-13 21:33:05 +00:00
Code Issues Packages Projects Releases Wiki Activity

avy-jump.el (avy--line): Avoid image-mode and doc-view-mode

Browse Source 
Fixes #1
This commit is contained in:
Oleh Krehel 2015-05-07 13:02:20 +02:00
parent e9d2e60965
commit 974e55b792
1 changed files with 12 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
avy-jump.el
View File

@ -339,17 +339,18 @@ The window scope is determined by `avy-all-windows' (ARG negates it)."
(window-list) (window-list)
(list (selected-window)))) (list (selected-window))))
(with-selected-window wnd (with-selected-window wnd
(let ((ws (window-start))) (unless (memq major-mode '(image-mode doc-view-mode))
(save-excursion (let ((ws (window-start)))
(save-restriction (save-excursion
(narrow-to-region ws (window-end (selected-window) t)) (save-restriction
(goto-char (point-min)) (narrow-to-region ws (window-end (selected-window) t))
(while (< (point) (point-max)) (goto-char (point-min))
(unless (get-char-property (while (< (point) (point-max))
(max (1- (point)) ws) 'invisible) (unless (get-char-property
(push (cons (point) (selected-window)) (max (1- (point)) ws) 'invisible)
candidates)) (push (cons (point) (selected-window))
(forward-line 1))))))) candidates))
(forward-line 1))))))))
(avy--process (nreverse candidates) #'avy--overlay-pre))) (avy--process (nreverse candidates) #'avy--overlay-pre)))
;;;###autoload ;;;###autoload