diff options
| author | Miles Bader | 2017-09-09 23:28:08 +0900 |
|---|---|---|
| committer | Miles Bader | 2017-09-09 23:28:08 +0900 |
| commit | e91da7f8f2523057fa93ea4aace36863315abb5b (patch) | |
| tree | 9ae3d17405096a66af4acd383b07b3e0d2320bf5 | |
| parent | d1da8e534db54bb82b6f2b16bba86a6d202ac675 (diff) | |
| download | emacs-e91da7f8f2523057fa93ea4aace36863315abb5b.tar.gz emacs-e91da7f8f2523057fa93ea4aace36863315abb5b.zip | |
; Add a comment for make-text-button in rcirc-markup-urls
| -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 |