Mercurial > emacs

comparison lisp/uniquify.el @ 38222:0c6cf282fd72

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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