# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 847307033 0
# Node ID 53306ee8953dfa27d6231c162ff902a606237ed3
# Parent  63ca7c6ceeff004d06c9f3575b3137d3f3edbe11
(minor-mode-alist): Don't use purecopy.

diff -r 63ca7c6ceeff -r 53306ee8953d lisp/bindings.el
--- a/lisp/bindings.el	Wed Nov 06 07:38:41 1996 +0000
+++ b/lisp/bindings.el	Wed Nov 06 19:03:53 1996 +0000
@@ -90,12 +90,12 @@
 
 Actually, STRING need not be a string; any possible mode-line element
 is okay.  See `mode-line-format'.")
-(setq minor-mode-alist (mapcar 'purecopy
-			       '((abbrev-mode " Abbrev")
-				 (overwrite-mode overwrite-mode)
-				 (auto-fill-function " Fill")
-				 ;; not really a minor mode...
-				 (defining-kbd-macro " Def"))))
+;; Don't use purecopy here--some people want to change these strings.
+(setq minor-mode-alist '((abbrev-mode " Abbrev")
+			 (overwrite-mode overwrite-mode)
+			 (auto-fill-function " Fill")
+			 ;; not really a minor mode...
+			 (defining-kbd-macro " Def")))
 
 ;; These variables are used by autoloadable packages.
 ;; They are defined here so that they do not get overridden