scratch/no-purespace 9cb5a7b123a 04/12: Don't call purecopy in progmodes/*.el

[Stefan Kangas]

branch: scratch/no-purespace
commit 9cb5a7b123afcb4b3f317b8bfbe03160ff0f9769
Author: Stefan Kangas <stefankangas@gmail.com>
Commit: Stefan Kangas <stefankangas@gmail.com>

    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 (auto-mode-alist, 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   |  2 +-
 lisp/progmodes/etags.el     |  4 ++--
 lisp/progmodes/grep.el      |  6 +++---
 lisp/progmodes/js.el        |  2 +-
 lisp/progmodes/python.el    |  4 ++--
 lisp/progmodes/ruby-mode.el | 20 ++++++++++----------
 lisp/progmodes/vera-mode.el |  2 +-
 7 files changed, 20 insertions(+), 20 deletions(-)

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index d2e74aa44a6..0ba1b32df4b 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -921,7 +921,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.
diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index d3eb0d46e9b..e1cbe49db4d 100644
--- a/lisp/progmodes/etags.el
+++ b/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
diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el
index d2d0baa235c..92cab5ba4b2 100644
--- a/lisp/progmodes/grep.el
+++ b/lisp/progmodes/grep.el
@@ -543,18 +543,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.")
diff --git a/lisp/progmodes/js.el b/lisp/progmodes/js.el
index 75c8111035c..4b677b59f64 100644
--- a/lisp/progmodes/js.el
+++ b/lisp/progmodes/js.el
@@ -4047,7 +4047,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)
 
diff --git a/lisp/progmodes/python.el b/lisp/progmodes/python.el
index a00289d6de9..2debd4bf727 100644
--- a/lisp/progmodes/python.el
+++ b/lisp/progmodes/python.el
@@ -294,9 +294,9 @@
 (autoload 'help-function-arglist "help-fns")
 
 ;;;###autoload
-(add-to-list 'auto-mode-alist (cons (purecopy "\\.py[iw]?\\'") 'python-mode))
+(add-to-list 'auto-mode-alist '("\\.py[iw]?\\'" 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."
diff --git a/lisp/progmodes/ruby-mode.el b/lisp/progmodes/ruby-mode.el
index 3bcfa9ee7df..59fdf9a0768 100644
--- a/lisp/progmodes/ruby-mode.el
+++ b/lisp/progmodes/ruby-mode.el
@@ -2710,20 +2710,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)))
 
 (provide 'ruby-mode)
 
diff --git a/lisp/progmodes/vera-mode.el b/lisp/progmodes/vera-mode.el
index 184cce66ae4..b3002127ff1 100644
--- a/lisp/progmodes/vera-mode.el
+++ b/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"