diff options
| author | Stefan Monnier | 2001-11-04 02:20:18 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2001-11-04 02:20:18 +0000 |
| commit | f7e339ec1f0d78085b57ec5fa8864e82f56c9043 (patch) | |
| tree | fc6d7a9b0876920af032bd1e213d4f4a5d3a464c | |
| parent | 2c73848224539d29c35b38cbda6e58a8cd90c095 (diff) | |
| download | emacs-f7e339ec1f0d78085b57ec5fa8864e82f56c9043.tar.gz emacs-f7e339ec1f0d78085b57ec5fa8864e82f56c9043.zip | |
*** empty log message ***
| -rw-r--r-- | lisp/term.el | 26 |
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)) |