shr: replace deprecated syntax

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0433579..abbe82c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2010-11-24  Julien Danjou  <julien@danjou.info>
 
+       * shr.el (shr-insert-color-overlay): Replace deprecated syntax.
+
        * shr-color.el (shr-color-visible): Really return original background
        if fixed.
 

diff --git a/lisp/shr.el b/lisp/shr.el
index 36c8d70..57b9cea 100644 (file)
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -507,7 +507,7 @@ START, and END."
     (let ((new-color (cadr (shr-color-check color))))
       (when new-color
        (overlay-put (make-overlay start end) 'face
-                    (cons 'foreground-color new-color))))))
+                    (list :foreground new-color))))))
 
 ;;; Tag-specific rendering rules.