diff options
| author | Craig Earls <enderw88@gmail.com> | 2013-07-15 11:51:01 -0700 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2013-07-15 11:51:01 -0700 |
| commit | c8f5661c2ce6aaa4ecd8fb046d49f3441a11cb99 (patch) | |
| tree | 329d4acf6f1f330e50b5a983c909b660830a082e | |
| parent | fff231bb1a7d3fc76faf345bea1c6e26b99c5905 (diff) | |
| parent | 515ae05d6b51d1488615f4fb09fb30fbd8181c3c (diff) | |
| download | fork-ledger-c8f5661c2ce6aaa4ecd8fb046d49f3441a11cb99.tar.gz fork-ledger-c8f5661c2ce6aaa4ecd8fb046d49f3441a11cb99.tar.bz2 fork-ledger-c8f5661c2ce6aaa4ecd8fb046d49f3441a11cb99.zip | |
Merge pull request #200 from errge/master
Change ledger-next-amount to be case-sensitive
| -rw-r--r-- | lisp/ledger-post.el | 11 |
1 files changed, 6 insertions, 5 deletions
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) |