From 45a21f75516577e7aa5fcbbb17794de642fb580a Mon Sep 17 00:00:00 2001 From: =?utf8?q?Francesco=20Potort=C3=AC?= Date: Wed, 27 Jun 2001 15:56:51 +0000 Subject: [PATCH] (uniquify-rationalize-file-buffer-names): Do a preliminary quick reordering. Can speed things up dramatically. --- lisp/uniquify.el | 5 +++-- 1 file 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))) -- 2.39.5