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

(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))) newbuffile)))
(uniquify-buffer-file-name buffer))) (uniquify-buffer-file-name buffer)))
(rawname (and bfn (uniquify-file-name-nondirectory bfn))) (rawname (and bfn (uniquify-file-name-nondirectory bfn)))
(bufname (buffer-name buffer))
(deserving (and rawname (deserving (and rawname
(not (string= bufname " **lose**"))
(not (and uniquify-ignore-buffers-re (not (and uniquify-ignore-buffers-re
(string-match uniquify-ignore-buffers-re (string-match uniquify-ignore-buffers-re
(buffer-name buffer)))) bufname)))
(or (not newbuffile) (or (not newbuffile)
(equal rawname newbuffile-nd)))) (equal rawname newbuffile-nd))))
(min-proposed (if deserving (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)))) rawname bfn uniquify-min-dir-content))))
(if deserving (if deserving
(push (list rawname bfn buffer min-proposed) fix-list) (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 ;; selects buffers whose names may need changing, and others that
;; may conflict. ;; may conflict.
(setq fix-list (setq fix-list