diff options
| author | Miles Bader <miles@gnu.org> | 2013-07-30 19:21:31 +0900 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2017-09-09 12:30:33 +0900 |
| commit | b464dab2af90b5ebcf1925fcca144a9ed294e6a3 (patch) | |
| tree | 855f9efbdf04f7ce6e30cd3ea10f996b4dea2670 | |
| parent | 79150f6086286294c9e5ed56df5b14c87129cde6 (diff) | |
| download | emacs-b464dab2af90b5ebcf1925fcca144a9ed294e6a3.tar.gz | |
Use text-property buttons in rcirc-markup-urls
* lisp/net/rcirc.el (rcirc-markup-urls): Use `make-text-button'
instead of `make-button'; the former is much more efficient in large
buffers, and for the purposes of rcirc, changes no functionality.
| -rw-r--r-- | lisp/net/rcirc.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el index c01ece9641d..60af1973ccb 100644 --- a/lisp/net/rcirc.el +++ b/lisp/net/rcirc.el @@ -2499,12 +2499,12 @@ If ARG is given, opens the URL in a new browser window." (end (match-end 0)) (url (match-string-no-properties 0)) (link-text (buffer-substring-no-properties start end))) - (make-button start end - 'face 'rcirc-url - 'follow-link t - 'rcirc-url url - 'action (lambda (button) - (browse-url (button-get button 'rcirc-url)))) + (make-text-button start end + 'face 'rcirc-url + 'follow-link t + 'rcirc-url url + 'action (lambda (button) + (browse-url (button-get button 'rcirc-url)))) ;; record the url if it is not already the latest stored url (when (not (string= link-text (caar rcirc-urls))) (push (cons link-text start) rcirc-urls))))) |