Skip to content

Instantly share code, notes, and snippets.

@milkypostman

milkypostman/*scratch*.el

Created May 10, 2013 19:54
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 milkypostman/5556949 to your computer and use it in GitHub Desktop.
Save milkypostman/5556949 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
*scratch*.el
(let ((prev 0)
(cur)
(str (concat (propertize "test" 'face 'mode-line) " -- " (propertize "rest" 'face 'default)))
(out '(0)))
(while (setq cur (next-single-property-change prev 'face str))
(message (substring str prev cur))
(setq prev cur)
)
(message (substring str prev)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment