aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2001-11-04 02:20:18 +0000
committerStefan Monnier2001-11-04 02:20:18 +0000
commitf7e339ec1f0d78085b57ec5fa8864e82f56c9043 (patch)
treefc6d7a9b0876920af032bd1e213d4f4a5d3a464c
parent2c73848224539d29c35b38cbda6e58a8cd90c095 (diff)
downloademacs-f7e339ec1f0d78085b57ec5fa8864e82f56c9043.tar.gz
emacs-f7e339ec1f0d78085b57ec5fa8864e82f56c9043.zip
*** empty log message ***
-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.")
732 (make-face 'term-invisible) 732 (make-face 'term-invisible)
733 (make-face 'term-invisible-inv) 733 (make-face 'term-invisible-inv)
734 734
735 (copy-face 'default 'term-default-fg)
736 (copy-face 'default 'term-default-bg)
737 (term-ignore-error 735 (term-ignore-error
738 (set-face-foreground 'term-default-fg term-default-fg-color)) 736 (set-face-foreground 'term-default-fg term-default-fg-color))
739 (term-ignore-error 737 (term-ignore-error
740 (set-face-background 'term-default-bg term-default-bg-color)) 738 (set-face-background 'term-default-bg term-default-bg-color))
741 739
742 (copy-face 'default 'term-default-fg-inv)
743 (copy-face 'default 'term-default-bg-inv)
744 (term-ignore-error 740 (term-ignore-error
745 (set-face-foreground 'term-default-fg-inv term-default-bg-color)) 741 (set-face-foreground 'term-default-fg-inv term-default-bg-color))
746 (term-ignore-error 742 (term-ignore-error
747 (set-face-background 'term-default-bg-inv term-default-fg-color)) 743 (set-face-background 'term-default-bg-inv term-default-fg-color))
748 744
749 (copy-face 'default 'term-invisible)
750 (term-ignore-error 745 (term-ignore-error
751 (set-face-background 'term-invisible term-default-bg-color)) 746 (set-face-background 'term-invisible term-default-bg-color))
752 747
753 (copy-face 'default 'term-invisible-inv)
754 (term-ignore-error 748 (term-ignore-error
755 (set-face-background 'term-invisible-inv term-default-fg-color)) 749 (set-face-background 'term-invisible-inv term-default-fg-color))
756 750
757 (copy-face 'default 'term-bold)
758 (copy-face 'default 'term-underline)
759
760 ;; Set the colors of the new faces. 751 ;; Set the colors of the new faces.
761 (term-ignore-error 752 (term-ignore-error
762 (make-face-bold 'term-bold)) 753 (make-face-bold 'term-bold))
@@ -774,28 +765,20 @@ Buffer local variable.")
774 (make-face 'term-cyan) 765 (make-face 'term-cyan)
775 (make-face 'term-white) 766 (make-face 'term-white)
776 767
777 (copy-face 'default 'term-black)
778 (term-ignore-error 768 (term-ignore-error
779 (set-face-foreground 'term-black "black")) 769 (set-face-foreground 'term-black "black"))
780 (copy-face 'default 'term-red)
781 (term-ignore-error 770 (term-ignore-error
782 (set-face-foreground 'term-red "red")) 771 (set-face-foreground 'term-red "red"))
783 (copy-face 'default 'term-green)
784 (term-ignore-error 772 (term-ignore-error
785 (set-face-foreground 'term-green "green")) 773 (set-face-foreground 'term-green "green"))
786 (copy-face 'default 'term-yellow)
787 (term-ignore-error 774 (term-ignore-error
788 (set-face-foreground 'term-yellow "yellow")) 775 (set-face-foreground 'term-yellow "yellow"))
789 (copy-face 'default 'term-blue)
790 (term-ignore-error 776 (term-ignore-error
791 (set-face-foreground 'term-blue "blue")) 777 (set-face-foreground 'term-blue "blue"))
792 (copy-face 'default 'term-magenta)
793 (term-ignore-error 778 (term-ignore-error
794 (set-face-foreground 'term-magenta "magenta")) 779 (set-face-foreground 'term-magenta "magenta"))
795 (copy-face 'default 'term-cyan)
796 (term-ignore-error 780 (term-ignore-error
797 (set-face-foreground 'term-cyan "cyan")) 781 (set-face-foreground 'term-cyan "cyan"))
798 (copy-face 'default 'term-white)
799 (term-ignore-error 782 (term-ignore-error
800 (set-face-foreground 'term-white "white")) 783 (set-face-foreground 'term-white "white"))
801 784
@@ -809,28 +792,20 @@ Buffer local variable.")
809 (make-face 'term-cyanbg) 792 (make-face 'term-cyanbg)
810 (make-face 'term-whitebg) 793 (make-face 'term-whitebg)
811 794
812 (copy-face 'default 'term-blackbg)
813 (term-ignore-error 795 (term-ignore-error
814 (set-face-background 'term-blackbg "black")) 796 (set-face-background 'term-blackbg "black"))
815 (copy-face 'default 'term-redbg)
816 (term-ignore-error 797 (term-ignore-error
817 (set-face-background 'term-redbg "red")) 798 (set-face-background 'term-redbg "red"))
818 (copy-face 'default 'term-greenbg)
819 (term-ignore-error 799 (term-ignore-error
820 (set-face-background 'term-greenbg "green")) 800 (set-face-background 'term-greenbg "green"))
821 (copy-face 'default 'term-yellowbg)
822 (term-ignore-error 801 (term-ignore-error
823 (set-face-background 'term-yellowbg "yellow")) 802 (set-face-background 'term-yellowbg "yellow"))
824 (copy-face 'default 'term-bluebg)
825 (term-ignore-error 803 (term-ignore-error
826 (set-face-background 'term-bluebg "blue")) 804 (set-face-background 'term-bluebg "blue"))
827 (copy-face 'default 'term-magentabg)
828 (term-ignore-error 805 (term-ignore-error
829 (set-face-background 'term-magentabg "magenta")) 806 (set-face-background 'term-magentabg "magenta"))
830 (copy-face 'default 'term-cyanbg)
831 (term-ignore-error 807 (term-ignore-error
832 (set-face-background 'term-cyanbg "cyan")) 808 (set-face-background 'term-cyanbg "cyan"))
833 (copy-face 'default 'term-whitebg)
834 (term-ignore-error 809 (term-ignore-error
835 (set-face-background 'term-whitebg "white"))) 810 (set-face-background 'term-whitebg "white")))
836 811
@@ -1455,6 +1430,7 @@ buffer. The hook term-exec-hook is run after each exec."
1455 (format "TERMINFO=%s" data-directory) 1430 (format "TERMINFO=%s" data-directory)
1456 (format term-termcap-format "TERMCAP=" 1431 (format term-termcap-format "TERMCAP="
1457 term-term-name term-height term-width)) 1432 term-term-name term-height term-width))
1433 ;; Breaks `./configure' of w3 and url which try to run $EMACS.
1458 (format "EMACS=%s (term:%s)" emacs-version term-protocol-version) 1434 (format "EMACS=%s (term:%s)" emacs-version term-protocol-version)
1459 (format "LINES=%d" term-height) 1435 (format "LINES=%d" term-height)
1460 (format "COLUMNS=%d" term-width)) 1436 (format "COLUMNS=%d" term-width))