egg-980402.

[elisp/egg.git] / its.el

diff --git a/its.el b/its.el
index 89c5bd2..4aff32b 100644 (file)
--- a/its.el
+++ b/its.el
@@ -470,7 +470,7 @@
                                 'read-only t
                                 'intangible 'its-part-1))
       (if its-fence-face
-         (put-text-property p (point) 'face (its-get-fence-face)))
+         (egg-set-face p (point) (its-get-fence-face)))
       (its-set-cursor-status cursor))))
 
 (defun its-buffer-delete-SYL (syl)
@@ -936,7 +936,7 @@ Return last state."
       (put-text-property p (point) 'its-syl (cons syl syl))
       (if its-fence-face
          (let ((its-current-language (get-text-property p 'egg-lang)))
-           (put-text-property p (point) 'face (its-get-fence-face)))))
+           (egg-set-face p (point) (its-get-fence-face)))))
     (if yank-before
        (add-text-properties start end '(read-only t intangible its-part-1))
       (add-text-properties start end '(read-only t intangible its-part-2))