Mercurial > emacs
comparison lisp/uniquify.el @ 38222:0c6cf282fd72
(uniquify-rationalize-file-buffer-names): Undo previous change.
author | Francesco Potortì <pot@gnu.org> |
---|---|
date | Wed, 27 Jun 2001 17:48:40 +0000 |
parents | ab6119af2d6b |
children | 09aca87f88ce |
comparison
equal
deleted
inserted
replaced
38221:a7d7b742151a | 38222:0c6cf282fd72 |
---|---|
221 (push (list (buffer-name buffer)) | 221 (push (list (buffer-name buffer)) |
222 uniquify-non-file-buffer-names))) | 222 uniquify-non-file-buffer-names))) |
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 (sort | 226 (setq fix-list |
227 (sort fix-list 'string-lessp) ;do a quick pre-ordering | 227 (sort fix-list 'uniquify-fix-item-filename-lessp)) |
228 'uniquify-fix-item-filename-lessp)) | |
229 ;; bringing conflicting names together | 228 ;; bringing conflicting names together |
230 (uniquify-rationalize-a-list fix-list uniquify-min-dir-content) | 229 (uniquify-rationalize-a-list fix-list uniquify-min-dir-content) |
231 (mapcar 'uniquify-fix-item-unrationalized-buffer fix-list))) | 230 (mapcar 'uniquify-fix-item-unrationalized-buffer fix-list))) |
232 | 231 |
233 ;; uniquify's version of buffer-file-name; result never contains trailing slash | 232 ;; uniquify's version of buffer-file-name; result never contains trailing slash |