# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 775716218 0
# Node ID fed86303cb0740bc12314dddbea81c13af54b032
# Parent  849045d64643835a40735123126f2d520856eef1
(dired-insert-directory): Call expand-file-name here
because the dir name may have been abbreviated before.

diff -r 849045d64643 -r fed86303cb07 lisp/dired.el
--- 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))