Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
1c1766c7
Commit
1c1766c7
authored
Oct 06, 2002
by
Markus Rost
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(thing-at-point-uri-schemes): New variable.
(thing-at-point-url-regexp): Use it.
parent
845d331e
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
19 additions
and
3 deletions
+19
-3
lisp/ChangeLog
lisp/ChangeLog
+5
-0
lisp/thingatpt.el
lisp/thingatpt.el
+14
-3
No files found.
lisp/ChangeLog
View file @
1c1766c7
2002-10-06 Markus Holmberg <markush@acc.umu.se> (tiny change)
* thingatpt.el (thing-at-point-uri-schemes): New variable.
(thing-at-point-url-regexp): Use it.
2002-10-06 Glenn Morris <gmorris@ast.cam.ac.uk>
* progmodes/fortran.el (fortran-beginning-do): Ignore labelled DO
...
...
lisp/thingatpt.el
View file @
1c1766c7
...
...
@@ -213,10 +213,21 @@ a symbol as a valid THING."
Hostname matching is stricter in this case than for
``thing-at-point-url-regexp''."
)
(
defvar
thing-at-point-uri-schemes
;; Officials from http://www.iana.org/assignments/uri-schemes
'
(
"ftp://"
"http://"
"gopher://"
"mailto:"
"news:"
"nntp:"
"telnet://"
"wais://"
"file:/"
"prospero:"
"z39.50s:"
"z39.50r:"
"cid:"
"mid:"
"vemmi:"
"service:"
"imap:"
"nfs:"
"acap:"
"rtsp:"
"tip:"
"pop:"
"data:"
"dav:"
"opaquelocktoken:"
"sip:"
"tel:"
"fax:"
"modem:"
"ldap:"
"https://"
"soap.beep:"
"soap.beeps:"
"urn:"
"go:"
"afs:"
"tn3270:"
"mailserver:"
;; Compatibility
"snews:"
)
"Uniform Resource Identifier (URI) Schemes"
)
(
defvar
thing-at-point-url-regexp
(
concat
"\\<\\(https?://\\|ftp://\\|gopher://\\|telnet://\\|wais://\\|file:/\\|s?news:\\|mailto:\\)"
thing-at-point-url-path-regexp
)
(
concat
"\\<\\("
(
mapconcat
'identity
thing-at-point-uri-schemes
"\\|"
)
"\\)"
thing-at-point-url-path-regexp
)
"A regular expression probably matching a complete URL."
)
(
defvar
thing-at-point-markedup-url-regexp
...
...
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