From: Karl Heuer <kwzh@gnu.org>
Date: Mon, 8 Jan 1996 22:41:40 +0000 (+0000)
Subject: (uniquify-rationalize-file-buffer-names): If
X-Git-Tag: emacs-19.34~1804
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=04f3a6563a5c268d5e22a466d0b13014ed6f9a43;p=emacs.git

(uniquify-rationalize-file-buffer-names): If
newbuffile is nil, don't call expand-file-name on it.
---

diff --git a/lisp/uniquify.el b/lisp/uniquify.el
index 495d893baf0..3bf889f0996 100644
--- a/lisp/uniquify.el
+++ b/lisp/uniquify.el
@@ -147,7 +147,8 @@ pathname elements.  Arguments cause only a subset of buffers to be renamed."
       (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