Bug 884. Highlight first line of file

This commit is contained in:
Craig Earls 2013-02-20 16:13:27 -07:00
parent c7dd499a73
commit f54c15bdf5

View file

@ -42,7 +42,8 @@ within the transaction."
(let ((end-pos pos)
(beg-pos pos))
(backward-paragraph)
(forward-line)
(if (/= (point) (point-min))
(forward-line))
(beginning-of-line)
(setq beg-pos (point))
(forward-paragraph)