diff options
| author | Francesco Potortì | 2001-06-27 15:56:51 +0000 |
|---|---|---|
| committer | Francesco Potortì | 2001-06-27 15:56:51 +0000 |
| commit | 45a21f75516577e7aa5fcbbb17794de642fb580a (patch) | |
| tree | 3d56959e9d2aefca4eb17c46575d19e068004407 | |
| parent | 4501c93916d70843ec84f8a79432aea9ac6477bf (diff) | |
| download | emacs-45a21f75516577e7aa5fcbbb17794de642fb580a.tar.gz emacs-45a21f75516577e7aa5fcbbb17794de642fb580a.zip | |
(uniquify-rationalize-file-buffer-names): Do a preliminary quick
reordering. Can speed things up dramatically.
| -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." | |||
| 223 | (setq buffers (cdr buffers)))) | 223 | (setq buffers (cdr buffers)))) |
| 224 | ;; selects buffers whose names may need changing, and others that | 224 | ;; selects buffers whose names may need changing, and others that |
| 225 | ;; may conflict. | 225 | ;; may conflict. |
| 226 | (setq fix-list | 226 | (setq fix-list (sort |
| 227 | (sort fix-list 'uniquify-fix-item-filename-lessp)) | 227 | (sort fix-list 'string-lessp) ;do a quick pre-ordering |
| 228 | 'uniquify-fix-item-filename-lessp)) | ||
| 228 | ;; bringing conflicting names together | 229 | ;; bringing conflicting names together |
| 229 | (uniquify-rationalize-a-list fix-list uniquify-min-dir-content) | 230 | (uniquify-rationalize-a-list fix-list uniquify-min-dir-content) |
| 230 | (mapcar 'uniquify-fix-item-unrationalized-buffer fix-list))) | 231 | (mapcar 'uniquify-fix-item-unrationalized-buffer fix-list))) |