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

Merge pull request #200 from errge/master

Browse source 
Change ledger-next-amount to be case-sensitive
This commit is contained in:
Craig Earls 2013-07-15 11:51:01 -07:00
commit c8f5661c2c
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/ledger-post.el
View file

@ -117,11 +117,12 @@ to choose from."
Return the width of the amount field as an integer and leave
point at beginning of the commodity."
;;(beginning-of-line)
(when (re-search-forward ledger-amount-regex end t)
(goto-char (match-beginning 0))
(skip-syntax-forward " ")
(- (or (match-end 4)
(match-end 3)) (point))))
(let ((case-fold-search nil))
(when (re-search-forward ledger-amount-regex end t)
(goto-char (match-beginning 0))
(skip-syntax-forward " ")
(- (or (match-end 4)
(match-end 3)) (point)))))
(defun ledger-next-account (&optional end)