Luj/eat-emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Don't let font-lock to mess up text face

Browse source 
* eat.el (eat--t-repeated-insert, eat--t-write)
(eat--t-fix-partial-multi-col-char): Add 'font-lock-face' text
property along with 'face' to stop font-lock from removing the
face.
This commit is contained in:
Akib Azmain Turja 2022-12-22 20:27:50 +06:00
parent fcc02df105
commit a4b20341b3
No known key found for this signature in database
GPG key ID: 5535FCF54D88616B
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
eat.el
View file

@ -678,6 +678,7 @@ Assume all characters occupy a single column."
(insert (if face (insert (if face
(let ((str (make-string n c))) (let ((str (make-string n c)))
(put-text-property 0 n 'face face str) (put-text-property 0 n 'face face str)
(put-text-property 0 n 'font-lock-face face str)
str) str)
;; Avoid the `let'. ;; Avoid the `let'.
(make-string n c)))) (make-string n c))))
@ -1278,7 +1279,7 @@ character or its the internal invisible spaces."
;; `delete-char' also works, but it does more checks, so ;; `delete-char' also works, but it does more checks, so
;; hopefully this will be faster. ;; hopefully this will be faster.
(delete-region (point) (1+ (point))) (delete-region (point) (1+ (point)))
(insert (propertize " " 'face face)) (insert (propertize " " 'face face 'font-lock-face face))
(backward-char))))) (backward-char)))))
(defconst eat--t-dec-line-drawing-chars (defconst eat--t-dec-line-drawing-chars
@ -1397,6 +1398,8 @@ character to actually show.")
(aset s i r))))) (aset s i r)))))
;; Add face. ;; Add face.
(put-text-property 0 (length s) 'face face s) (put-text-property 0 (length s) 'face face s)
(put-text-property
0 (length s) 'font-lock-face face s)
(insert s)) (insert s))
(setq inserted-till e) (setq inserted-till e)
(if (or (null next-multi-col) (if (or (null next-multi-col)
@ -1415,14 +1418,14 @@ character to actually show.")
;; its width. ;; its width.
(propertize (propertize
(make-string (1- (cdr next-multi-col)) ?\s) (make-string (1- (cdr next-multi-col)) ?\s)
'invisible t 'face face 'invisible t 'face face 'font-lock-face face
'eat--t-invisible-space t 'eat--t-invisible-space t
'eat--t-char-width (cdr next-multi-col)) 'eat--t-char-width (cdr next-multi-col))
;; Now insert the multi-column character. ;; Now insert the multi-column character.
(propertize (propertize
(substring str inserted-till (substring str inserted-till
(cl-incf inserted-till)) (cl-incf inserted-till))
'face face 'face face 'font-lock-face face
'eat--t-char-width (cdr next-multi-col)))) 'eat--t-char-width (cdr next-multi-col))))
(setf multi-col-char-indices (setf multi-col-char-indices
(cdr multi-col-char-indices)) (cdr multi-col-char-indices))