mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-03 11:33:37 +00:00
Code Issues Releases Activity

(font-lock-prepend-text-property, font-lock-append-text-property):

Browse Source 
Canonicalize the face and font-lock-face properties.
This commit is contained in:
Richard M. Stallman 2007-12-29 19:12:30 +00:00
parent 20d29b0bbc
commit 4fed1740bd
2 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,5 +1,9 @@
2007-12-29 Richard Stallman <rms@gnu.org>
* font-lock.el (font-lock-prepend-text-property)
(font-lock-append-text-property): Canonicalize the face and
font-lock-face properties.
* faces.el (facep): Doc fix.
* startup.el (fancy-startup-tail, fancy-about-text)

12
lisp/font-lock.el
View File

@ -1295,6 +1295,12 @@ Optional argument OBJECT is the string or buffer containing the text."
(while (/= start end)
(setq next (next-single-property-change start prop object end)
prev (get-text-property start prop object))
;; Canonicalize old forms of face property.
(and (memq prop '(face font-lock-face))
(listp prev)
(or (keywordp (car prev))
(memq (car prev) '(foreground-color background-color)))
(setq prev (list prev)))
(put-text-property start next prop
(append val (if (listp prev) prev (list prev)))
object)
@ -1309,6 +1315,12 @@ Optional argument OBJECT is the string or buffer containing the text."
(while (/= start end)
(setq next (next-single-property-change start prop object end)
prev (get-text-property start prop object))
;; Canonicalize old forms of face property.
(and (memq prop '(face font-lock-face))
(listp prev)
(or (keywordp (car prev))
(memq (car prev) '(foreground-color background-color)))
(setq prev (list prev)))
(put-text-property start next prop
(append (if (listp prev) prev (list prev)) val)
object)