Commit 7f13406b authored by Lars Magne Ingebrigtsen's avatar Lars Magne Ingebrigtsen
Browse files

* net/shr.el (add-face-text-property): Removed compat definition.

parent d29bf51c
2013-06-27 Lars Magne Ingebrigtsen <larsi@gnus.org>
* net/shr.el (add-face-text-property): Removed compat definition.
2013-06-27 Stephen Berman <stephen.berman@gmx.net>
* obsolete/otodo-mode.el: Add obsolescence info to file header.
......
......@@ -1606,27 +1606,6 @@ ones, in case fg and bg are nil."
(shr-count (cdr row) 'th))))))
max))
;; Emacs less than 24.3
(unless (fboundp 'add-face-text-property)
(defun add-face-text-property (beg end face &optional appendp object)
"Combine FACE BEG and END."
(let ((b beg))
(while (< b end)
(let ((oldval (get-text-property b 'face)))
(put-text-property
b (setq b (next-single-property-change b 'face nil end))
'face (cond ((null oldval)
face)
((and (consp oldval)
(not (keywordp (car oldval))))
(if appendp
(nconc oldval (list face))
(cons face oldval)))
(t
(if appendp
(list oldval face)
(list face oldval))))))))))
(provide 'shr)
;; Local Variables:
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment