procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(uniquify-rationalize-file-buffer-names):

Browse source 
Don't uniquify if there is no filename.
This commit is contained in:
Stefan Monnier 2003-05-07 21:56:43 +00:00
parent c6e26ce2e4
commit ad599c1193
1 changed files with 25 additions and 23 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

48
lisp/uniquify.el
View file

@ -180,29 +180,31 @@ If `uniquify-min-dir-content' > 0, always pulls that many
file name elements.
Arguments NEWBUFFILE and NEWBUF cause only a subset of buffers to be renamed."
(interactive)
(setq newbuffile (expand-file-name (directory-file-name newbuffile)))
(let ((fix-list nil)
(base (file-name-nondirectory newbuffile)))
(dolist (buffer (buffer-list))
(let ((bufname (buffer-name buffer))
bfn)
(when (and (not (and uniquify-ignore-buffers-re
(string-match uniquify-ignore-buffers-re
bufname)))
;; Only try to rename buffers we actually manage.
(or (buffer-local-value 'uniquify-managed buffer)
(eq buffer newbuf))
(setq bfn (if (eq buffer newbuf) newbuffile
(uniquify-buffer-file-name buffer)))
(equal (file-name-nondirectory bfn) base))
(when (setq bfn (file-name-directory bfn)) ;Strip off the `base'.
(setq bfn (directory-file-name bfn))) ;Strip trailing slash.
(push (uniquify-make-item base bfn buffer
(uniquify-get-proposed-name base bfn))
fix-list))))
;; selects buffers whose names may need changing, and others that
;; may conflict, then bring conflicting names together
(uniquify-rationalize fix-list)))
(if (null newbuffile)
(with-current-buffer newbuf (setq uniquify-managed nil))
(setq newbuffile (expand-file-name (directory-file-name newbuffile)))
(let ((fix-list nil)
(base (file-name-nondirectory newbuffile)))
(dolist (buffer (buffer-list))
(let ((bufname (buffer-name buffer))
bfn)
(when (and (not (and uniquify-ignore-buffers-re
(string-match uniquify-ignore-buffers-re
bufname)))
;; Only try to rename buffers we actually manage.
(or (buffer-local-value 'uniquify-managed buffer)
(eq buffer newbuf))
(setq bfn (if (eq buffer newbuf) newbuffile
(uniquify-buffer-file-name buffer)))
(equal (file-name-nondirectory bfn) base))
(when (setq bfn (file-name-directory bfn)) ;Strip off the `base'.
(setq bfn (directory-file-name bfn))) ;Strip trailing slash.
(push (uniquify-make-item base bfn buffer
(uniquify-get-proposed-name base bfn))
fix-list))))
;; selects buffers whose names may need changing, and others that
;; may conflict, then bring conflicting names together
(uniquify-rationalize fix-list))))
;; uniquify's version of buffer-file-name; result never contains trailing slash
(defun uniquify-buffer-file-name (buffer)