From 67ada220af08d704fa30196ea5b8660dc088b832 Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Wed, 25 Jul 2012 12:46:59 +0200 Subject: [PATCH] Fixes: debbugs:12042 * faces.el (face-spec-reset-face): Fix last change. --- lisp/ChangeLog | 4 ++++ lisp/faces.el | 14 +++++++------- 2 files changed, 11 insertions(+), 7 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 95f59c65fc7..a773e158e3c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2012-07-25 Andreas Schwab + + * faces.el (face-spec-reset-face): Fix last change. (Bug#12042) + 2012-07-25 Christopher Schmidt * emacs-lisp/pp.el (pp-display-expression): Select old selected diff --git a/lisp/faces.el b/lisp/faces.el index a5b29823b62..2e1ba7798e9 100644 --- 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)) -- 2.11.4.GIT