|
|
|
@ -400,10 +400,13 @@ LEAF is (PT . WND)." |
|
|
|
(when (/= pt old-pt) |
|
|
|
(when (/= pt old-pt) |
|
|
|
(goto-char (+ pt 1)) |
|
|
|
(goto-char (+ pt 1)) |
|
|
|
(push (cons wnd old-pt) aw--windows-points))) |
|
|
|
(push (cons wnd old-pt) aw--windows-points))) |
|
|
|
(overlay-put ol 'display (aw--overlay-str wnd pt path)) |
|
|
|
;; this is where we would need to add a display-margin thingie |
|
|
|
(if (window-minibuffer-p wnd) |
|
|
|
(overlay-put ol 'before-string |
|
|
|
(overlay-put ol 'face 'aw-minibuffer-leading-char-face) |
|
|
|
(propertize "." 'display |
|
|
|
(overlay-put ol 'face 'aw-leading-char-face)) |
|
|
|
`((margin left-margin) |
|
|
|
|
|
|
|
,(propertize |
|
|
|
|
|
|
|
(concat " " (aw--overlay-str wnd pt path)) |
|
|
|
|
|
|
|
'face (if (window-minibuffer-p wnd) 'aw-minibuffer-leading-char-face 'aw-leading-char-face))))) |
|
|
|
(overlay-put ol 'window wnd) |
|
|
|
(overlay-put ol 'window wnd) |
|
|
|
(push ol avy--overlays-lead))))) |
|
|
|
(push ol avy--overlays-lead))))) |
|
|
|
|
|
|
|
|
|
|
|
|