From f7e339ec1f0d78085b57ec5fa8864e82f56c9043 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sun, 4 Nov 2001 02:20:18 +0000 Subject: [PATCH] *** empty log message *** --- lisp/term.el | 26 +------------------------- 1 file changed, 1 insertion(+), 25 deletions(-) diff --git a/lisp/term.el b/lisp/term.el index 7410edc5652..76b0a09a70d 100644 --- a/lisp/term.el +++ b/lisp/term.el @@ -732,31 +732,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)) @@ -774,28 +765,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")) @@ -809,28 +792,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"))) @@ -1455,6 +1430,7 @@ buffer. The hook term-exec-hook is run after each exec." (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)) -- 2.39.2