# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1257493854 0
# Node ID b4f29dbe3ee71d9fa6f95b9f0f79a2e088c1e745
# Parent  0b36e1e1cf473bd8ce1f7cecc1c4a29d77f63984
* progmodes/ld-script.el (auto-mode-alist):
* vc-hooks.el (vc-directory-exclusion-list): Purecopy strings.

* cus-face.el (custom-declare-face): Purecopy face spec.

diff -r 0b36e1e1cf47 -r b4f29dbe3ee7 lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Nov 06 07:49:31 2009 +0000
+++ b/lisp/ChangeLog	Fri Nov 06 07:50:54 2009 +0000
@@ -1,3 +1,10 @@
+2009-11-05  Dan Nicolaescu  <dann@ics.uci.edu>
+
+	* progmodes/ld-script.el (auto-mode-alist):
+	* vc-hooks.el (vc-directory-exclusion-list): Purecopy strings.
+
+	* cus-face.el (custom-declare-face): Purecopy face spec.
+
 2009-11-06  Kenichi Handa  <handa@m17n.org>
 
 	* international/uni-bidi.el: Re-generated.
diff -r 0b36e1e1cf47 -r b4f29dbe3ee7 lisp/cus-face.el
--- a/lisp/cus-face.el	Fri Nov 06 07:49:31 2009 +0000
+++ b/lisp/cus-face.el	Fri Nov 06 07:50:54 2009 +0000
@@ -50,7 +50,7 @@
 	  (if have-window-system
 	      (make-face-x-resource-internal face)))))
     ;; Don't record SPEC until we see it causes no errors.
-    (put face 'face-defface-spec spec)
+    (put face 'face-defface-spec (purecopy spec))
     (push (cons 'defface face) current-load-list)
     (when (and doc (null (face-documentation face)))
       (set-face-documentation face (purecopy doc)))
diff -r 0b36e1e1cf47 -r b4f29dbe3ee7 lisp/progmodes/ld-script.el
--- a/lisp/progmodes/ld-script.el	Fri Nov 06 07:49:31 2009 +0000
+++ b/lisp/progmodes/ld-script.el	Fri Nov 06 07:50:54 2009 +0000
@@ -162,11 +162,12 @@
 ;; eCos uses "ld" and "ldi".
 ;; Netbsd uses "ldscript.*".
 ;;;###autoload
-(add-to-list 'auto-mode-alist '("\\.ld[si]?\\>" . ld-script-mode))
-(add-to-list 'auto-mode-alist '("ld\\.?script\\>" . ld-script-mode))
+(add-to-list 'auto-mode-alist (purecopy '("\\.ld[si]?\\>" . ld-script-mode)))
+;;;###autoload
+(add-to-list 'auto-mode-alist (purecopy '("ld\\.?script\\>" . ld-script-mode)))
 
 ;;;###autoload
-(add-to-list 'auto-mode-alist '("\\.x[bdsru]?[cn]?\\'" . ld-script-mode))
+(add-to-list 'auto-mode-alist (purecopy '("\\.x[bdsru]?[cn]?\\'" . ld-script-mode)))
 
 ;;;###autoload
 (define-derived-mode ld-script-mode nil "LD-Script"
diff -r 0b36e1e1cf47 -r b4f29dbe3ee7 lisp/vc-hooks.el
--- a/lisp/vc-hooks.el	Fri Nov 06 07:49:31 2009 +0000
+++ b/lisp/vc-hooks.el	Fri Nov 06 07:50:54 2009 +0000
@@ -77,9 +77,9 @@
 
 ;; Note: we don't actually have a darcs back end yet.
 ;; Also, Meta-CVS (corresponsding to MCVS) is unsupported.
-(defcustom vc-directory-exclusion-list '("SCCS" "RCS" "CVS" "MCVS"
+(defcustom vc-directory-exclusion-list (purecopy '("SCCS" "RCS" "CVS" "MCVS"
 					 ".svn" ".git" ".hg" ".bzr"
-					 "_MTN" "_darcs" "{arch}")
+					 "_MTN" "_darcs" "{arch}"))
   "List of directory names to be ignored when walking directory trees."
   :type '(repeat string)
   :group 'vc)