From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Juri Linkov Newsgroups: gmane.emacs.devel Subject: Re: Patch: goto-address minor modes Date: Wed, 14 Jan 2009 02:27:16 +0200 Organization: JURTA Message-ID: <87zlhuag0r.fsf@jurta.org> References: NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: ger.gmane.org 1231893040 19201 80.91.229.12 (14 Jan 2009 00:30:40 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Wed, 14 Jan 2009 00:30:40 +0000 (UTC) To: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Wed Jan 14 01:31:52 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 1LMtfj-00088X-Fk for ged-emacs-devel@m.gmane.org; Wed, 14 Jan 2009 01:31:51 +0100 Original-Received: from localhost ([127.0.0.1]:41665 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1LMteS-0004fR-Od for ged-emacs-devel@m.gmane.org; Tue, 13 Jan 2009 19:30:32 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1LMteN-0004fC-VM for emacs-devel@gnu.org; Tue, 13 Jan 2009 19:30:27 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1LMteL-0004f0-EL for emacs-devel@gnu.org; Tue, 13 Jan 2009 19:30:26 -0500 Original-Received: from [199.232.76.173] (port=39088 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1LMteL-0004ex-83 for emacs-devel@gnu.org; Tue, 13 Jan 2009 19:30:25 -0500 Original-Received: from relay03.kiev.sovam.com ([62.64.120.201]:54274) by monty-python.gnu.org with esmtps (TLS-1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1LMteK-0002fS-Ow for emacs-devel@gnu.org; Tue, 13 Jan 2009 19:30:24 -0500 Original-Received: from [83.170.232.243] (helo=smtp.svitonline.com) by relay03.kiev.sovam.com with esmtp (Exim 4.69) (envelope-from ) id 1LMteI-000Mnn-O8 for emacs-devel@gnu.org; Wed, 14 Jan 2009 02:30:22 +0200 In-Reply-To: (Reiner Steib's message of "Sat, 22 Mar 2008 18:47:24 +0100") User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/23.0.60 (x86_64-pc-linux-gnu) X-Scanner-Signature: eb35aeac2b84d7677a861f668fbe3b20 X-DrWeb-checked: yes X-detected-operating-system: by monty-python.gnu.org: Genre and OS details not recognized. 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:107836 Archived-At: goto-address-mode is now a minor mode like bug-reference-mode. bug-reference-mode uses the `link' face to highlight links, but goto-address-mode still uses `bold'. The following patch changes address urls to be highlighted in the `link' face. Also it takes a new minor mode into use in several places: Index: lisp/net/goto-addr.el =================================================================== RCS file: /sources/emacs/emacs/lisp/net/goto-addr.el,v retrieving revision 1.35 diff -u -r1.35 goto-addr.el --- lisp/net/goto-addr.el 5 Jan 2009 03:22:44 -0000 1.35 +++ lisp/net/goto-addr.el 14 Jan 2009 00:21:07 -0000 @@ -129,7 +129,7 @@ m) "Keymap to hold goto-addr's mouse key defs under highlighted URLs.") -(defcustom goto-address-url-face 'bold +(defcustom goto-address-url-face 'link "Face to use for URLs." :type 'face :group 'goto-address) Index: etc/MORE.STUFF =================================================================== RCS file: /sources/emacs/emacs/etc/MORE.STUFF,v retrieving revision 1.73 diff -u -r1.73 MORE.STUFF --- etc/MORE.STUFF 8 Jan 2009 05:11:57 -0000 1.73 +++ etc/MORE.STUFF 14 Jan 2009 00:21:35 -0000 @@ -270,7 +270,7 @@ Local Variables: mode: text mode: view -eval: (goto-address) +mode: goto-address End: This file is part of GNU Emacs. Index: lisp/help.el =================================================================== RCS file: /sources/emacs/emacs/lisp/help.el,v retrieving revision 1.345 diff -u -r1.345 help.el --- lisp/help.el 5 Jan 2009 03:19:17 -0000 1.345 +++ lisp/help.el 14 Jan 2009 00:23:37 -0000 @@ -294,7 +294,7 @@ (defun view-help-file (file &optional dir) (view-file (expand-file-name file (or dir data-directory))) - (goto-address) + (goto-address-mode t) (goto-char (point-min))) (defun describe-distribution () Index: lisp/menu-bar.el =================================================================== RCS file: /sources/emacs/emacs/lisp/menu-bar.el,v retrieving revision 1.349 diff -u -r1.349 menu-bar.el --- lisp/menu-bar.el 13 Jan 2009 13:58:13 -0000 1.349 +++ lisp/menu-bar.el 14 Jan 2009 00:23:54 -0000 @@ -1492,7 +1492,7 @@ (let (enable-local-variables) (view-file (expand-file-name "MORE.STUFF" data-directory)) - (goto-address))) + (goto-address-mode t))) (define-key menu-bar-help-menu [sep2] '("--")) (define-key menu-bar-help-menu [external-packages] -- Juri Linkov http://www.jurta.org/emacs/