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

(goto-address-url-regexp): Don't match `mailto'.

Browse source
This commit is contained in:
Richard M. Stallman 2002-10-29 18:12:33 +00:00
parent 81173429ea
commit 019f8c1e2e
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -102,7 +102,13 @@ But only if `goto-address-highlight-p' is also non-nil."
"[-a-zA-Z0-9._+]+@\\([-a-zA-z0-9_]+\\.\\)+[a-zA-Z0-9]+"
"A regular expression probably matching an e-mail address.")
(defvar goto-address-url-regexp thing-at-point-url-regexp
(defvar goto-address-url-regexp
(concat "\\<\\("
(mapconcat 'identity
(delete "mailto:" (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_=?#$@~`%&*+|\\/.,]*"