andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(uniquify-rationalize-file-buffer-names): Fix corner case when renaming

Browse source 
to the same name.
This commit is contained in:
Stefan Monnier 2005-01-05 21:49:02 +00:00
parent 2eec3e8edf
commit 9890ec7d19
2 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/ChangeLog
View file

@ -2,6 +2,8 @@
* uniquify.el (uniquify-rationalize-file-buffer-names):
Re-add an interactive spec.
(uniquify-rationalize-file-buffer-names): Fix corner case when renaming
to the same name.
* isearch.el (isearch-dehighlight): Remove unused arg `totally'.
(isearch-update, isearch-done): Adjust calls accordingly.

6
lisp/uniquify.el
View file

@ -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)