(term-bold-attribute): New var.

(term-handle-colors-array): Use it.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4a32655fa0adf826e88fb58f19d787c807005265..b1378b184867dd9ed9a1d71f8df11e91af0fd34a 100644 (file)
--- 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 295f1e8d3794e0da485595a14cdaf81ce5b4c022..5a9caa34acd54af55fb7287d1407ec37a61e036c 100644 (file)
--- 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))))))