Skip to content

Instantly share code, notes, and snippets.

@ataka

ataka/mark-blog-entry.el

Created February 17, 2012 04:35
Show Gist options
  • Save ataka/1850706 to your computer and use it in GitHub Desktop.
Save ataka/1850706 to your computer and use it in GitHub Desktop.
Download ZIP
Mark blog entry
Raw
mark-blog-entry.el
(defun mark-blog-entry ()
(interactive)
(search-forward "<title>")
(forward-line -1)
(skip-chars-backward " \n")
(forward-line)
(push-mark nil t t)
(search-backward "<title>")
(forward-line)
(point))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment