[Emacs-diffs] emacs/lisp ChangeLog term.el

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        09/09/24 01:20:40

Modified files:
        lisp           : ChangeLog term.el 

Log message:
        (term-bold-attribute): New var.
        (term-handle-colors-array): Use it.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16242&r2=1.16243
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/term.el?cvsroot=emacs&r1=1.118&r2=1.119

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16242
retrieving revision 1.16243
diff -u -b -r1.16242 -r1.16243
--- ChangeLog   23 Sep 2009 23:21:47 -0000      1.16242
+++ ChangeLog   24 Sep 2009 01:20:36 -0000      1.16243
@@ -1,3 +1,8 @@
+2009-09-24  Ivan Kanis  <address@hidden>
+
+       * term.el (term-bold-attribute): New var.
+       (term-handle-colors-array): Use it.
+
 2009-09-23  Nick Roberts  <address@hidden>
 
        * progmodes/gdb-mi.el (gdb-version): New variable.

Index: term.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/term.el,v
retrieving revision 1.118
retrieving revision 1.119
diff -u -b -r1.118 -r1.119
--- term.el     22 Aug 2009 19:29:25 -0000      1.118
+++ term.el     24 Sep 2009 01:20:40 -0000      1.119
@@ -3135,6 +3135,10 @@
 ;; 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 @@
                          (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 @@
                        (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))))))