Mercurial > emacs
changeset 94473:377add9b3eb4
(uniquify-rationalize-a-list): Beware of side-effects.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 29 Apr 2008 07:11:36 +0000 |
| parents | ca8b29b92087 |
| children | 9e177181ff37 |
| files | lisp/ChangeLog lisp/uniquify.el |
| diffstat | 2 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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