Fixes: debbugs:12042

* faces.el (face-spec-reset-face): Fix last change.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 95f59c6..a773e15 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2012-07-25  Andreas Schwab  <schwab@linux-m68k.org>
+
+       * faces.el (face-spec-reset-face): Fix last change.  (Bug#12042)
+
 2012-07-25  Christopher Schmidt  <christopher@ch.ristopher.com>
 
        * emacs-lisp/pp.el (pp-display-expression): Select old selected

diff --git a/lisp/faces.el b/lisp/faces.el
index a5b2982..2e1ba77 100644 (file)
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -1547,14 +1547,14 @@ If SPEC is nil, return nil."
              ;; temacs, prior to loading frame.el.
              (unless (and (fboundp 'display-graphic-p)
                           (display-graphic-p frame))
-               '(:family "default" :foundry "default" :width normal
+               `(:family "default" :foundry "default" :width normal
                  :height 1 :weight normal :slant normal
-                 :foreground (if (frame-parameter nil 'reverse)
-                                 "unspecified-bg"
-                               "unspecified-fg")
-                 :background (if (frame-parameter nil 'reverse)
-                                 "unspecified-fg"
-                               "unspecified-bg"))))
+                 :foreground ,(if (frame-parameter nil 'reverse)
+                                  "unspecified-bg"
+                                "unspecified-fg")
+                 :background ,(if (frame-parameter nil 'reverse)
+                                  "unspecified-fg"
+                                "unspecified-bg"))))
           ;; For all other faces, unspecify all attributes.
           (apply 'append
                  (mapcar (lambda (x) (list (car x) 'unspecified))