mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-04 22:50:59 -08:00
Code Issues Projects Releases Wiki Activity

* faces.el (face-spec-reset-face): Handle reverse video.

Browse source 
Fixes: debbugs:4238
This commit is contained in:
Chong Yidong 2012-07-18 22:00:09 +08:00
parent 7f5331cc80
commit 4c8ff0fec3
2 changed files with 10 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,3 +1,7 @@
2012-07-18 Chong Yidong <cyd@gnu.org>
* faces.el (face-spec-reset-face): Handle reverse video (Bug#4238).
2012-07-18 Masatake YAMATO <yamato@redhat.com>
* progmodes/sh-script.el (sh-imenu-generic-expression):

8
lisp/faces.el
View file

@ -1549,8 +1549,12 @@ If SPEC is nil, return nil."
(display-graphic-p frame))
'(:family "default" :foundry "default" :width normal
:height 1 :weight normal :slant normal
:foreground "unspecified-fg"
:background "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))