From f150bd2b3e0d5d2540ae45b5bfd3d09735a2ea8f Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 1 Aug 1994 04:43:38 +0000 Subject: [PATCH] (dired-insert-directory): Call expand-file-name here because the dir name may have been abbreviated before. --- lisp/dired.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/lisp/dired.el b/lisp/dired.el index 705c1b8abb7..12925074258 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -526,13 +526,16 @@ If DIRNAME is already in a dired buffer, that buffer is used without refresh." ;; Do the right thing whether dir-or-list is atomic or not. If it is, ;; inset all files listed in the cdr (the car is the passed-in directory ;; list). + ;; We expand the file names here because the may have been abbreviated + ;; in dired-noselect. (let ((opoint (point))) (if (consp dir-or-list) (progn (mapcar - (function (lambda (x) (insert-directory x switches wildcard full-p))) + (function (lambda (x) (insert-directory (expand-file-name x) + switches wildcard full-p))) (cdr dir-or-list))) - (insert-directory dir-or-list switches wildcard full-p)) + (insert-directory (expand-file-name dir-or-list) switches wildcard full-p)) (dired-insert-set-properties opoint (point))) (setq dired-directory dir-or-list)) -- 2.39.5