From: Francesco Potortì <pot@gnu.org>
Date: Wed, 1 Aug 2001 14:10:44 +0000 (+0000)
Subject: (uniquify-rationalize-file-buffer-names): Add an
X-Git-Tag: emacs-pretest-21.0.105~326
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d06a07057a502843473a971e6834d684b41e7fdb;p=emacs.git

(uniquify-rationalize-file-buffer-names): Add an
explicit test for " **lose**" buffers generated by
find-alternate-file to avoid an error in particular conditions.
---

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