From b464dab2af90b5ebcf1925fcca144a9ed294e6a3 Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Tue, 30 Jul 2013 19:21:31 +0900 Subject: [PATCH] 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. --- lisp/net/rcirc.el | 12 ++++++------ 1 file 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))))) -- 2.39.2