comparison lisp/term.el @ 56684:39cc1e82deb1

(term-default-fg-color, term-default-bg-color) (ansi-term-color-vector): Use `unspecified', not nil, as default.

56683:dee43d88905e

(defvar term-terminal-previous-parameter-4 -1)
;;;

;;; faces -mm

(defcustom term-default-fg-color nil
  "Default color for foreground in `term'."
  :group 'term
  :type 'string)

(defcustom term-default-bg-color nil
  "Default color for background in `term'."
  :group 'term
  :type 'string)

(defvar ansi-term-color-vector
  [nil "black" "red" "green" "yellow" "blue"
   "magenta" "cyan" "white"])

;;; Inspiration came from comint.el -mm
(defvar term-buffer-maximum-size 2048
  "*The maximum size in lines for term buffers.

		    (append '(:weight bold) term-current-face)))
	  (if (= term-ansi-current-underline 1)
	      (setq term-current-face
		    (append '(:underline t) term-current-face))))))

;	(message "Debug %S" term-current-face)

  (setq term-ansi-face-already-done 0))


;;; Handle a character assuming (eq terminal-state 2) -
;;; i.e. we have previously seen Escape followed by ?[.

56684:39cc1e82deb1

(defvar term-terminal-previous-parameter-4 -1)
;;;

;;; faces -mm

(defcustom term-default-fg-color 'unspecified
  "Default color for foreground in `term'."
  :group 'term
  :type 'string)

(defcustom term-default-bg-color 'unspecified
  "Default color for background in `term'."
  :group 'term
  :type 'string)

(defvar ansi-term-color-vector
  [unspecified "black" "red" "green" "yellow" "blue"
   "magenta" "cyan" "white"])

;;; Inspiration came from comint.el -mm
(defvar term-buffer-maximum-size 2048
  "*The maximum size in lines for term buffers.

		    (append '(:weight bold) term-current-face)))
	  (if (= term-ansi-current-underline 1)
	      (setq term-current-face
		    (append '(:underline t) term-current-face))))))

;;;	(message "Debug %S" term-current-face)
  (setq term-ansi-face-already-done 0))


;;; Handle a character assuming (eq terminal-state 2) -
;;; i.e. we have previously seen Escape followed by ?[.