Mercurial > emacs
changeset 38639:d7598641f4bf
(uniquify-rationalize-file-buffer-names): Add an
explicit test for " **lose**" buffers generated by
find-alternate-file to avoid an error in particular conditions.
| author | Francesco Potortì <pot@gnu.org> |
|---|---|
| date | Wed, 01 Aug 2001 14:10:44 +0000 |
| parents | cf3c48886ed0 |
| children | 3ad03111e566 |
| files | lisp/uniquify.el |
| diffstat | 1 files changed, 4 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/uniquify.el Wed Aug 01 14:10:25 2001 +0000 +++ b/lisp/uniquify.el Wed Aug 01 14:10:44 2001 +0000 @@ -202,10 +202,12 @@ 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 @@ 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