[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r109142: * faces.el (face-spec-reset-
From: |
Chong Yidong |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r109142: * faces.el (face-spec-reset-face): Handle reverse video. |
Date: |
Wed, 18 Jul 2012 22:00:09 +0800 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r109142: * faces.el (face-spec-reset-face): Handle reverse video.,
Chong Yidong <=