(uniquify-rationalize-a-list): Beware of side-effects.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2374dbc783dfc08cf7fdb02d219e765bb2b0db48..9679a52dcb16a3c0e8965f34a0c09a634b28c07a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/uniquify.el b/lisp/uniquify.el
index fc03ec41c91fd7f00875b2ad09d48656b407ed94..03e54b55ee4eb4a119d7896d368eaf2ab16d0b85 100644 (file)
--- a/lisp/uniquify.el
+++ b/lisp/uniquify.el
@@ -329,7 +329,7 @@ in `uniquify-list-buffers-directory-modes', otherwise returns nil."
        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