From 4c8ff0fec3bdafa5d4bd3bc67ca7a9edb4be1e8f Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Wed, 18 Jul 2012 22:00:09 +0800 Subject: [PATCH] * faces.el (face-spec-reset-face): Handle reverse video. Fixes: debbugs:4238 --- lisp/ChangeLog | 4 ++++ 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 + + * faces.el (face-spec-reset-face): Handle reverse video (Bug#4238). + 2012-07-18 Masatake YAMATO * 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)) -- 2.39.2