diff options
| author | Chong Yidong <cyd@gnu.org> | 2012-07-18 22:00:09 +0800 |
|---|---|---|
| committer | Chong Yidong <cyd@gnu.org> | 2012-07-18 22:00:09 +0800 |
| commit | 4c8ff0fec3bdafa5d4bd3bc67ca7a9edb4be1e8f (patch) | |
| tree | 485428a34f2856587c0df6ecc344abc8dfb9a1f2 /lisp/faces.el | |
| parent | 7f5331cc805b811678d03d7c9be6efe8966ecbfa (diff) | |
| download | emacs-4c8ff0fec3bdafa5d4bd3bc67ca7a9edb4be1e8f.tar.gz | |
* faces.el (face-spec-reset-face): Handle reverse video.
Fixes: debbugs:4238
Diffstat (limited to 'lisp/faces.el')
| -rw-r--r-- | lisp/faces.el | 8 |
1 files changed, 6 insertions, 2 deletions
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)) |