summaryrefslogtreecommitdiff
path: root/lisp/term.el
diff options
context:
space:
mode:
authorStefan Monnier <monnier@iro.umontreal.ca>2001-11-04 02:20:18 +0000
committerStefan Monnier <monnier@iro.umontreal.ca>2001-11-04 02:20:18 +0000
commitf7e339ec1f0d78085b57ec5fa8864e82f56c9043 (patch)
treefc6d7a9b0876920af032bd1e213d4f4a5d3a464c /lisp/term.el
parent2c73848224539d29c35b38cbda6e58a8cd90c095 (diff)
downloademacs-f7e339ec1f0d78085b57ec5fa8864e82f56c9043.tar.gz
*** empty log message ***
Diffstat (limited to 'lisp/term.el')
-rw-r--r--lisp/term.el26
1 files changed, 1 insertions, 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))