Re: Patch: goto-address minor modes

[Juri Linkov <juri@jurta.org>]

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/