# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1131114733 0
# Node ID 0ade01371c2e64b3a8bf80792d333a89fd6af978
# Parent  4e54f245caa7d441ee68acaacdb94522aebd3557
(goto-address-url-regexp): Remove `data:' URLs from goto-address-url-regexp.

diff -r 4e54f245caa7 -r 0ade01371c2e lisp/net/goto-addr.el
--- a/lisp/net/goto-addr.el	Fri Nov 04 10:14:54 2005 +0000
+++ b/lisp/net/goto-addr.el	Fri Nov 04 14:32:13 2005 +0000
@@ -105,12 +105,18 @@
   "A regular expression probably matching an e-mail address.")
 
 (defvar goto-address-url-regexp
-  (concat "\\<\\("
-	  (mapconcat 'identity
-		     (delete "mailto:" (copy-sequence thing-at-point-uri-schemes))
-		     "\\|")
-	  "\\)"
-          thing-at-point-url-path-regexp)
+  (concat
+   "\\<\\("
+   (mapconcat 'identity
+              (delete "mailto:"
+		      ;; Remove `data:', as it's not terribly useful to follow
+		      ;; those.  Leaving them causes `use Data::Dumper;' to be
+		      ;; fontified oddly in Perl files.
+                      (delete "data:"
+                              (copy-sequence thing-at-point-uri-schemes)))
+              "\\|")
+   "\\)"
+   thing-at-point-url-path-regexp)
   ;; (concat "\\b\\(s?https?\\|ftp\\|file\\|gopher\\|news\\|"
   ;; 	  "telnet\\|wais\\):\\(//[-a-zA-Z0-9_.]+:"
   ;; 	  "[0-9]*\\)?[-a-zA-Z0-9_=?#$@~`%&*+|\\/.,]*"