From: F. Jason Park Date: Fri, 23 Jul 2021 13:18:05 +0000 (+0200) Subject: Remove text props from callback args in erc-button X-Git-Tag: emacs-28.0.90~1739 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4d172946c3953b3990182d794e5bda6a11646e29;p=emacs.git Remove text props from callback args in erc-button * lisp/erc/erc-button.el (erc-button-add-buttons-1): Remove text properties from strings stored in `erc-data' and passed to `erc-callback' (both text properties themselves) (bug#49704). This reduces memory usage in erc buffers (which are long-lived and can become very large). --- diff --git a/lisp/erc/erc-button.el b/lisp/erc/erc-button.el index 4678e7b5609..5953471ae8e 100644 --- a/lisp/erc/erc-button.el +++ b/lisp/erc/erc-button.el @@ -300,7 +300,7 @@ specified by `erc-button-alist'." (end (match-end (nth 1 entry))) (form (nth 2 entry)) (fun (nth 3 entry)) - (data (mapcar #'match-string (nthcdr 4 entry)))) + (data (mapcar #'match-string-no-properties (nthcdr 4 entry)))) (when (or (eq t form) (eval form t)) (erc-button-add-button start end fun nil data regexp)))))