[Emacs-diffs] /srv/bzr/emacs/trunk r109142: * faces.el (face-spec-reset-face): Handle reverse video.

[Chong Yidong]

------------------------------------------------------------
revno: 109142
fixes bug: http://debbugs.gnu.org/4238
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Wed 2012-07-18 22:00:09 +0800
message:
  * faces.el (face-spec-reset-face): Handle reverse video.
modified:
  lisp/ChangeLog
  lisp/faces.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-07-18 13:40:57 +0000
+++ b/lisp/ChangeLog    2012-07-18 14:00:09 +0000
@@ -1,3 +1,7 @@
+2012-07-18  Chong Yidong  <address@hidden>
+
+       * faces.el (face-spec-reset-face): Handle reverse video (Bug#4238).
+
 2012-07-18  Masatake YAMATO  <address@hidden>
 
        * progmodes/sh-script.el (sh-imenu-generic-expression):

=== modified file 'lisp/faces.el'
--- a/lisp/faces.el     2012-06-22 21:24:54 +0000
+++ b/lisp/faces.el     2012-07-18 14:00:09 +0000
@@ -1549,8 +1549,12 @@
                           (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))