From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Ivan Kanis Newsgroups: gmane.emacs.devel Subject: PATCH term optional bold Date: Fri, 11 Sep 2009 15:36:07 +0200 Message-ID: <87pr9x61tk.fsf@kanis.fr> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: ger.gmane.org 1252681344 741 80.91.229.12 (11 Sep 2009 15:02:24 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Fri, 11 Sep 2009 15:02:24 +0000 (UTC) Cc: emacs-devel@gnu.org To: Dan Nicolaescu , Per Bothner Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Fri Sep 11 17:02:16 2009 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1Mm7dg-0001Af-0J for ged-emacs-devel@m.gmane.org; Fri, 11 Sep 2009 17:02:16 +0200 Original-Received: from localhost ([127.0.0.1]:59568 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Mm7df-0005rv-8O for ged-emacs-devel@m.gmane.org; Fri, 11 Sep 2009 11:02:15 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1Mm6K0-0006UM-Vm for emacs-devel@gnu.org; Fri, 11 Sep 2009 09:37:53 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1Mm6K0-0006U2-0B for emacs-devel@gnu.org; Fri, 11 Sep 2009 09:37:52 -0400 Original-Received: from [199.232.76.173] (port=37434 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Mm6Jz-0006Tz-SK for emacs-devel@gnu.org; Fri, 11 Sep 2009 09:37:51 -0400 Original-Received: from kanis.fr ([75.127.73.245]:1473) by monty-python.gnu.org with esmtps (TLS-1.0:RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1Mm6Jz-00022f-F0 for emacs-devel@gnu.org; Fri, 11 Sep 2009 09:37:51 -0400 Original-Received: from if02t2-89-83-137-164.d4.club-internet.fr ([89.83.137.164] helo=zen) by kanis.fr with esmtpsa (TLS-1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.63) (envelope-from ) id 1Mm6Jq-0001ST-SM; Fri, 11 Sep 2009 09:37:43 -0400 User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/23.1 (gnu/linux) X-detected-operating-system: by monty-python.gnu.org: Genre and OS details not recognized. X-Mailman-Approved-At: Fri, 11 Sep 2009 11:01:59 -0400 X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:115190 Archived-At: Hello, This small patch make optional the usage of bold attribute in term. I have signed the emacs paper for contributing code. Kind regards, Ivan Kanis http://kanis.fr diff -r fbdd847e04eb lisp/misc/term.el --- a/lisp/misc/term.el Fri Sep 11 14:36:54 2009 +0200 +++ b/lisp/misc/term.el Fri Sep 11 14:59:23 2009 +0200 @@ -476,11 +476,13 @@ (defvar term-old-mode-line-format) ;; Saves old mode-line-format while paging. (defvar term-pager-old-local-map nil) ;; Saves old keymap while paging. (defvar term-pager-old-filter) ;; Saved process-filter while paging. - (defcustom explicit-shell-file-name nil "If non-nil, is file name to use for explicitly requested inferior shell." :type '(choice (const nil) file) :group 'term) + +(defvar term-enable-bold t + "Set to nil to disable bold") (defvar term-prompt-regexp "^" "Regexp to recognize prompts in the inferior process. @@ -3227,7 +3229,8 @@ (if (= term-ansi-current-bg-color 0) term-default-bg-color (elt ansi-term-color-vector term-ansi-current-bg-color)))) - (when term-ansi-current-bold + (when (and term-ansi-current-bold + term-enable-bold) (setq term-current-face (append '(:weight bold) term-current-face))) (when term-ansi-current-underline @@ -3255,7 +3258,8 @@ (if (= term-ansi-current-bg-color 0) term-default-bg-color (elt ansi-term-color-vector term-ansi-current-bg-color)))) - (when term-ansi-current-bold + (when (and term-ansi-current-bold + term-enable-bold) (setq term-current-face (append '(:weight bold) term-current-face))) (when term-ansi-current-underline