diff options
| author | Eli Zaretskii | 2006-03-03 11:44:11 +0000 |
|---|---|---|
| committer | Eli Zaretskii | 2006-03-03 11:44:11 +0000 |
| commit | 019ed9c702a4456596be97d0b6e8e29be71f7181 (patch) | |
| tree | dea3ecec0d23076c30a266c62514c8babd9b3beb /lisp/net | |
| parent | 46771bb390ff60ac06389c726489d0af3091e19b (diff) | |
| download | emacs-019ed9c702a4456596be97d0b6e8e29be71f7181.tar.gz emacs-019ed9c702a4456596be97d0b6e8e29be71f7181.zip | |
(rcirc-url-regexp): Match entire url when it starts with "www".
Diffstat (limited to 'lisp/net')
| -rw-r--r-- | lisp/net/rcirc.el | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el index f2eff379d14..f5cf1ecb7e0 100644 --- a/lisp/net/rcirc.el +++ b/lisp/net/rcirc.el | |||
| @@ -1635,12 +1635,13 @@ ones added to the list automatically are marked with an asterisk." | |||
| 1635 | (defvar rcirc-url-regexp | 1635 | (defvar rcirc-url-regexp |
| 1636 | (rx-to-string | 1636 | (rx-to-string |
| 1637 | `(and word-boundary | 1637 | `(and word-boundary |
| 1638 | (or "www." | 1638 | (or (and |
| 1639 | (and (or "http" "https" "ftp" "file" "gopher" "news" "telnet" | 1639 | (or (and (or "http" "https" "ftp" "file" "gopher" "news" |
| 1640 | "wais" "mailto") | 1640 | "telnet" "wais" "mailto") |
| 1641 | "://" | 1641 | "://") |
| 1642 | (1+ (char "-a-zA-Z0-9_.")) | 1642 | "www.") |
| 1643 | (optional ":" (1+ (char "0-9")))) | 1643 | (1+ (char "-a-zA-Z0-9_.")) |
| 1644 | (optional ":" (1+ (char "0-9")))) | ||
| 1644 | (and (1+ (char "-a-zA-Z0-9_.")) | 1645 | (and (1+ (char "-a-zA-Z0-9_.")) |
| 1645 | (or ".com" ".net" ".org") | 1646 | (or ".com" ".net" ".org") |
| 1646 | word-boundary)) | 1647 | word-boundary)) |