diff options
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | 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 <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)) |