diff options
| author | Craig Earls <enderw88@gmail.com> | 2016-02-28 18:30:25 -0700 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2016-02-28 18:30:25 -0700 |
| commit | 432733de2d102274c158c7c01a96f1bbd45c4486 (patch) | |
| tree | 486c735dca092ea9698460ff9660168bace3b2f2 /lisp/ledger-reconcile.el | |
| parent | b7f84d69001f75a18807772dee514f5918e3a926 (diff) | |
| download | fork-ledger-432733de2d102274c158c7c01a96f1bbd45c4486.tar.gz fork-ledger-432733de2d102274c158c7c01a96f1bbd45c4486.tar.bz2 fork-ledger-432733de2d102274c158c7c01a96f1bbd45c4486.zip | |
Globally changed set-text-properties to use 'font-lock-face vice 'face. This was a compatibility problem with spacemacs.
Diffstat (limited to 'lisp/ledger-reconcile.el')
| -rw-r--r-- | lisp/ledger-reconcile.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lisp/ledger-reconcile.el b/lisp/ledger-reconcile.el index 7ac8f2c4..385b4736 100644 --- a/lisp/ledger-reconcile.el +++ b/lisp/ledger-reconcile.el @@ -236,19 +236,19 @@ And calculate the target-delta of the account being reconciled." ;; remove the existing face and add the new face (remove-text-properties (line-beginning-position) (line-end-position) - (list 'face)) + (list 'font-lock-face)) (cond ((eq status 'pending) (add-text-properties (line-beginning-position) (line-end-position) - (list 'face 'ledger-font-reconciler-pending-face ))) + (list 'font-lock-face 'ledger-font-reconciler-pending-face ))) ((eq status 'cleared) (add-text-properties (line-beginning-position) (line-end-position) - (list 'face 'ledger-font-reconciler-cleared-face ))) + (list 'font-lock-face 'ledger-font-reconciler-cleared-face ))) (t (add-text-properties (line-beginning-position) (line-end-position) - (list 'face 'ledger-font-reconciler-uncleared-face ))))) + (list 'font-lock-face 'ledger-font-reconciler-uncleared-face ))))) (forward-line) (beginning-of-line) (ledger-display-balance))) @@ -339,7 +339,7 @@ and exit reconcile mode if `ledger-reconcile-finish-force-quit'" (goto-char (point-min)) (while (not (eobp)) (let ((where (get-text-property (point) 'where)) - (face (get-text-property (point) 'face))) + (face (get-text-property (point) 'font-lock-face))) (if (eq face 'ledger-font-reconciler-pending-face) (with-current-buffer (ledger-reconcile-get-buffer where) (ledger-navigate-to-line (cdr where)) @@ -409,13 +409,13 @@ POSTING is used in `ledger-clear-whole-transactions' is nil." (if status (if (eq status 'pending) (set-text-properties beg (1- (point)) - (list 'face 'ledger-font-reconciler-pending-face + (list 'font-lock-face 'ledger-font-reconciler-pending-face 'where where)) (set-text-properties beg (1- (point)) - (list 'face 'ledger-font-reconciler-cleared-face + (list 'font-lock-face 'ledger-font-reconciler-cleared-face 'where where))) (set-text-properties beg (1- (point)) - (list 'face 'ledger-font-reconciler-uncleared-face + (list 'font-lock-face 'ledger-font-reconciler-uncleared-face 'where where)))) (defun ledger-reconcile-format-xact (xact fmt) |