# HG changeset patch
# User Francesco Potort��� <pot@gnu.org>
# Date 993657411 0
# Node ID ab6119af2d6b9f4ce32ed5eb7ae3b1c4659a8eec
# Parent  e2c37bd6d33735740e718481080e4e11d45224f3
(uniquify-rationalize-file-buffer-names): Do a preliminary quick
reordering.  Can speed things up dramatically.

diff -r e2c37bd6d337 -r ab6119af2d6b lisp/uniquify.el
--- a/lisp/uniquify.el	Wed Jun 27 15:56:21 2001 +0000
+++ b/lisp/uniquify.el	Wed Jun 27 15:56:51 2001 +0000
@@ -223,8 +223,9 @@
 	(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)))