Fix some side-effecting uses of make-text-button

For discussion, see the following thread:
https://lists.gnu.org/archive/html/emacs-devel/2020-06/msg00117.html

* lisp/apropos.el (apropos-library-button):
* lisp/help-fns.el (help-fns--first-release): Return result of
make-text-button instead of relying on its side effects.
* lisp/ibuf-ext.el (ibuffer-old-saved-filters-warning): Avoid
modifying an immutable string.

diff --git a/lisp/apropos.el b/lisp/apropos.el
index 7cbda3cb678626557e1110790aeba80195dbc100..22866cd2cc87470fa5a5ed845b2266eefe3bc215 100644 (file)
--- a/lisp/apropos.el
+++ b/lisp/apropos.el
@@ -665,8 +665,7 @@ Return list of symbols and documentation found."
       (make-text-button name nil
                         'type 'apropos-library
                         'face 'apropos-symbol
-                        'apropos-symbol name)
-      name)))
+                        'apropos-symbol name))))
 
 ;;;###autoload
 (defun apropos-library (file)

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 63b066f3b8586d8ac4e14474a9eb9a16e3155943..b953647063162822a1f39b47cc27032fd482d0fb 100644 (file)
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -647,8 +647,7 @@ FILE is the file where FUNCTION was probably defined."
                     (setq place (list f pos))
                     (setq first version)))))))))
     (when first
-      (make-text-button first nil 'type 'help-news 'help-args place))
-    first))
+      (make-text-button first nil 'type 'help-news 'help-args place))))
 
 (add-hook 'help-fns-describe-function-functions
           #'help-fns--mention-first-release)

diff --git a/lisp/ibuf-ext.el b/lisp/ibuf-ext.el
index bfb9787a96d2a5e9106e2dbe8492207dc6152138..c39000b4886cb93296358df5515cc39828808d11 100644 (file)
--- a/lisp/ibuf-ext.el
+++ b/lisp/ibuf-ext.el
@@ -202,7 +202,7 @@ The format has been repaired and the variable modified accordingly.
 You can save the current value through the customize system by
 either clicking or hitting return "
           (make-text-button
-           "here" nil
+           (copy-sequence "here") nil
            'face '(:weight bold :inherit button)
            'mouse-face '(:weight normal :background "gray50" :inherit button)
            'follow-link t