diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2002-05-19 02:11:24 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2002-05-19 02:11:24 +0000 |
| commit | de856d998f97607dae0127d0b455fc2b0b08e007 (patch) | |
| tree | 5ec4008951f78da0e5b20ffddab510c4b464b3fe /lisp/uniquify.el | |
| parent | 51bfe25eff7719f53cb8fdfe941aefac49b8b013 (diff) | |
| download | emacs-de856d998f97607dae0127d0b455fc2b0b08e007.tar.gz emacs-de856d998f97607dae0127d0b455fc2b0b08e007.tar.bz2 emacs-de856d998f97607dae0127d0b455fc2b0b08e007.zip | |
(uniquify-rationalize-file-buffer-names):
Always strip the trailing / even if the file is not a directory.
Diffstat (limited to 'lisp/uniquify.el')
| -rw-r--r-- | lisp/uniquify.el | 4 |
1 files changed, 1 insertions, 3 deletions
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) |