# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1209453096 0
# Node ID 377add9b3eb4c9479e9ad19a0cdbf10c94c4c083
# Parent  ca8b29b92087d16ef8f54799271f8020eb52d0b5
(uniquify-rationalize-a-list): Beware of side-effects.

diff -r ca8b29b92087 -r 377add9b3eb4 lisp/ChangeLog
--- a/lisp/ChangeLog	Tue Apr 29 07:10:55 2008 +0000
+++ b/lisp/ChangeLog	Tue Apr 29 07:11:36 2008 +0000
@@ -1,3 +1,7 @@
+2008-04-29  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* uniquify.el (uniquify-rationalize-a-list): Beware of side-effects.
+
 2008-04-29  Daiki Ueno  <ueno@unixuser.org>
 
 	* epa.el (epa-key-list-mode-map): Add menu.
diff -r ca8b29b92087 -r 377add9b3eb4 lisp/uniquify.el
--- a/lisp/uniquify.el	Tue Apr 29 07:10:55 2008 +0000
+++ b/lisp/uniquify.el	Tue Apr 29 07:11:36 2008 +0000
@@ -329,7 +329,7 @@
 	proposed)
     ;; Divide fix-list into items with same proposed names and pass them
     ;; to uniquify-rationalize-conflicting-sublist.
-    (dolist (item (sort fix-list 'uniquify-item-greaterp))
+    (dolist (item (sort (copy-sequence fix-list) 'uniquify-item-greaterp))
       (setq proposed (uniquify-item-proposed item))
       (unless (equal proposed old-proposed)
 	(uniquify-rationalize-conflicting-sublist conflicting-sublist