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

Fixes: debbugs:4238

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 103f6dcfd5ba7bf747a38f2006b46cb44241ba21..92148234226e4b2c4aaf8295900cbd56af967546 100644 (file)
--- 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 68700c2455bcf50e0ff66c2b7089f05bc704b2b1..a5b29823b6209bdb3951a4273cbc805354e515cb 100644 (file)
--- 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))