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.

diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el
index c01ece9641d544494815b2f0b993f4ba2d7f3490..60af1973ccb4c7901e823c6c75837c52c7940496 100644 (file)
--- 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)))))