diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2005-01-05 21:49:02 +0000 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2005-01-05 21:49:02 +0000 |
commit | b36029ff9e2ba7ae700d179099b75cfb43267371 (patch) | |
tree | 0f3e783ea3947e62fb94f7db6dc086580f581dd0 /lisp/uniquify.el | |
parent | 2247ae29ef0e7916368298c2bb0add87c35671fb (diff) | |
download | emacs-b36029ff9e2ba7ae700d179099b75cfb43267371.tar.gz |
(uniquify-rationalize-file-buffer-names): Fix corner case when renaming
to the same name.
Diffstat (limited to 'lisp/uniquify.el')
-rw-r--r-- | lisp/uniquify.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/uniquify.el b/lisp/uniquify.el index 689dffb9618..ea9094da78a 100644 --- a/lisp/uniquify.el +++ b/lisp/uniquify.el @@ -194,8 +194,10 @@ this rationalization." (uniquify-item-base (car uniquify-managed)) (buffer-name)) (uniquify-buffer-file-name (current-buffer)) (current-buffer))) - (if (null dirname) - (with-current-buffer newbuf (setq uniquify-managed nil)) + ;; Make sure we don't get confused by outdated uniquify-managed info in + ;; this buffer. + (with-current-buffer newbuf (setq uniquify-managed nil)) + (when dirname (setq dirname (expand-file-name (directory-file-name dirname))) (let ((fix-list (list (uniquify-make-item base dirname newbuf))) items) |