# HG changeset patch
# User Francesco Potort��� <pot@gnu.org>
# Date 996675044 0
# Node ID d7598641f4bffc7be42edbc00106e17571bfb6be
# Parent  cf3c48886ed0c476b0f6d4aa61fb849da951315c
(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 -r cf3c48886ed0 -r d7598641f4bf lisp/uniquify.el
--- 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