Mercurial > emacs

changeset 14056:41802d268ffb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(uniquify-rationalize-file-buffer-names): If newbuffile is nil, don't call expand-file-name on it.
author Karl Heuer <kwzh@gnu.org>
date Mon, 08 Jan 1996 22:41:40 +0000
parents df451c7f6820
children 61ef36a83a98
files lisp/uniquify.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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