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

Fixes: debbugs:4238

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