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 | |
| parent | f16a83a66c7114a78a022872ac4e6295dc0b3118 (diff) | |
| parent | c8f5661c2ce6aaa4ecd8fb046d49f3441a11cb99 (diff) | |
| download | fork-ledger-8b84aff855963b96c096e4338b4ff5cd6e2d2e68.tar.gz fork-ledger-8b84aff855963b96c096e4338b4ff5cd6e2d2e68.tar.bz2 fork-ledger-8b84aff855963b96c096e4338b4ff5cd6e2d2e68.zip | |
Merge branch 'master' into ledger-mode-automatic-transactions
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ledger-mode.el | 2 | ||||
| -rw-r--r-- | lisp/ledger-post.el | 11 |
2 files changed, 7 insertions, 6 deletions
diff --git a/lisp/ledger-mode.el b/lisp/ledger-mode.el index 6ad9baf7..be1a7775 100644 --- a/lisp/ledger-mode.el +++ b/lisp/ledger-mode.el @@ -175,7 +175,7 @@ Can indent, complete or align depending on context." (ledger-schedule-check-available) (ledger-post-setup) - (set (make-local-variable 'comment-start) " ; ") + (set (make-local-variable 'comment-start) "; ") (set (make-local-variable 'comment-end) "") (set (make-local-variable 'indent-tabs-mode) nil) 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) |