From d06a07057a502843473a971e6834d684b41e7fdb Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Francesco=20Potort=C3=AC?= Date: Wed, 1 Aug 2001 14:10:44 +0000 Subject: [PATCH] (uniquify-rationalize-file-buffer-names): Add an explicit test for " **lose**" buffers generated by find-alternate-file to avoid an error in particular conditions. --- lisp/uniquify.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/uniquify.el b/lisp/uniquify.el index e3b7874de0a..4d393b963b1 100644 --- a/lisp/uniquify.el +++ b/lisp/uniquify.el @@ -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