diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2005-11-04 14:32:58 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2005-11-04 14:32:58 +0000 |
| commit | 98945794d52769666278fe4e0a7d0fe0c8a3f466 (patch) | |
| tree | 429e6116a2c1152435bfd8fbdedb4d8a0c6a93b9 /lisp/net/goto-addr.el | |
| parent | 8a658d94211c7be8ad5e14b6081982c681b25315 (diff) | |
| download | emacs-98945794d52769666278fe4e0a7d0fe0c8a3f466.tar.gz | |
(goto-address-url-regexp): Remove `data:' URLs from goto-address-url-regexp.
Diffstat (limited to 'lisp/net/goto-addr.el')
| -rw-r--r-- | lisp/net/goto-addr.el | 18 |
1 files changed, 12 insertions, 6 deletions
diff --git a/lisp/net/goto-addr.el b/lisp/net/goto-addr.el index 98a8b0a29e1..d86a8ecdf2d 100644 --- a/lisp/net/goto-addr.el +++ b/lisp/net/goto-addr.el @@ -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_=?#$@~`%&*+|\\/.,]*" |