[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, 11 Nov 2009 06:12:25 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Dan Nicolaescu <dann> 09/11/11 06:12:24
Modified files:
lisp : ChangeLog custom.el
Log message:
(custom-declare-group): Purecopy load-file-name.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16595&r2=1.16596
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/custom.el?cvsroot=emacs&r1=1.150&r2=1.151
Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16595
retrieving revision 1.16596
diff -u -b -r1.16595 -r1.16596
--- ChangeLog 11 Nov 2009 06:06:43 -0000 1.16595
+++ ChangeLog 11 Nov 2009 06:12:21 -0000 1.16596
@@ -1,5 +1,7 @@
2009-11-11 Dan Nicolaescu <address@hidden>
+ * custom.el (custom-declare-group): Purecopy load-file-name.
+
* subr.el (menu-bar-separator): New defconst.
* net/eudc.el (eudc-tools-menu):
* international/mule-cmds.el (set-coding-system-map)
Index: custom.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/custom.el,v
retrieving revision 1.150
retrieving revision 1.151
diff -u -b -r1.150 -r1.151
--- custom.el 4 Nov 2009 06:34:41 -0000 1.150
+++ custom.el 11 Nov 2009 06:12:24 -0000 1.151
@@ -414,7 +414,8 @@
;; Record the group on the `current' list.
(let ((elt (assoc load-file-name custom-current-group-alist)))
(if elt (setcdr elt symbol)
- (push (cons load-file-name symbol) custom-current-group-alist)))
+ (push (cons (purecopy load-file-name) symbol)
+ custom-current-group-alist)))
(run-hooks 'custom-define-hook)
symbol)