From c5f0b2d42dd572e21d44480007e621097ed14b8c Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 7 Jan 1997 09:05:31 +0000 Subject: [PATCH] (invert-face): Handle inverting the default face better. --- lisp/faces.el | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/lisp/faces.el b/lisp/faces.el index 797581318d2..6d1e195b140 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -598,12 +598,14 @@ set its foreground and background to the default background and foreground." (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) -- 2.39.5