Commit 1110d53b authored by Lars Magne Ingebrigtsen's avatar Lars Magne Ingebrigtsen Committed by Katsumi Yamaoka
Browse files

shr.el (shr-tag-font): Resurrect shr-tag-font again, since it's needed to...

shr.el (shr-tag-font): Resurrect shr-tag-font again, since it's needed to parse <font color="red"> entries.
parent 094ae2ab
......@@ -2,6 +2,8 @@
 
* shr.el (shr-insert-color-overlay): Split stuff like
"#444444 !important" to find the real colour.
(shr-tag-font): Resurrect shr-tag-font again, since it's needed to
parse <font color="red"> entries.
 
2010-11-23 Andrew Cohen <cohen@andy.bu.edu>
 
......
......@@ -702,6 +702,12 @@ START, and END."
(shr-ensure-newline)
(insert (make-string shr-width shr-hr-line) "\n"))
(defun shr-tag-font (cont)
(let ((start (point))
(color (cdr (assq :color cont))))
(shr-generic cont)
(shr-insert-color-overlay color start (point))))
;;; Table rendering algorithm.
;; Table rendering is the only complicated thing here. We do this by
......
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