diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-09-16 21:35:10 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-09-16 21:35:10 +0000 |
| commit | 12c3828362ca719b68f6ae6df368276ca20b96db (patch) | |
| tree | b5580640e4fec4277d4bdb9f4714f2a53ce92119 /lisp/dired-x.el | |
| parent | 38819778968105baefe0174a23a49a0273fc074d (diff) | |
| download | emacs-12c3828362ca719b68f6ae6df368276ca20b96db.tar.gz | |
(dired-clean-up-after-deletion): Expand fn.
(dired-find-buffer-nocreate): Expand dir at beginning.
Diffstat (limited to 'lisp/dired-x.el')
| -rw-r--r-- | lisp/dired-x.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/dired-x.el b/lisp/dired-x.el index 6b24f99a7df..2594d1c6d54 100644 --- a/lisp/dired-x.el +++ b/lisp/dired-x.el @@ -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)))) |