# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 852627931 0
# Node ID 5c964321c440d83afad8e22cb2553c858ceff61f
# Parent  299b0e0f0a934336fa53b8be4b001c501a047d8e
(invert-face): Handle inverting the default face better.

diff -r 299b0e0f0a93 -r 5c964321c440 lisp/faces.el
--- a/lisp/faces.el	Tue Jan 07 09:03:23 1997 +0000
+++ b/lisp/faces.el	Tue Jan 07 09:05:31 1997 +0000
@@ -598,12 +598,14 @@
 	(progn
 	  (set-face-foreground face bg frame)
 	  (set-face-background face fg frame))
-      (set-face-foreground face (or (face-background 'default frame)
-				    (cdr (assq 'background-color (frame-parameters frame))))
-			   frame)
-      (set-face-background face (or (face-foreground 'default frame)
-				    (cdr (assq 'foreground-color (frame-parameters frame))))
-			   frame)))
+      (let* ((frame-bg (cdr (assq 'background-color (frame-parameters frame))))
+	     (default-bg (or (face-background 'default frame)
+			     frame-bg))
+	     (frame-fg (cdr (assq 'foreground-color (frame-parameters frame))))
+	     (default-fg (or (face-foreground 'default frame)
+			     frame-fg)))
+	(set-face-foreground face default-bg frame)
+	(set-face-background face default-fg frame))))
   face)