mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity

Fixes: debbugs:12042

Browse Source 
* faces.el (face-spec-reset-face): Fix last change.
This commit is contained in:
Andreas Schwab 2012-07-25 12:46:59 +02:00
parent f08088e354
commit 67ada220af
2 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -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

14
lisp/faces.el
View File

@ -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))