Mercurial > emacs
changeset 69252:45e1ec6f858b
(rcirc-url-regexp): Match entire url when it starts with "www".
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Fri, 03 Mar 2006 11:43:27 +0000 |
| parents | ce55668597eb |
| children | b7275f2dd70a |
| files | lisp/net/rcirc.el |
| diffstat | 1 files changed, 7 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/net/rcirc.el Fri Mar 03 11:38:43 2006 +0000 +++ b/lisp/net/rcirc.el Fri Mar 03 11:43:27 2006 +0000 @@ -1635,12 +1635,13 @@ (defvar rcirc-url-regexp (rx-to-string `(and word-boundary - (or "www." - (and (or "http" "https" "ftp" "file" "gopher" "news" "telnet" - "wais" "mailto") - "://" - (1+ (char "-a-zA-Z0-9_.")) - (optional ":" (1+ (char "0-9")))) + (or (and + (or (and (or "http" "https" "ftp" "file" "gopher" "news" + "telnet" "wais" "mailto") + "://") + "www.") + (1+ (char "-a-zA-Z0-9_.")) + (optional ":" (1+ (char "0-9")))) (and (1+ (char "-a-zA-Z0-9_.")) (or ".com" ".net" ".org") word-boundary))