diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2009-09-24 01:20:36 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2009-09-24 01:20:36 +0000 |
| commit | 69dcbf65e39a2a308bdaa5ae1d9e4de7cfb7c727 (patch) | |
| tree | 6eec24e1bd876f1f321adcb66f72012535a23192 /lisp/term.el | |
| parent | 1567e47dd8b752e7cbaa1238175aea162788a0b8 (diff) | |
| download | emacs-69dcbf65e39a2a308bdaa5ae1d9e4de7cfb7c727.tar.gz | |
(term-bold-attribute): New var.
(term-handle-colors-array): Use it.
Diffstat (limited to 'lisp/term.el')
| -rw-r--r-- | lisp/term.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/term.el b/lisp/term.el index 295f1e8d379..5a9caa34acd 100644 --- a/lisp/term.el +++ b/lisp/term.el @@ -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)))))) |