diff options
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) |