# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1021774263 0
# Node ID f57a87acf8bfbffcc1f306c56b132ca260289fa4
# Parent  a0eaee1a642dbd92f23841b8c6d23ef7178ffbe5
(uniquify-rationalize-file-buffer-names):
Always strip the trailing / even if the file is not a directory.

diff -r a0eaee1a642d -r f57a87acf8bf lisp/uniquify.el
--- a/lisp/uniquify.el	Sun May 19 01:38:37 2002 +0000
+++ b/lisp/uniquify.el	Sun May 19 02:11:03 2002 +0000
@@ -199,9 +199,7 @@
 		 (setq bfn (if (eq buffer newbuf)
 			       (when newbuffile
 				 (expand-file-name
-				  (if (file-directory-p newbuffile)
-				      (directory-file-name newbuffile)
-				    newbuffile)))
+				  (directory-file-name newbuffile)))
 			     (uniquify-buffer-file-name buffer)))
 		 (setq rawname (uniquify-file-name-nondirectory bfn))
 		 (or (not newbuffile)