diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-04-29 07:11:36 +0000 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-04-29 07:11:36 +0000 |
commit | 3e9db557b8e323d51b8d3080c9d2b04ab93f7af3 (patch) | |
tree | 081e82ae38bc9934ddd6636c3f66c2581ac8122e /lisp/uniquify.el | |
parent | dc9b613eef59753d89c901b8233d0e41885f21fe (diff) | |
download | emacs-3e9db557b8e323d51b8d3080c9d2b04ab93f7af3.tar.gz |
(uniquify-rationalize-a-list): Beware of side-effects.
Diffstat (limited to 'lisp/uniquify.el')
-rw-r--r-- | lisp/uniquify.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/uniquify.el b/lisp/uniquify.el index fc03ec41c91..03e54b55ee4 100644 --- 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 |