diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2020-06-06 12:05:10 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2020-06-06 12:07:30 -0700 |
| commit | 7ac79872aed63110c0d26c1e62e1838d6101c9bd (patch) | |
| tree | dce387320ac1e58ba78d17a1df2ae9d9b22e4e51 /lisp/apropos.el | |
| parent | 8bcc781bc762b4082cfd678b88938e3d03465d91 (diff) | |
| download | emacs-7ac79872aed63110c0d26c1e62e1838d6101c9bd.tar.gz | |
make-text-button no longer modifies its string arg
* etc/NEWS: Mention this.
* lisp/apropos.el (apropos-library-button):
* lisp/ibuf-ext.el (ibuffer-old-saved-filters-warning):
There’s no longer a need copy make-text-button’s string arg.
* lisp/button.el (make-text-button): Return a copy of a string arg.
Delay making the copy until after error-checking.
Diffstat (limited to 'lisp/apropos.el')
| -rw-r--r-- | lisp/apropos.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/apropos.el b/lisp/apropos.el index 22866cd2cc8..2566d44dfcf 100644 --- a/lisp/apropos.el +++ b/lisp/apropos.el @@ -661,7 +661,7 @@ Return list of symbols and documentation found." (defun apropos-library-button (sym) (if (null sym) "<nothing>" - (let ((name (copy-sequence (symbol-name sym)))) + (let ((name (symbol-name sym))) (make-text-button name nil 'type 'apropos-library 'face 'apropos-symbol |