Mercurial > emacs
changeset 8407:fed86303cb07
(dired-insert-directory): Call expand-file-name here
because the dir name may have been abbreviated before.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 01 Aug 1994 04:43:38 +0000 |
| parents | 849045d64643 |
| children | 109166e311ce |
| files | lisp/dired.el |
| diffstat | 1 files changed, 5 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/dired.el Mon Aug 01 00:39:26 1994 +0000 +++ b/lisp/dired.el Mon Aug 01 04:43:38 1994 +0000 @@ -526,13 +526,16 @@ ;; 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))