Don't call purecopy in progmodes/*.el

* lisp/progmodes/compile.el (compile-command):
* lisp/progmodes/etags.el (tags-compression-info-list):
* lisp/progmodes/grep.el (grep-program, find-program, xargs-program):
* lisp/progmodes/js.el (interpreter-mode-alist):
* lisp/progmodes/python.el (interpreter-mode-alist):
* lisp/progmodes/ruby-mode.el (auto-mode-alist, interpreter-mode-alist):
* lisp/progmodes/vera-mode.el: Remove calls to purecopy.

lisp/progmodes/compile.el

@@ -935,7 +935,7 @@ The value nil as an element means to try the default directory."
 			 (string :tag "Directory"))))
 
 ;;;###autoload
-(defcustom compile-command (purecopy "make -k ")
+(defcustom compile-command "make -k "
   "Last shell command used to do a compilation; default for next compilation.
 
 Sometimes it is useful for files to supply local values for this variable.

lisp/progmodes/etags.el

@@ -44,7 +44,7 @@ invoke `visit-tags-table', which is the only reliable way of
 setting the value of this variable, whether buffer-local or global.
 Use the `etags' program to make a tags table file.")
 ;; Make M-x set-variable tags-file-name like M-x visit-tags-table.
-;;;###autoload (put 'tags-file-name 'variable-interactive (purecopy "fVisit tags table: "))
+;;;###autoload (put 'tags-file-name 'variable-interactive "fVisit tags table: ")
 ;;;###autoload (put 'tags-file-name 'safe-local-variable 'stringp)
 
 (defgroup etags nil "Tags tables."
@@ -73,7 +73,7 @@ Use the `etags' program to make a tags table file."
 
 ;;;###autoload
 (defcustom tags-compression-info-list
-  (purecopy '("" ".Z" ".bz2" ".gz" ".xz" ".tgz"))
+  '("" ".Z" ".bz2" ".gz" ".xz" ".tgz")
   "List of extensions tried by etags when `auto-compression-mode' is on.
 An empty string means search the non-compressed file."
   :version "24.1"			; added xz

lisp/progmodes/grep.el

@@ -545,18 +545,18 @@ redundant).")
 This gets tacked on the end of the generated expressions.")
 
 ;;;###autoload
-(defvar grep-program (purecopy "grep")
+(defvar grep-program "grep"
   "The default grep program for `grep-command' and `grep-find-command'.
 This variable's value takes effect when `grep-compute-defaults' is called.")
 
 ;;;###autoload
-(defvar find-program (purecopy "find")
+(defvar find-program "find"
   "The default find program.
 This is used by commands like `grep-find-command', `find-dired'
 and others.")
 
 ;;;###autoload
-(defvar xargs-program (purecopy "xargs")
+(defvar xargs-program "xargs"
   "The default xargs program for `grep-find-command'.
 See `grep-find-use-xargs'.
 This variable's value takes effect when `grep-compute-defaults' is called.")

lisp/progmodes/js.el

@@ -4041,7 +4041,7 @@ one of the aforementioned options instead of using this mode."
 
 ;;;###autoload
 (dolist (name (list "node" "nodejs" "gjs" "rhino"))
-  (add-to-list 'interpreter-mode-alist (cons (purecopy name) 'js-mode)))
+  (add-to-list 'interpreter-mode-alist (cons name 'js-mode)))
 
 (provide 'js)
 

lisp/progmodes/python.el

@@ -291,7 +291,7 @@
 ;;;###autoload
 (add-to-list 'auto-mode-alist (cons python--auto-mode-alist-regexp 'python-mode))
 ;;;###autoload
-(add-to-list 'interpreter-mode-alist (cons (purecopy "python[0-9.]*") 'python-mode))
+(add-to-list 'interpreter-mode-alist '("python[0-9.]*" python-mode))
 
 (defgroup python nil
   "Python Language's flying circus support for Emacs."

lisp/progmodes/ruby-mode.el

@@ -2733,20 +2733,20 @@ Currently there are `ruby-mode' and `ruby-ts-mode'."
 
 ;;;###autoload
 (add-to-list 'auto-mode-alist
-             (cons (purecopy (concat "\\(?:\\.\\(?:"
-                                     "rbw?\\|ru\\|rake\\|thor\\|axlsx"
-                                     "\\|jbuilder\\|rabl\\|gemspec\\|podspec"
-                                     "\\)"
-                                     "\\|/"
-                                     "\\(?:Gem\\|Rake\\|Cap\\|Thor"
-                                     "\\|Puppet\\|Berks\\|Brew\\|Fast"
-                                     "\\|Vagrant\\|Guard\\|Pod\\)file"
-                                     "\\)\\'"))
+             (cons (concat "\\(?:\\.\\(?:"
+                           "rbw?\\|ru\\|rake\\|thor\\|axlsx"
+                           "\\|jbuilder\\|rabl\\|gemspec\\|podspec"
+                           "\\)"
+                           "\\|/"
+                           "\\(?:Gem\\|Rake\\|Cap\\|Thor"
+                           "\\|Puppet\\|Berks\\|Brew\\|Fast"
+                           "\\|Vagrant\\|Guard\\|Pod\\)file"
+                           "\\)\\'")
                    'ruby-mode))
 
 ;;;###autoload
 (dolist (name (list "ruby" "rbx" "jruby" "j?ruby\\(?:[0-9.]+\\)"))
-  (add-to-list 'interpreter-mode-alist (cons (purecopy name) 'ruby-mode)))
+  (add-to-list 'interpreter-mode-alist (cons name 'ruby-mode)))
 
 ;; See ruby-ts-mode.el for why we do this.
 (setq major-mode-remap-defaults

lisp/progmodes/vera-mode.el

@@ -208,7 +208,7 @@ If nil, TAB always indents current line."
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Mode definition
 
-;;;###autoload (add-to-list 'auto-mode-alist (cons (purecopy "\\.vr[hi]?\\'")  'vera-mode))
+;;;###autoload (add-to-list 'auto-mode-alist '("\\.vr[hi]?\\'" vera-mode))
 
 ;;;###autoload
 (define-derived-mode vera-mode prog-mode "Vera"