'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)
(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))