Mercurial > emacs

changeset 40697:2f6568a7aee9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Stefan Monnier <monnier@iro.umontreal.ca>
date Sun, 04 Nov 2001 02:20:18 +0000
parents 252078b1b84d
children 7d5b0d5f95c3
files lisp/term.el
diffstat 1 files changed, 1 insertions(+), 25 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/term.el	Sun Nov 04 02:13:57 2001 +0000
+++ b/lisp/term.el	Sun Nov 04 02:20:18 2001 +0000
@@ -732,31 +732,22 @@
   (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))
@@ -774,28 +765,20 @@
   (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"))
 
@@ -809,28 +792,20 @@
   (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")))
 
@@ -1455,6 +1430,7 @@
 	       (format "TERMINFO=%s" data-directory)
 	    (format term-termcap-format "TERMCAP="
 		    term-term-name term-height term-width))
+	   ;; Breaks `./configure' of w3 and url which try to run $EMACS.
 	   (format "EMACS=%s (term:%s)" emacs-version term-protocol-version)
 	   (format "LINES=%d" term-height)
 	   (format "COLUMNS=%d" term-width))