From a6dfe8e215c0d3958ad087f3bef4687528eab781 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sun, 4 Nov 2001 02:23:44 +0000 Subject: [PATCH] (all faces): Don't (copy-face 'default ). --- lisp/ChangeLog | 24 +++++++++++++++++------- lisp/term.el | 25 ------------------------- 2 files changed, 17 insertions(+), 32 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index bdc86812413..a89236cda5a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2001-11-03 Stefan Monnier + + * term.el (all faces): Don't (copy-face 'default ). + 2001-11-03 Eli Zaretskii * tooltip.el (tooltip-delay): Decrease to 0.7. @@ -10,9 +14,9 @@ 2001-11-03 Eli Zaretskii - * frame.el (set-background-color, set-foreground-color): Call - face-set-after-frame-default, to propagate the new colors to the - frame's parameters alist. + * frame.el (set-background-color, set-foreground-color): + Call face-set-after-frame-default, to propagate the new colors to + the frame's parameters alist. * calendar/timeclock.el (timeclock-out): Signal an error if timeclock-last-event is nil. @@ -32,6 +36,13 @@ * international/mule-cmds.el (locale-language-names): Add chs and cht as aliases for Chinese-GB and Chinese-BIG5. +2001-10-30 Stefan Monnier + + * progmodes/perl-mode.el (perl-indent-line): Use `eq' to compare + output of `char-after'. + + * progmodes/autoconf.el (autoconf-mode): Fix comment-start-skip. + 2001-10-30 Gerd Moellmann * international/iso-acc.el (iso-accents-compose): Remove a @@ -40,8 +51,8 @@ 2001-10-29 Eli Zaretskii * faces.el (invert-face): Check for 'unspecified, not for nil, - when testing whether face colors are not specified. From - David.Kastrup@t-online.de (David Kastrup). + when testing whether face colors are not specified. + From David.Kastrup@t-online.de (David Kastrup). 2001-10-29 Gerd Moellmann @@ -51,8 +62,7 @@ * enriched.el (enriched-face-ans): Handle face attributes of the form `(FACE1 FACE2 ...)'. - * dired-x.el (dired-omit-startup): Show ``Omit'' only in Dired - buffers. + * dired-x.el (dired-omit-startup): Show ``Omit'' only in Dired buffers. 2001-10-29 Alex Schroeder diff --git a/lisp/term.el b/lisp/term.el index f4591e16f4e..7311b09b2a0 100644 --- a/lisp/term.el +++ b/lisp/term.el @@ -736,31 +736,22 @@ Buffer local variable.") (make-face 'term-invisible) (make-face 'term-invisible-inv) - (copy-face 'default 'term-default-fg) - (copy-face 'default 'term-default-bg) (term-ignore-error (set-face-foreground 'term-default-fg term-default-fg-color)) (term-ignore-error (set-face-background 'term-default-bg term-default-bg-color)) - (copy-face 'default 'term-default-fg-inv) - (copy-face 'default 'term-default-bg-inv) (term-ignore-error (set-face-foreground 'term-default-fg-inv term-default-bg-color)) (term-ignore-error (set-face-background 'term-default-bg-inv term-default-fg-color)) - (copy-face 'default 'term-invisible) (term-ignore-error (set-face-background 'term-invisible term-default-bg-color)) - (copy-face 'default 'term-invisible-inv) (term-ignore-error (set-face-background 'term-invisible-inv term-default-fg-color)) - (copy-face 'default 'term-bold) - (copy-face 'default 'term-underline) - ;; Set the colors of the new faces. (term-ignore-error (make-face-bold 'term-bold)) @@ -778,28 +769,20 @@ Buffer local variable.") (make-face 'term-cyan) (make-face 'term-white) - (copy-face 'default 'term-black) (term-ignore-error (set-face-foreground 'term-black "black")) - (copy-face 'default 'term-red) (term-ignore-error (set-face-foreground 'term-red "red")) - (copy-face 'default 'term-green) (term-ignore-error (set-face-foreground 'term-green "green")) - (copy-face 'default 'term-yellow) (term-ignore-error (set-face-foreground 'term-yellow "yellow")) - (copy-face 'default 'term-blue) (term-ignore-error (set-face-foreground 'term-blue "blue")) - (copy-face 'default 'term-magenta) (term-ignore-error (set-face-foreground 'term-magenta "magenta")) - (copy-face 'default 'term-cyan) (term-ignore-error (set-face-foreground 'term-cyan "cyan")) - (copy-face 'default 'term-white) (term-ignore-error (set-face-foreground 'term-white "white")) @@ -813,28 +796,20 @@ Buffer local variable.") (make-face 'term-cyanbg) (make-face 'term-whitebg) - (copy-face 'default 'term-blackbg) (term-ignore-error (set-face-background 'term-blackbg "black")) - (copy-face 'default 'term-redbg) (term-ignore-error (set-face-background 'term-redbg "red")) - (copy-face 'default 'term-greenbg) (term-ignore-error (set-face-background 'term-greenbg "green")) - (copy-face 'default 'term-yellowbg) (term-ignore-error (set-face-background 'term-yellowbg "yellow")) - (copy-face 'default 'term-bluebg) (term-ignore-error (set-face-background 'term-bluebg "blue")) - (copy-face 'default 'term-magentabg) (term-ignore-error (set-face-background 'term-magentabg "magenta")) - (copy-face 'default 'term-cyanbg) (term-ignore-error (set-face-background 'term-cyanbg "cyan")) - (copy-face 'default 'term-whitebg) (term-ignore-error (set-face-background 'term-whitebg "white"))) -- 2.39.2