Skip to content

Instantly share code, notes, and snippets.

@zeph1e

zeph1e/right-window-margin-overlay.el

Created July 12, 2017 12:56
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save zeph1e/5ec72dcab591b4c4deae6f1ec9dc9221 to your computer and use it in GitHub Desktop.
Save zeph1e/5ec72dcab591b4c4deae6f1ec9dc9221 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
right-window-margin-overlay.el
(save-excursion
(setq xx-overlay (make-overlay (1+ (line-beginning-position)) (line-end-position)
nil t))
(overlay-put xx-overlay 'wrap-prefix t)
(overlay-put xx-overlay 'before-string
(propertize "o" 'display (list (list 'margin 'right-margin)
"Overlay text")
)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment