Mercurial > emacs

comparison lisp/term.el @ 89966:d8411455de48

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-32 Merge from emacs--cvs-trunk--0 Patches applied: * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-486 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-487 Tweak permissions * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-488 - miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-489 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-490 Update from CVS: man/fixit.texi (Spelling): Fix typo. * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-491 - miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-494 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-495 Update from CVS: Add missing lisp/mh-e files * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-496 - miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-499 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-500 - miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-513 Update from CVS
author Miles Bader <miles@gnu.org>
date Fri, 27 Aug 2004 07:00:34 +0000
parents 68c22ea6027c 39cc1e82deb1
children cce1c0ee76ee
comparison
equal deleted inserted replaced
89965:5e9097d1ad99 89966:d8411455de48
703 (defvar term-terminal-previous-parameter-4 -1) 703 (defvar term-terminal-previous-parameter-4 -1)
704 ;;; 704 ;;;
705 705
706 ;;; faces -mm 706 ;;; faces -mm
707 707
708 (defcustom term-default-fg-color nil 708 (defcustom term-default-fg-color 'unspecified
709 "Default color for foreground in `term'." 709 "Default color for foreground in `term'."
710 :group 'term 710 :group 'term
711 :type 'string) 711 :type 'string)
712 712
713 (defcustom term-default-bg-color nil 713 (defcustom term-default-bg-color 'unspecified
714 "Default color for background in `term'." 714 "Default color for background in `term'."
715 :group 'term 715 :group 'term
716 :type 'string) 716 :type 'string)
717 717
718 (defvar ansi-term-color-vector 718 (defvar ansi-term-color-vector
719 [nil "black" "red" "green" "yellow" "blue" 719 [unspecified "black" "red" "green" "yellow" "blue"
720 "magenta" "cyan" "white"]) 720 "magenta" "cyan" "white"])
721 721
722 ;;; Inspiration came from comint.el -mm 722 ;;; Inspiration came from comint.el -mm
723 (defvar term-buffer-maximum-size 2048 723 (defvar term-buffer-maximum-size 2048
724 "*The maximum size in lines for term buffers. 724 "*The maximum size in lines for term buffers.
3076 (append '(:weight bold) term-current-face))) 3076 (append '(:weight bold) term-current-face)))
3077 (if (= term-ansi-current-underline 1) 3077 (if (= term-ansi-current-underline 1)
3078 (setq term-current-face 3078 (setq term-current-face
3079 (append '(:underline t) term-current-face)))))) 3079 (append '(:underline t) term-current-face))))))
3080 3080
3081 ; (message "Debug %S" term-current-face) 3081 ;;; (message "Debug %S" term-current-face)
3082
3083 (setq term-ansi-face-already-done 0)) 3082 (setq term-ansi-face-already-done 0))
3084 3083
3085 3084
3086 ;;; Handle a character assuming (eq terminal-state 2) - 3085 ;;; Handle a character assuming (eq terminal-state 2) -
3087 ;;; i.e. we have previously seen Escape followed by ?[. 3086 ;;; i.e. we have previously seen Escape followed by ?[.