Globally changed set-text-properties to use 'font-lock-face vice 'face. This was a compatibility problem with spacemacs.

7 files changed, 14 insertions, 14 deletions

diff --git a/lisp/ledger-check.el b/lisp/ledger-check.el
index 8eed34ed..bd37e3a6 100644
--- a/lisp/ledger-check.el
+++ b/lisp/ledger-check.el
@@ -85,7 +85,7 @@
                                                                    (ledger-navigate-to-line line)
                                                                    (point-marker))))))
           (add-text-properties (line-beginning-position) (line-end-position)
-                               (list 'face 'ledger-font-report-clickable-face))
+                               (list 'font-lock-face 'ledger-font-report-clickable-face))
           (setq have-warnings 'true)
           (end-of-line))))
     (if (not have-warnings)
diff --git a/lisp/ledger-fontify.el b/lisp/ledger-fontify.el
index 076e52b7..b06fff2a 100644
--- a/lisp/ledger-fontify.el
+++ b/lisp/ledger-fontify.el
@@ -193,7 +193,7 @@ Fontify the first line of an xact"
 
 (defun ledger-fontify-set-face (extents face)
   "Set the text in EXTENTS to FACE."
-  (put-text-property (car extents) (cadr extents) 'face face))
+  (put-text-property (car extents) (cadr extents) 'font-lock-face face))
 
 
 (provide 'ledger-fontify)
diff --git a/lisp/ledger-occur.el b/lisp/ledger-occur.el
index 0df2f1a9..24cb623d 100644
--- a/lisp/ledger-occur.el
+++ b/lisp/ledger-occur.el
@@ -108,7 +108,7 @@ currently active."
 (defun ledger-occur-make-visible-overlay (beg end)
   (let ((ovl (make-overlay beg end (current-buffer))))
     (overlay-put ovl ledger-occur-overlay-property-name t)
-    (overlay-put ovl 'face 'ledger-occur-xact-face)))
+    (overlay-put ovl 'font-lock-face 'ledger-occur-xact-face)))
 
 (defun ledger-occur-make-invisible-overlay (beg end)
   (let ((ovl (make-overlay beg end (current-buffer))))
diff --git a/lisp/ledger-post.el b/lisp/ledger-post.el
index 973f2260..39bc6b26 100644
--- a/lisp/ledger-post.el
+++ b/lisp/ledger-post.el
@@ -170,7 +170,7 @@ regular text."
   (cond
    ((nth 4 (syntax-ppss))
     (call-interactively 'ledger-post-align-postings)
-    (fill-paragraph))
+    (fill-paragraph 0))
    ((use-region-p) (call-interactively 'ledger-post-align-postings))
    (t (call-interactively 'ledger-post-align-xact))))
 
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)
diff --git a/lisp/ledger-report.el b/lisp/ledger-report.el
index 83c287eb..6ef23115 100644
--- a/lisp/ledger-report.el
+++ b/lisp/ledger-report.el
@@ -355,7 +355,7 @@ Optional EDIT the command."
                                                                      (ledger-navigate-to-line line)
                                                                      (point-marker))))))
             (add-text-properties (line-beginning-position) (line-end-position)
-                                 (list 'face 'ledger-font-report-clickable-face))
+                                 (list 'font-lock-face 'ledger-font-report-clickable-face))
             (end-of-line)))))
     (goto-char data-pos)))
 
diff --git a/lisp/ledger-xact.el b/lisp/ledger-xact.el
index f3721e9e..636330e2 100644
--- a/lisp/ledger-xact.el
+++ b/lisp/ledger-xact.el
@@ -54,7 +54,7 @@
 
 (defun ledger-highlight-make-overlay ()
   (let ((ovl (make-overlay 1 1)))
-    (overlay-put ovl 'face 'ledger-font-xact-highlight-face)
+    (overlay-put ovl 'font-lock-face 'ledger-font-xact-highlight-face)
     (overlay-put ovl 'priority '(nil . 99))
     ovl))