Skip to content

GitLab

Commit 62136c5d authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(term-bold-attribute): New var. 

(term-handle-colors-array): Use it.
parent a489517b
Hide whitespace changes
Inline Side-by-side
Showing with 11 additions and 2 deletions
lisp/ChangeLog
View file @ 62136c5d
2009-09-24 Ivan Kanis <apple@kanis.eu>
* term.el (term-bold-attribute): New var.
(term-handle-colors-array): Use it.
2009-09-23 Nick Roberts <nickrob@snap.net.nz>
* progmodes/gdb-mi.el (gdb-version): New variable.
......
lisp/term.el
View file @ 62136c5d
......@@ -3135,6 +3135,10 @@ See `term-prompt-regexp'."
;; New function to deal with ansi colorized output, as you can see you can
;; have any bold/underline/fg/bg/reverse combination. -mm
(defvar term-bold-attribute '(:weight bold))
"Attribute to use for the bold terminal attribute.
Set it to nil to disable bold.")
(defun term-handle-colors-array (parameter)
(cond
......@@ -3231,7 +3235,7 @@ See `term-prompt-regexp'."
(elt ansi-term-color-vector term-ansi-current-bg-color))))
(when term-ansi-current-bold
(setq term-current-face
(append '(:weight bold) term-current-face)))
(append term-bold-attribute term-current-face)))
(when term-ansi-current-underline
(setq term-current-face
(append '(:underline t) term-current-face))))
......@@ -3259,7 +3263,7 @@ See `term-prompt-regexp'."
(elt ansi-term-color-vector term-ansi-current-bg-color))))
(when term-ansi-current-bold
(setq term-current-face
(append '(:weight bold) term-current-face)))
(append term-bold-attribute term-current-face)))
(when term-ansi-current-underline
(setq term-current-face
(append '(:underline t) term-current-face))))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment