mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

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

Browse Source 
explicit test for " **lose**" buffers generated by
find-alternate-file to avoid an error in particular conditions.
This commit is contained in:
Francesco Potortì 2001-08-01 14:10:44 +00:00
parent cc46bfe76a
commit d06a07057a
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/uniquify.el
View File

@ -202,10 +202,12 @@ file name elements. Arguments cause only a subset of buffers to be renamed."
newbuffile)))
(uniquify-buffer-file-name buffer)))
(rawname (and bfn (uniquify-file-name-nondirectory bfn)))
(bufname (buffer-name buffer))
(deserving (and rawname
(not (string= bufname " **lose**"))
(not (and uniquify-ignore-buffers-re
(string-match uniquify-ignore-buffers-re
(buffer-name buffer))))
bufname)))
(or (not newbuffile)
(equal rawname newbuffile-nd))))
(min-proposed (if deserving
@ -213,7 +215,7 @@ file name elements. Arguments cause only a subset of buffers to be renamed."
rawname bfn uniquify-min-dir-content))))
(if deserving
(push (list rawname bfn buffer min-proposed) fix-list)
(push (list (buffer-name buffer)) uniquify-non-file-buffer-names))))
(push (list bufname) uniquify-non-file-buffer-names))))
;; selects buffers whose names may need changing, and others that
;; may conflict.
(setq fix-list