diff options
| author | Francesco Potortì <pot@gnu.org> | 2001-06-27 15:56:51 +0000 |
|---|---|---|
| committer | Francesco Potortì <pot@gnu.org> | 2001-06-27 15:56:51 +0000 |
| commit | 1d16606164c2995dddc7a6d373f9463a7f3fe3bd (patch) | |
| tree | 6f5438fdc0f61f35791fb13490e56e6a01580251 /lisp/uniquify.el | |
| parent | 98419212af06114f79b4c9a25dbf97314c683227 (diff) | |
| download | emacs-1d16606164c2995dddc7a6d373f9463a7f3fe3bd.tar.gz | |
(uniquify-rationalize-file-buffer-names): Do a preliminary quick
reordering. Can speed things up dramatically.
Diffstat (limited to 'lisp/uniquify.el')
| -rw-r--r-- | lisp/uniquify.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/uniquify.el b/lisp/uniquify.el index 20291d55b82..2f02236122f 100644 --- a/lisp/uniquify.el +++ b/lisp/uniquify.el @@ -223,8 +223,9 @@ file name elements. Arguments cause only a subset of buffers to be renamed." (setq buffers (cdr buffers)))) ;; selects buffers whose names may need changing, and others that ;; may conflict. - (setq fix-list - (sort fix-list 'uniquify-fix-item-filename-lessp)) + (setq fix-list (sort + (sort fix-list 'string-lessp) ;do a quick pre-ordering + 'uniquify-fix-item-filename-lessp)) ;; bringing conflicting names together (uniquify-rationalize-a-list fix-list uniquify-min-dir-content) (mapcar 'uniquify-fix-item-unrationalized-buffer fix-list))) |