[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog custom.el
From: |
Dan Nicolaescu |
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog custom.el |
Date: |
Wed, 04 Nov 2009 06:34:42 +0000 |
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))))))
- [Emacs-diffs] emacs/lisp ChangeLog custom.el,
Dan Nicolaescu <=