Mercurial > emacs

comparison lisp/uniquify.el @ 59381:77618102ddc4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(uniquify-rationalize-file-buffer-names): Fix corner case when renaming to the same name.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Wed, 05 Jan 2005 21:49:02 +0000
parents 7764df4e45e1
children c905fcf5e3d9 cb67264d6096
comparison
equal deleted inserted replaced
59380:7764df4e45e1 59381:77618102ddc4
192 (interactive 192 (interactive
193 (list (if uniquify-managed 193 (list (if uniquify-managed
194 (uniquify-item-base (car uniquify-managed)) (buffer-name)) 194 (uniquify-item-base (car uniquify-managed)) (buffer-name))
195 (uniquify-buffer-file-name (current-buffer)) 195 (uniquify-buffer-file-name (current-buffer))
196 (current-buffer))) 196 (current-buffer)))
197 (if (null dirname) 197 ;; Make sure we don't get confused by outdated uniquify-managed info in
198 (with-current-buffer newbuf (setq uniquify-managed nil)) 198 ;; this buffer.
199 (with-current-buffer newbuf (setq uniquify-managed nil))
200 (when dirname
199 (setq dirname (expand-file-name (directory-file-name dirname))) 201 (setq dirname (expand-file-name (directory-file-name dirname)))
200 (let ((fix-list (list (uniquify-make-item base dirname newbuf))) 202 (let ((fix-list (list (uniquify-make-item base dirname newbuf)))
201 items) 203 items)
202 (dolist (buffer (buffer-list)) 204 (dolist (buffer (buffer-list))
203 (when (and (not (and uniquify-ignore-buffers-re 205 (when (and (not (and uniquify-ignore-buffers-re