mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-27 15:52:00 -08:00
Code Issues Projects Releases Wiki Activity

(dired-clean-up-after-deletion): Expand fn.

Browse source 
(dired-find-buffer-nocreate): Expand dir at beginning.
This commit is contained in:
Richard M. Stallman 1994-09-16 21:35:10 +00:00
parent 3881977896
commit 12c3828362
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/dired-x.el
View file

@ -301,7 +301,7 @@ See also functions
(file-name-nondirectory fn)))
(save-excursion ; you never know where kill-buffer leaves you
(kill-buffer buf))))
(let ((buf-list (dired-buffers-for-dir fn))
(let ((buf-list (dired-buffers-for-dir (expand-file-name fn)))
(buf nil))
(and buf-list
(y-or-n-p (format "Kill dired buffer%s of %s, too? "
@ -1364,7 +1364,8 @@ See also variable `dired-vm-read-only-folders'."
(defun dired-find-buffer-nocreate (dirname)
(if dired-find-subdir
(let* ((cur-buf (current-buffer))
(buffers (nreverse (dired-buffers-for-dir dirname)))
(buffers (nreverse
(dired-buffers-for-dir (expand-file-name dirname))))
(cur-buf-matches (and (memq cur-buf buffers)
;; wildcards must match, too:
(equal dired-directory dirname))))