diff options
| author | Craig Earls <enderw88@gmail.com> | 2014-12-02 06:30:41 -0700 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2014-12-02 06:30:41 -0700 |
| commit | eba603293bfa299777d7c7107716fc9da4fa43bc (patch) | |
| tree | 6fa3247576f77479bc52a9905ff16ce539d73d95 /lisp | |
| parent | c844170aed4caad47b7607b6284b8b6a35d54908 (diff) | |
| download | fork-ledger-eba603293bfa299777d7c7107716fc9da4fa43bc.tar.gz fork-ledger-eba603293bfa299777d7c7107716fc9da4fa43bc.tar.bz2 fork-ledger-eba603293bfa299777d7c7107716fc9da4fa43bc.zip | |
Adjust payee line fortification.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ledger-fontify.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/ledger-fontify.el b/lisp/ledger-fontify.el index d5979841..a598cf91 100644 --- a/lisp/ledger-fontify.el +++ b/lisp/ledger-fontify.el @@ -51,6 +51,7 @@ (defun ledger-fontify-xact-at (position) "Fontify the xact at POS." + (interactive "d") (save-excursion (goto-char position) (let ((extents (ledger-navigate-find-element-extents position)) @@ -83,9 +84,10 @@ Fontify the first line of an xact" (cur-point (point))) (re-search-forward " ") (ledger-fontify-set-face (list cur-point (point)) 'ledger-font-posting-date-face) + (beginning-of-line) (re-search-forward ledger-xact-after-date-regex) (save-match-data (setq state (ledger-state-from-string (match-string 1))) - (ledger-fontify-set-face (list (match-beginning 3) (match-end 3)) + (ledger-fontify-set-face (list (match-beginning 1) (match-end 3)) (cond ((eq state 'pending) 'ledger-font-payee-pending-face) ((eq state 'cleared) |