--- tmp/term.el	2009-09-23 15:04:37.000000000 +0200
+++ hg/lisp/misc/term.el	2009-09-23 15:10:06.000000000 +0200
@@ -482,6 +482,9 @@
   :type '(choice (const nil) file)
   :group 'term)
 
+(defvar term-bold-attribute '(:weight bold)
+  "Set to '(:weight normal) to disable bold")
+
 (defvar term-prompt-regexp "^"
   "Regexp to recognize prompts in the inferior process.
 Defaults to \"^\", the null string at BOL.
@@ -3228,8 +3231,8 @@
 			    term-default-bg-color
 			  (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)))
+	      (setq 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))))
@@ -3257,7 +3260,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))))))