diff options
| -rw-r--r-- | lisp/net/rcirc.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el index 60af1973ccb..6377f791f45 100644 --- a/lisp/net/rcirc.el +++ b/lisp/net/rcirc.el | |||
| @@ -2499,6 +2499,9 @@ If ARG is given, opens the URL in a new browser window." | |||
| 2499 | (end (match-end 0)) | 2499 | (end (match-end 0)) |
| 2500 | (url (match-string-no-properties 0)) | 2500 | (url (match-string-no-properties 0)) |
| 2501 | (link-text (buffer-substring-no-properties start end))) | 2501 | (link-text (buffer-substring-no-properties start end))) |
| 2502 | ;; Add a button for the URL. Note that we use `make-text-button', | ||
| 2503 | ;; rather than `make-button', as text-buttons are much faster in | ||
| 2504 | ;; large buffers. | ||
| 2502 | (make-text-button start end | 2505 | (make-text-button start end |
| 2503 | 'face 'rcirc-url | 2506 | 'face 'rcirc-url |
| 2504 | 'follow-link t | 2507 | 'follow-link t |