(term-bold-attribute): New var.

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

(term-bold-attribute): New var.
(term-handle-colors-array): Use it.
62136c5d · Stefan Monnier · a489517b · 62136c5d · 62136c5d
Commit 62136c5d authored Sep 24, 2009 by Stefan Monnier
Hide whitespace changes
Inline Side-by-side

Showing with 11 additions and 2 deletions

lisp/ChangeLog lisp/ChangeLog +5 -0

lisp/term.el lisp/term.el +6 -2

No files found.
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
+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
+++ 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))))))