From 515ae05d6b51d1488615f4fb09fb30fbd8181c3c Mon Sep 17 00:00:00 2001 From: Gergely Risko Date: Fri, 12 Jul 2013 01:07:25 +0200 Subject: Change ledger-next-amount to be case-sensitive Otherwise if there is an account that's name only has one part, the regex can match it as a currency and as the beginning of an amount. E.g. if we have the line "Expenses 45 USD", then the old ledger-next-amount will jump to Expenses instead of to 45. --- lisp/ledger-post.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) (limited to 'lisp/ledger-post.el') diff --git a/lisp/ledger-post.el b/lisp/ledger-post.el index 447a34f8..5d30e954 100644 --- a/lisp/ledger-post.el +++ b/lisp/ledger-post.el @@ -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) -- cgit v1.2.3