diff options
| author | Chong Yidong <cyd@gnu.org> | 2012-07-18 22:00:09 +0800 |
|---|---|---|
| committer | Chong Yidong <cyd@gnu.org> | 2012-07-18 22:00:09 +0800 |
| commit | 4c8ff0fec3bdafa5d4bd3bc67ca7a9edb4be1e8f (patch) | |
| tree | 485428a34f2856587c0df6ecc344abc8dfb9a1f2 /lisp | |
| parent | 7f5331cc805b811678d03d7c9be6efe8966ecbfa (diff) | |
| download | emacs-4c8ff0fec3bdafa5d4bd3bc67ca7a9edb4be1e8f.tar.gz | |
* faces.el (face-spec-reset-face): Handle reverse video.
Fixes: debbugs:4238
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/faces.el | 8 |
2 files changed, 10 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 103f6dcfd5b..92148234226 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -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): diff --git a/lisp/faces.el b/lisp/faces.el index 68700c2455b..a5b29823b62 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -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)) |