Fix previous shr-parse-style change

* lisp/net/shr.el (shr-parse-style): Fix previous clean-up here
(which wasn't well thought through).

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 63522b02ace8a402f81a060504ee32756c4884e2..829cf151f7994414ca585d930f64df556519b2e7 100644 (file)
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -1431,9 +1431,7 @@ ones, in case fg and bg are nil."
 
 (defun shr-parse-style (style)
   (when style
-    (save-match-data
-      (when (string-search "\n" style)
-        (setq style (replace-match " " t t style))))
+    (setq style (replace-regexp-in-string "\n" " " style))
     (let ((plist nil))
       (dolist (elem (split-string style ";"))
        (when elem