(all faces): Don't (copy-face 'default <foo>).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bdc86812413829011decf92dea65bce2dc861dc2..a89236cda5a89ed3b11a59129348cd341085f6cf 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2001-11-03  Stefan Monnier  <monnier@cs.yale.edu>
+
+       * term.el (all faces): Don't (copy-face 'default <foo>).
+
 2001-11-03  Eli Zaretskii  <eliz@is.elta.co.il>
 
        * tooltip.el (tooltip-delay): Decrease to 0.7.
@@ -10,9 +14,9 @@
 
 2001-11-03  Eli Zaretskii  <eliz@is.elta.co.il>
 
-       * 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  <monnier@cs.yale.edu>
+
+       * 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  <gerd@gnu.org>
 
        * international/iso-acc.el (iso-accents-compose): Remove a
@@ -40,8 +51,8 @@
 2001-10-29  Eli Zaretskii  <eliz@is.elta.co.il>
 
        * 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  <gerd@gnu.org>
 
@@ -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  <kensanata@yahoo.com>
 

diff --git a/lisp/term.el b/lisp/term.el
index f4591e16f4ee29b2b1505335036916bc31ed3503..7311b09b2a0950cd28cd602c3ded01758ac8df0f 100644 (file)
--- 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")))