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 | 62136c5d4bc770f6258f32b5c3b9d184569cb7c1 (patch) | |
| tree | e02691a5179b2f9babd92f28d18b12ac7d6b0e1f /lisp | |
| parent | a489517b882ba3927eae7b6c33a80b052e94ba8c (diff) | |
| download | emacs-62136c5d4bc770f6258f32b5c3b9d184569cb7c1.tar.gz | |
(term-bold-attribute): New var.
(term-handle-colors-array): Use it.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/term.el | 8 |
2 files changed, 11 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4a32655fa0a..b1378b18486 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -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. 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)))))) |