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 | 45a21f75516577e7aa5fcbbb17794de642fb580a (patch) | |
| tree | 3d56959e9d2aefca4eb17c46575d19e068004407 /lisp/uniquify.el | |
| parent | 4501c93916d70843ec84f8a79432aea9ac6477bf (diff) | |
| download | emacs-45a21f75516577e7aa5fcbbb17794de642fb580a.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))) |