🚀 go-pugleaf

[Emacs 18.55, 18.57]

Type `C-x C-v RET' in a dired buffer, that is find-alternate-file to
the same dired buffer.  This kills the buffer instead of giving me a
fresh dired buffer for the same directory.  (It happens both with
18.55 dired.el and my own tree dired.)

I think the bug is in find-alternate-file.  In the final statement
where it says

	(kill-buffer obuf)

it should instead say

    	(or (eq obuf (current-buffer))
	    (kill-buffer obuf))

This is necessary because dired-noselect returns the old buffer
regardless of buffer-file-name, in contrast to find-file-noselect
returning a fresh buffer after find-alternate-file sets
buffer-file-name to nil.  (Dired uses dired-directory to record the
directory or wildcards for the dired buffer and does not touch or care
about buffer-file-name.)

BTW, `C-x C-v RET' on a plain file works fine, it revisits the file,
though judging from the prompt I would expect to dired its directory.
I think (interactive "F...") defaults to the current buffer's name,
even if the prompt does not indicate this.


Sebastian Kremer <sk@thp.Uni-Koeln.DE>
Institute of Theoretical Physics, University of Cologne, F. R. of Germany