From: Chong Yidong <cyd@gnu.org>
Date: Wed, 18 Jul 2012 14:00:09 +0000 (+0800)
Subject: * faces.el (face-spec-reset-face): Handle reverse video.
X-Git-Tag: emacs-24.2.90~1146
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4c8ff0fec3bdafa5d4bd3bc67ca7a9edb4be1e8f;p=emacs.git

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

Fixes: debbugs:4238
---

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