From: Richard M. Stallman Date: Sat, 29 Dec 2007 19:12:30 +0000 (+0000) Subject: (font-lock-prepend-text-property, font-lock-append-text-property): X-Git-Tag: emacs-pretest-22.1.90~208 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4fed1740bd3d843e21f18b4eac599c203f5378fa;p=emacs.git (font-lock-prepend-text-property, font-lock-append-text-property): Canonicalize the face and font-lock-face properties. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5da1bb7b6c6..0ab19236752 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,9 @@ 2007-12-29 Richard Stallman + * 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) diff --git a/lisp/font-lock.el b/lisp/font-lock.el index 6bc5fd8716f..bc7e7f1e325 100644 --- a/lisp/font-lock.el +++ b/lisp/font-lock.el @@ -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)