diff options
| author | Andreas Schwab <schwab@linux-m68k.org> | 2012-07-25 12:46:59 +0200 |
|---|---|---|
| committer | Andreas Schwab <schwab@linux-m68k.org> | 2012-07-25 12:46:59 +0200 |
| commit | 67ada220af08d704fa30196ea5b8660dc088b832 (patch) | |
| tree | 429872a4038e2e92763e1b016ba859b5d19e0623 /lisp/faces.el | |
| parent | f08088e354f5933e0df618c80ccbf2635bb45bef (diff) | |
| download | emacs-67ada220af08d704fa30196ea5b8660dc088b832.tar.gz | |
Fixes: debbugs:12042
* faces.el (face-spec-reset-face): Fix last change.
Diffstat (limited to 'lisp/faces.el')
| -rw-r--r-- | lisp/faces.el | 14 |
1 files changed, 7 insertions, 7 deletions
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)) |