From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 24 Jun 1996 16:53:55 +0000 (+0000)
Subject: (goto-address-url-face, goto-address-mail-face)
X-Git-Tag: emacs-19.34~360
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8d36235ff612aada0a47406c62ed7fc8ada33920;p=emacs.git

(goto-address-url-face, goto-address-mail-face)
(goto-address-url-mouse-face): New variables.
(goto-address-fontify): Use them.
---

diff --git a/lisp/goto-addr.el b/lisp/goto-addr.el
index 30f7eca8137..4c40232df42 100644
--- a/lisp/goto-addr.el
+++ b/lisp/goto-addr.el
@@ -106,6 +106,18 @@ and `goto-address-send-using-mh-e' (MH-E).")
     m)
   "keymap to hold goto-addr's mouse key defs under highlighted URLs.")
 
+(defvar goto-address-url-face 'bold
+  "*Face to use for URLs.")
+
+(defvar goto-address-url-mouse-face 'highlight
+  "*Face to use for URLs when the mouse is on them.")
+
+(defvar goto-address-mail-face 'italic
+  "*Face to use for e-mail addresses.")
+
+(defvar goto-address-mail-mouse-face 'secondary-selection
+  "*Face to use for e-mail addresses when the mouse is on them.")
+
 (defun goto-address-fontify ()
   "Fontify the URL's and e-mail addresses in the current buffer.
 This function implements `goto-address-highlight-p'
@@ -120,22 +132,18 @@ and `goto-address-fontify-p'."
 	    (while (re-search-forward goto-address-url-regexp nil t)
               (let ((s (match-beginning 0))
                     (e (match-end 0)))
-		(goto-char e)
 		(and goto-address-fontify-p
-		     (put-text-property s e 'face 'bold))
-		(put-text-property s e 'mouse-face 'highlight)
+		     (put-text-property s e 'face goto-address-url-face))
+		(put-text-property s e 'mouse-face goto-address-url-mouse-face)
 		(put-text-property
 		 s e 'local-map goto-address-highlight-keymap)))
 	    (goto-char (point-min))
 	    (while (re-search-forward goto-address-mail-regexp nil t)
               (let ((s (match-beginning 0))
                     (e (match-end 0)))
-		(goto-char (match-end 0))
 		(and goto-address-fontify-p
-		     (put-text-property (match-beginning 0) (match-end 0)
-					'face 'italic))
-		(put-text-property (match-beginning 0) (match-end 0)
-				   'mouse-face 'secondary-selection)
+		     (put-text-property s e 'face goto-address-mail-face))
+		(put-text-property s e 'mouse-face goto-address-mail-mouse-face)
 		(put-text-property
 		 s e 'local-map goto-address-highlight-keymap)))))
       (and (buffer-modified-p)