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.el make bold face customizable Date: Wed, 23 Sep 2009 15:16:26 +0200 Message-ID: <86ocp1hkd1.fsf@kanis.fr> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: ger.gmane.org 1253714575 2661 80.91.229.12 (23 Sep 2009 14:02:55 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Wed, 23 Sep 2009 14:02:55 +0000 (UTC) Cc: , emacs-devel@gnu.org To: Dan Nicolaescu Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Wed Sep 23 16:02:47 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 1MqSQ4-0004Zb-Gs for ged-emacs-devel@m.gmane.org; Wed, 23 Sep 2009 16:02:08 +0200 Original-Received: from localhost ([127.0.0.1]:38662 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1MqSQ4-0002Dq-3F for ged-emacs-devel@m.gmane.org; Wed, 23 Sep 2009 10:02:08 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1MqRia-0001vT-HO for emacs-devel@gnu.org; Wed, 23 Sep 2009 09:17:12 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1MqRiW-0001qP-Bx for emacs-devel@gnu.org; Wed, 23 Sep 2009 09:17:10 -0400 Original-Received: from [199.232.76.173] (port=58475 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1MqRiV-0001pt-KP for emacs-devel@gnu.org; Wed, 23 Sep 2009 09:17:07 -0400 Original-Received: from kanis.fr ([75.127.73.245]:1493) by monty-python.gnu.org with esmtps (TLS-1.0:RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1MqRiV-00063h-Bx for emacs-devel@gnu.org; Wed, 23 Sep 2009 09:17:07 -0400 Original-Received: from [89.83.137.164] (helo=tao) by kanis.fr with esmtpsa (TLS-1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.63) (envelope-from ) id 1MqRiO-00078s-2H; Wed, 23 Sep 2009 09:17:00 -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: Wed, 23 Sep 2009 10:01:14 -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:115548 Archived-At: --=-=-= Hi Dan, Could you apply the following trivial patch? 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 --=-=-= Content-Type: text/x-diff Content-Disposition: attachment; filename=term.patch --- 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)))))) --=-=-=--