Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
98945794
Commit
98945794
authored
Nov 04, 2005
by
Eli Zaretskii
Browse files
(goto-address-url-regexp): Remove `data:' URLs from goto-address-url-regexp.
parent
8a658d94
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
17 additions
and
6 deletions
+17
-6
lisp/ChangeLog
lisp/ChangeLog
+5
-0
lisp/net/goto-addr.el
lisp/net/goto-addr.el
+12
-6
No files found.
lisp/ChangeLog
View file @
98945794
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)
...
...
lisp/net/goto-addr.el
View file @
98945794
...
...
@@ -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_=?#$@~`%&*+|\\/.,]*"
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment