Commit 98945794 authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

(goto-address-url-regexp): Remove `data:' URLs from goto-address-url-regexp.

parent 8a658d94
2005-11-04 Edward O'Connor <hober0@gmail.com> (tiny change)
* net/goto-addr.el (goto-address-url-regexp): Remove `data:' URLs
from goto-address-url-regexp.
2005-11-04 Carsten Dominik <dominik@science.uva.nl>
 
* textmodes/org.el: (org-read-date, org-goto-calendar)
......
......@@ -105,12 +105,18 @@ A value of t means there is no limit--fontify regardless of the size."
"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_=?#$@~`%&*+|\\/.,]*"
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment