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 Return the width of the amount field as an integer and leave
point at beginning of the commodity." point at beginning of the commodity."
;;(beginning-of-line) ;;(beginning-of-line)
(when (re-search-forward ledger-amount-regex end t) (let ((case-fold-search nil))
(goto-char (match-beginning 0)) (when (re-search-forward ledger-amount-regex end t)
(skip-syntax-forward " ") (goto-char (match-beginning 0))
(- (or (match-end 4) (skip-syntax-forward " ")
(match-end 3)) (point)))) (- (or (match-end 4)
(match-end 3)) (point)))))
(defun ledger-next-account (&optional end) (defun ledger-next-account (&optional end)