Mercurial > emacs

changeset 40454:ce83eda9592d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(invert-face): Check for 'unspecified, not for nil, when testing whether face colors are not specified. From David.Kastrup@t-online.de (David Kastrup).
author Eli Zaretskii <eliz@gnu.org>
date Mon, 29 Oct 2001 18:06:50 +0000
parents bf8760ceda7c
children 69a18e3f6fbe
files lisp/faces.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/faces.el	Mon Oct 29 17:53:18 2001 +0000
+++ b/lisp/faces.el	Mon Oct 29 18:06:50 2001 +0000
@@ -824,14 +824,14 @@
 
 (defun invert-face (face &optional frame)
   "Swap the foreground and background colors of FACE.
-FRAME nil or not specified means change face on all frames.
+If FRAME is omitted or nil, it means change face on all frames.
 If FACE specifies neither foreground nor background color,
 set its foreground and background to the background and foreground
 of the default face.  Value is FACE."
   (interactive (list (read-face-name "Invert face ")))
   (let ((fg (face-attribute face :foreground frame))
 	(bg (face-attribute face :background frame)))
-    (if (or fg bg)
+    (if (not (and (eq fg 'unspecified) (eq bg 'unspecified)))
 	(set-face-attribute face frame :foreground bg :background fg)
       (set-face-attribute face frame
 			  :foreground