Re: [PATCH] term.el make bold face customizable

[Dan Nicolaescu]

Ivan Kanis <address@hidden> writes:

  > Hi Dan,
  > 
  > Could you apply the following trivial patch?

I am against this kind of stuff.  Next we will have to add a way
customize something so that to not display the blue color for example?

You can modify the terminfo/termcap entry locally to not say that bold
is supported, then well behaved applications will not display bold.

You might want to try to convince Stefan to apply it.


  > Kind regards,
  > -- 
  > Ivan
  > Kanis http://kanis.fr
  > 
  > If you want others to be happy, practice compassion.
  > If you want to be happy, practice compassion.
  >     -- Dalai Lama 
  > 
  > --- 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))))))