[Emacs-diffs] emacs/lisp ChangeLog cus-face.el vc-hooks.el pr...

[Dan Nicolaescu]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Dan Nicolaescu <dann>   09/11/06 07:50:57

Modified files:
        lisp           : ChangeLog cus-face.el vc-hooks.el 
        lisp/progmodes : ld-script.el 

Log message:
        * 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.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16572&r2=1.16573
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/cus-face.el?cvsroot=emacs&r1=1.61&r2=1.62
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/vc-hooks.el?cvsroot=emacs&r1=1.286&r2=1.287
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/ld-script.el?cvsroot=emacs&r1=1.21&r2=1.22

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16572
retrieving revision 1.16573
diff -u -b -r1.16572 -r1.16573
--- ChangeLog   6 Nov 2009 06:39:33 -0000       1.16572
+++ ChangeLog   6 Nov 2009 07:50:54 -0000       1.16573
@@ -1,3 +1,10 @@
+2009-11-05  Dan Nicolaescu  <address@hidden>
+
+       * 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  <address@hidden>
 
        * international/uni-bidi.el: Re-generated.

Index: cus-face.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/cus-face.el,v
retrieving revision 1.61
retrieving revision 1.62
diff -u -b -r1.61 -r1.62
--- cus-face.el 5 Jan 2009 03:18:50 -0000       1.61
+++ cus-face.el 6 Nov 2009 07:50:57 -0000       1.62
@@ -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)))

Index: vc-hooks.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/vc-hooks.el,v
retrieving revision 1.286
retrieving revision 1.287
diff -u -b -r1.286 -r1.287
--- vc-hooks.el 24 Oct 2009 03:43:50 -0000      1.286
+++ vc-hooks.el 6 Nov 2009 07:50:57 -0000       1.287
@@ -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)

Index: progmodes/ld-script.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/progmodes/ld-script.el,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -b -r1.21 -r1.22
--- progmodes/ld-script.el      5 Jan 2009 03:23:43 -0000       1.21
+++ progmodes/ld-script.el      6 Nov 2009 07:50:57 -0000       1.22
@@ -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"