mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(thing-at-point-uri-schemes): New variable.

Browse Source 
(thing-at-point-url-regexp): Use it.
This commit is contained in:
Markus Rost 2002-10-06 17:54:15 +00:00
parent 845d331ee6
commit 1c1766c7e3
2 changed files with 19 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

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

17
lisp/thingatpt.el
View File

@ -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