shr: replace newline with space in style parsing

Signed-off-by: Julien Danjou <julien@danjou.info>

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 33ccd98..94a2761 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2010-11-23  Julien Danjou  <julien@danjou.info>
 
+       * shr.el (shr-parse-style): Replace \n with space in style parsing.
+
        * shr-color.el (shr-color-hsl-to-rgb-fractions): Use shr-color-hue-to-rgb.
        (shr-color->hexadecimal): Call shr-color-hsl-to-rgb-fractions.
 

diff --git a/lisp/shr.el b/lisp/shr.el
index 21bfdd3..1efa31a 100644 (file)
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -540,6 +540,9 @@ START, and END."
 
 (defun shr-parse-style (style)
   (when style
+    (save-match-data
+      (when (string-match "\n" style)
+        (setq style (replace-match " " t t style))))
     (let ((plist nil))
       (dolist (elem (split-string style ";"))
        (when elem