[Emacs-diffs] Changes to emacs/lisp/uniquify.el

[Stefan Monnier]

Index: emacs/lisp/uniquify.el
diff -c emacs/lisp/uniquify.el:1.34 emacs/lisp/uniquify.el:1.35
*** emacs/lisp/uniquify.el:1.34 Tue Oct 23 18:01:08 2001
--- emacs/lisp/uniquify.el      Sat May 18 22:11:03 2002
***************
*** 199,207 ****
                 (setq bfn (if (eq buffer newbuf)
                               (when newbuffile
                                 (expand-file-name
!                                 (if (file-directory-p newbuffile)
!                                     (directory-file-name newbuffile)
!                                   newbuffile)))
                             (uniquify-buffer-file-name buffer)))
                 (setq rawname (uniquify-file-name-nondirectory bfn))
                 (or (not newbuffile)
--- 199,205 ----
                 (setq bfn (if (eq buffer newbuf)
                               (when newbuffile
                                 (expand-file-name
!                                 (directory-file-name newbuffile)))
                             (uniquify-buffer-file-name buffer)))
                 (setq rawname (uniquify-file-name-nondirectory bfn))
                 (or (not newbuffile)