Mercurial > emacs

changeset 66695:0ade01371c2e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(goto-address-url-regexp): Remove `data:' URLs from goto-address-url-regexp.
author Eli Zaretskii <eliz@gnu.org>
date Fri, 04 Nov 2005 14:32:13 +0000
parents 4e54f245caa7
children b1c691b8cde1
files lisp/net/goto-addr.el
diffstat 1 files changed, 12 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- 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_=?#$@~`%&*+|\\/.,]*"