master f8de0d5436: Don't use purecopy in dictionary.el

[Stefan Kangas]

branch: master
commit f8de0d5436adbfe3e83e358c08d4367c65951212
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>

    Don't use purecopy in dictionary.el
    
    * lisp/net/dictionary.el (dictionary-pre-buffer)
    (dictionary-display-dictionary-line)
    (dictionary-display-more-info, dictionary-display-strategy-line)
    (dictionary-display-match-lines): Don't use purecopy; it has no
    effect here.
---
 lisp/net/dictionary.el | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 deletions(-)

diff --git a/lisp/net/dictionary.el b/lisp/net/dictionary.el
index c0ad8c13c5..31cc5035a3 100644
--- a/lisp/net/dictionary.el
+++ b/lisp/net/dictionary.el
@@ -755,31 +755,31 @@ of matching words."
       (progn
         (insert-button "[Back]" :type 'dictionary-button
                        'callback 'dictionary-restore-state
-                       'help-echo (purecopy "Mouse-2 to go backwards in 
history"))
+                       'help-echo "Mouse-2 to go backwards in history")
        (insert " ")
         (insert-button "[Search definition]" :type 'dictionary-button
                        'callback 'dictionary-search
-                       'help-echo (purecopy "Mouse-2 to look up a new word"))
+                       'help-echo "Mouse-2 to look up a new word")
        (insert "         ")
 
        (insert-button "[Matching words]" :type 'dictionary-button
                        'callback 'dictionary-match-words
-                       'help-echo (purecopy "Mouse-2 to find matches for a 
pattern"))
+                       'help-echo "Mouse-2 to find matches for a pattern")
        (insert "        ")
 
        (insert-button "[Quit]" :type 'dictionary-button
                        'callback 'dictionary-close
-                       'help-echo (purecopy "Mouse-2 to close this window"))
+                       'help-echo "Mouse-2 to close this window")
 
        (insert "\n       ")
 
         (insert-button "[Select dictionary]" :type 'dictionary-button
                        'callback 'dictionary-select-dictionary
-                       'help-echo (purecopy "Mouse-2 to select dictionary for 
future searches"))
+                       'help-echo "Mouse-2 to select dictionary for future 
searches")
        (insert "         ")
         (insert-button "[Select match strategy]" :type 'dictionary-button
                        'callback 'dictionary-select-strategy
-                       'help-echo (purecopy "Mouse-2 to select matching 
algorithm"))
+                       'help-echo "Mouse-2 to select matching algorithm")
        (insert "\n\n")))
   (setq dictionary-marker (point-marker)))
 
@@ -928,13 +928,13 @@ If PATTERN is omitted, it defaults to \"[ 
\\f\\t\\n\\r\\v]+\"."
           (insert-button (concat dictionary ": " translated) :type 
'dictionary-link
                          'callback 'dictionary-set-dictionary
                          'data (cons dictionary description)
-                         'help-echo (purecopy "Mouse-2 to select this 
dictionary"))
+                         'help-echo "Mouse-2 to select this dictionary")
           (unless (dictionary-special-dictionary dictionary)
             (insert " ")
             (insert-button "(Details)" :type 'dictionary-link
                            'callback 'dictionary-set-dictionary
                            'list-data (list (cons dictionary description) t)
-                           'help-echo (purecopy "Mouse-2 to get more 
information")))
+                           'help-echo "Mouse-2 to get more information"))
          (insert "\n")))))
 
 (defun dictionary-set-dictionary (param &optional more)
@@ -972,7 +972,7 @@ If PATTERN is omitted, it defaults to \"[ 
\\f\\t\\n\\r\\v]+\"."
           (insert-button description :type 'dictionary-link
                          'callback 'dictionary-set-dictionary
                          'data (cons dictionary description)
-                         'help-echo (purecopy "Mouse-2 to select this 
dictionary"))
+                         'help-echo "Mouse-2 to select this dictionary")
          (insert "\n\n")
          (setq reply (dictionary-read-answer))
          (insert reply)
@@ -1023,7 +1023,7 @@ If PATTERN is omitted, it defaults to \"[ 
\\f\\t\\n\\r\\v]+\"."
           (insert-button description :type 'dictionary-link
                          'callback 'dictionary-set-strategy
                          'data strategy
-                         'help-echo (purecopy "Mouse-2 to select this matching 
algorithm"))
+                         'help-echo "Mouse-2 to select this matching 
algorithm")
          (insert "\n")))))
 
 (defun dictionary-set-strategy (strategy &rest _ignored)
@@ -1124,7 +1124,7 @@ If PATTERN is omitted, it defaults to \"[ 
\\f\\t\\n\\r\\v]+\"."
                     (insert-button word :type 'dictionary-link
                                    'callback 'dictionary-new-search
                                    'data (cons word dictionary)
-                                   'help-echo (purecopy "Mouse-2 to lookup 
word"))
+                                   'help-echo "Mouse-2 to lookup word")
                    (insert "\n")) (reverse word-list))
            (insert "\n")))
        list))