sfos/ledger
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Bug 884. Highlight first line of file

Browse source
This commit is contained in:
Craig Earls 2013-02-20 16:13:27 -07:00
parent c7dd499a73
commit f54c15bdf5
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/ldg-xact.el
View file

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