Mercurial > emacs

diff lisp/dired-x.el @ 8792:d85424a6fb85

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(dired-clean-up-after-deletion): Expand fn. (dired-find-buffer-nocreate): Expand dir at beginning.
author Richard M. Stallman <rms@gnu.org>
date Fri, 16 Sep 1994 21:35:10 +0000
parents fad4e60c964d
children 10b791eec6dc
line wrap: on
line diff
--- a/lisp/dired-x.el	Fri Sep 16 21:34:27 1994 +0000
+++ b/lisp/dired-x.el	Fri Sep 16 21:35:10 1994 +0000
@@ -301,7 +301,7 @@
                                 (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 @@
 (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))))