diff options
| -rw-r--r-- | lisp/net/goto-addr.el | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lisp/net/goto-addr.el b/lisp/net/goto-addr.el index 9cb91eb6c2e..47b49725563 100644 --- a/lisp/net/goto-addr.el +++ b/lisp/net/goto-addr.el | |||
| @@ -102,7 +102,13 @@ But only if `goto-address-highlight-p' is also non-nil." | |||
| 102 | "[-a-zA-Z0-9._+]+@\\([-a-zA-z0-9_]+\\.\\)+[a-zA-Z0-9]+" | 102 | "[-a-zA-Z0-9._+]+@\\([-a-zA-z0-9_]+\\.\\)+[a-zA-Z0-9]+" |
| 103 | "A regular expression probably matching an e-mail address.") | 103 | "A regular expression probably matching an e-mail address.") |
| 104 | 104 | ||
| 105 | (defvar goto-address-url-regexp thing-at-point-url-regexp | 105 | (defvar goto-address-url-regexp |
| 106 | (concat "\\<\\(" | ||
| 107 | (mapconcat 'identity | ||
| 108 | (delete "mailto:" (copy-sequence thing-at-point-uri-schemes)) | ||
| 109 | "\\|") | ||
| 110 | "\\)" | ||
| 111 | thing-at-point-url-path-regexp) | ||
| 106 | ;; (concat "\\b\\(s?https?\\|ftp\\|file\\|gopher\\|news\\|" | 112 | ;; (concat "\\b\\(s?https?\\|ftp\\|file\\|gopher\\|news\\|" |
| 107 | ;; "telnet\\|wais\\):\\(//[-a-zA-Z0-9_.]+:" | 113 | ;; "telnet\\|wais\\):\\(//[-a-zA-Z0-9_.]+:" |
| 108 | ;; "[0-9]*\\)?[-a-zA-Z0-9_=?#$@~`%&*+|\\/.,]*" | 114 | ;; "[0-9]*\\)?[-a-zA-Z0-9_=?#$@~`%&*+|\\/.,]*" |