From f56b29eb4b5077c9bfc14211f947d920738cc1fc Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Wed, 15 Feb 2006 20:36:27 +0000 Subject: Added "=" to the character set used to scan for dates at the beginning of lines, to accomodate virtual dates. (This came from the mailing list, thanks guys). --- ledger.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/ledger.el b/ledger.el index 9d06dbe1..70f38b1e 100644 --- a/ledger.el +++ b/ledger.el @@ -67,7 +67,7 @@ (defvar bold 'bold) (defvar ledger-font-lock-keywords - '(("^[0-9./]+\\s-+\\(?:([^)]+)\\s-+\\)?\\([^*].+\\)" 1 bold) + '(("^[0-9./=]+\\s-+\\(?:([^)]+)\\s-+\\)?\\([^*].+\\)" 1 bold) ("^\\s-+.+?\\( \\|\t\\|\\s-+$\\)" . font-lock-keyword-face)) "Default expressions to highlight in Ledger mode.") @@ -184,7 +184,7 @@ Return the difference in the format of a time value." (save-excursion (when (or (looking-at "^[0-9]") (re-search-backward "^[0-9]" nil t)) - (skip-chars-forward "0-9./") + (skip-chars-forward "0-9./=") (delete-horizontal-space) (if (member (char-after) '(?\* ?\!)) (progn @@ -215,7 +215,7 @@ dropped." ;; transaction (save-excursion (goto-char (car bounds)) - (skip-chars-forward "0-9./ \t") + (skip-chars-forward "0-9./= \t") (setq cleared (and (member (char-after) '(?\* ?\!)) (char-after))) (when cleared @@ -297,7 +297,7 @@ dropped." (insert (make-string width ? )))))) (forward-line)) (goto-char (car bounds)) - (skip-chars-forward "0-9./ \t") + (skip-chars-forward "0-9./= \t") (insert state " ") (if (search-forward " " (line-end-position) t) (delete-char 2))))) -- cgit v1.2.3