diff options
| author | Craig Earls <enderw88@gmail.com> | 2013-07-19 16:41:56 -0700 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2013-07-19 16:41:56 -0700 |
| commit | 8b84aff855963b96c096e4338b4ff5cd6e2d2e68 (patch) | |
| tree | 0c7213784df8e26ac220af0593edc179c5b14601 /lisp/ledger-post.el | |
| parent | f16a83a66c7114a78a022872ac4e6295dc0b3118 (diff) | |
| parent | c8f5661c2ce6aaa4ecd8fb046d49f3441a11cb99 (diff) | |
| download | ledger-8b84aff855963b96c096e4338b4ff5cd6e2d2e68.tar.gz ledger-8b84aff855963b96c096e4338b4ff5cd6e2d2e68.tar.bz2 ledger-8b84aff855963b96c096e4338b4ff5cd6e2d2e68.zip | |
Merge branch 'master' into ledger-mode-automatic-transactions
Diffstat (limited to 'lisp/ledger-post.el')
| -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 cfef9450..3e9310a3 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) |