procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

shr.el (shr-put-color-1): Do not bug out when old-props is a face symbol and not a list.

Browse source
This commit is contained in:
Julien Danjou 2011-05-10 13:20:21 +00:00 • committed by Katsumi Yamaoka
parent 2f142cc515
commit 296d197b34
2 changed files with 9 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/gnus/ChangeLog
View file

@ -1,3 +1,8 @@
2011-05-10 Julien Danjou <julien@danjou.info>
* shr.el (shr-put-color-1): Do not bug out when old-props is a face
symbol and not a list.
2011-05-10 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-art.el (gnus-article-mode): Move binding of

6
lisp/gnus/shr.el
View file

@ -716,7 +716,8 @@ ones, in case fg and bg are nil."
(defun shr-put-color-1 (start end type color)
(let* ((old-props (get-text-property start 'face))
(do-put (not (memq type old-props)))
(do-put (and (listp old-props)
(not (memq type old-props))))
change)
(while (< start end)
(setq change (next-single-property-change start 'face nil end))
@ -724,7 +725,8 @@ ones, in case fg and bg are nil."
(put-text-property start change 'face
(nconc (list type color) old-props)))
(setq old-props (get-text-property change 'face))
(setq do-put (not (memq type old-props)))
(setq do-put (and (listp old-props)
(not (memq type old-props))))
(setq start change))
(when (and do-put
(> end start))