(uniquify-rationalize-file-buffer-names):

Always strip the trailing / even if the file is not a directory.

2 files changed, 20 insertions, 6 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0d3db06d6b5..04f8a0aa96f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,14 +1,19 @@
+2002-05-18  Stefan Monnier  <monnier@cs.yale.edu>
+
+        * uniquify.el (uniquify-rationalize-file-buffer-names):
+        Always strip the trailing / even if the file is not a directory.
+
 2002-05-18  Glenn Morris  <gmorris@ast.cam.ac.uk>
 
         * progmodes/f90.el (f90-mode-syntax-table, f90-mode-map): Do the
-        initialization in the defvar. 
+        initialization in the defvar.
         (f90-font-lock-on, f90-font-lock-off): Add 'menu-alias property.
         (f90-font-lock-1, f90-font-lock-2, f90-font-lock-3)
         (f90-font-lock-4): Move the doc strings.
         (f90-menu-bar-menu): New internal variable to hold the top-level menu.
         (f90-change-case-menu, f90-font-lock-menu): Minor code changes.
         (f90-mode-abbrev-table): Initialize in the defvar, with
-        define-abbrev-table. 
+        define-abbrev-table.
 
 2002-05-18  Eli Zaretskii  <eliz@is.elta.co.il>
 
@@ -40,10 +45,21 @@
 
         * tar-mode.el (tar-octal-time): Fix the last argument of logior.
 
+2002-05-16  Stefan Monnier  <monnier@cs.yale.edu>
+
+        * emacs-lisp/find-func.el (find-function-search-for-symbol):
+        Find funs defined with defun-cvs-mode.
+        (find-function-space-re): New const.  Skips comments as well.
+        (find-function-regexp, find-variable-regexp): Use it.
+
+        * pcvs.el (cvs-cmd-do): Accept non-CVS dirs with CVS-ctrl'd subdirs.
+        (cvs-mode-add-change-log-entry-other-window): Work on multiple files.
+        (cvs-mode-set-flags): Don't cons unnecessarily.
+
 2002-05-16  Colin Walters  <walters@debian.org>
 
         * menu-bar.el (menu-bar-tools-menu) <calculator>: Renamed to
-        "Simple Calculator".
+        "Simple Calculator".
         (menu-bar-tools-menu) <calc>: New.
 
 2002-05-16  Juanma Barranquero  <lektu@terra.es>
diff --git a/lisp/uniquify.el b/lisp/uniquify.el
index cd8b22303dc..448ce6f4744 100644
--- a/lisp/uniquify.el
+++ b/lisp/uniquify.el
@@ -199,9 +199,7 @@ file name elements.  Arguments cause only a subset of buffers to be renamed."
                  (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)