[Emacs-diffs] emacs/lisp ChangeLog custom.el

[Dan Nicolaescu]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Dan Nicolaescu <dann>   09/11/04 06:34:42

Modified files:
        lisp           : ChangeLog custom.el 

Log message:
        (custom-declare-group): Purecopy standard-value.
        (custom-declare-group): Purecopy custom-prefix.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16559&r2=1.16560
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/custom.el?cvsroot=emacs&r1=1.149&r2=1.150

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16559
retrieving revision 1.16560
diff -u -b -r1.16559 -r1.16560
--- ChangeLog   4 Nov 2009 06:16:58 -0000       1.16559
+++ ChangeLog   4 Nov 2009 06:34:37 -0000       1.16560
@@ -1,5 +1,8 @@
 2009-11-03  Dan Nicolaescu  <address@hidden>
 
+       * custom.el (custom-declare-group): Purecopy standard-value.
+       (custom-declare-group): Purecopy custom-prefix.
+
        * international/mule.el (load-with-code-conversion): Call
        do-after-load-evaluation unconditionally.
 

Index: custom.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/custom.el,v
retrieving revision 1.149
retrieving revision 1.150
diff -u -b -r1.149 -r1.150
--- custom.el   15 Sep 2009 04:08:04 -0000      1.149
+++ custom.el   4 Nov 2009 06:34:41 -0000       1.150
@@ -131,7 +131,7 @@
 DEFAULT is stored as SYMBOL's standard value, in SYMBOL's property
 `standard-value'.  At the same time, SYMBOL's property `force-value' is
 set to nil, as the value is no longer rogue."
-  (put symbol 'standard-value (list default))
+  (put symbol 'standard-value (purecopy (list default)))
   ;; Maybe this option was rogue in an earlier version.  It no longer is.
   (when (get symbol 'force-value)
     (put symbol 'force-value nil))
@@ -407,7 +407,7 @@
          (error "Keyword %s is missing an argument" keyword))
        (setq args (cdr args))
        (cond ((eq keyword :prefix)
-              (put symbol 'custom-prefix value))
+              (put symbol 'custom-prefix (purecopy value)))
              (t
               (custom-handle-keyword symbol keyword value
                                      'custom-group))))))