mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-05-01 02:31:23 -07:00
Code Issues Projects Releases Wiki Activity

*** empty log message ***

Browse source
This commit is contained in:
Stefan Monnier 2001-11-04 02:20:18 +00:00
parent 2c73848224
commit f7e339ec1f
1 changed files with 1 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

26
lisp/term.el
View file

@ -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))