andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Eli Zaretskii 2005-11-04 14:32:58 +00:00
parent 8a658d9421
commit 98945794d5
2 changed files with 17 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
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)

18
lisp/net/goto-addr.el
View file

@ -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_=?#$@~`%&*+|\\/.,]*"