# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 821140900 0
# Node ID 41802d268ffb421272e760959ac274a3ee8e7967
# Parent  df451c7f682077b6f90071ada36a8ad5f4ded37a
(uniquify-rationalize-file-buffer-names): If
newbuffile is nil, don't call expand-file-name on it.

diff -r df451c7f6820 -r 41802d268ffb lisp/uniquify.el
--- a/lisp/uniquify.el	Mon Jan 08 22:34:43 1996 +0000
+++ b/lisp/uniquify.el	Mon Jan 08 22:41:40 1996 +0000
@@ -147,7 +147,8 @@
       (while buffers
 	(let* ((buffer (car buffers))
 	       (bfn (if (eq buffer newbuf)
-			(expand-file-name newbuffile)
+			(and newbuffile
+			     (expand-file-name newbuffile))
 		      (uniquify-buffer-file-name buffer)))
 	       (rawname (and bfn (file-name-nondirectory bfn)))
 	       (deserving (and rawname