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

Fix the at-full style interaction with tabs

Browse Source 
* avy.el (avy--overlay-at-full): When at tab, visualize it using
  `tab-width' spaces. Assume the path is shorter than `tab-width'.

Fixes #43
This commit is contained in:
Oleh Krehel 2015-05-17 13:44:17 +02:00
parent 4b4b7b46f1
commit dc06220ba0
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
avy.el
View File

@ -453,7 +453,11 @@ LEAF is normally ((BEG . END) . WND)."
(setq len 1))
(let* ((end (if (= beg (line-end-position))
(1+ beg)
(min (+ beg len) (line-end-position))))
(min (+ beg
(if (eq (char-after) ?\t)
1
len))
(line-end-position))))
(ol (make-overlay
beg end
(current-buffer)))
@ -463,9 +467,13 @@ LEAF is normally ((BEG . END) . WND)."
old-str 'face 'avy-background-face)))
(overlay-put ol 'window wnd)
(overlay-put ol 'category 'avy)
(overlay-put ol 'display (if (string= old-str "\n")
(concat str "\n")
str))
(overlay-put ol 'display
(cond ((string= old-str "\n")
(concat str "\n"))
((string= old-str "\t")
(concat str (make-string (- tab-width len) ?\ )))
(t
str)))
(push ol avy--overlays-lead))))))
(defun avy--overlay-post (path leaf)