mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-20 18:17:20 +00:00
Code Issues Releases Activity

(uniquify-rationalize-file-buffer-names): Do a preliminary quick

Browse Source 
reordering.  Can speed things up dramatically.
This commit is contained in:
Francesco Potortì 2001-06-27 15:56:51 +00:00
parent 4501c93916
commit 45a21f7551
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/uniquify.el
View File

@ -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)))