mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases Activity

(term-bold-attribute): New var.

Browse Source 
(term-handle-colors-array): Use it.
This commit is contained in:
Stefan Monnier 2009-09-24 01:20:36 +00:00
parent a489517b88
commit 62136c5d4b
2 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -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.

8
lisp/term.el
View File

@ -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))))))