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.

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)))))