Mercurial > emacs
changeset 105169:1d903e2f65af
(term-bold-attribute): New var.
(term-handle-colors-array): Use it.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Thu, 24 Sep 2009 01:20:36 +0000 |
| parents | ef22b4450c43 |
| children | f8ba8d6fd250 |
| files | lisp/ChangeLog lisp/term.el |
| diffstat | 2 files changed, 11 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Thu Sep 24 01:04:27 2009 +0000 +++ b/lisp/ChangeLog Thu Sep 24 01:20:36 2009 +0000 @@ -1,3 +1,8 @@ +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.
--- a/lisp/term.el Thu Sep 24 01:04:27 2009 +0000 +++ b/lisp/term.el Thu Sep 24 01:20:36 2009 +0000 @@ -3135,6 +3135,10 @@ ;; 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 @@ (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 @@ (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))))))