comparison lisp/dired.el @ 8407:fed86303cb07

(dired-insert-directory): Call expand-file-name here because the dir name may have been abbreviated before.

8406:849045d64643

(defun dired-insert-directory (dir-or-list switches &optional wildcard full-p)
  ;; 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).
  (let ((opoint (point)))
    (if (consp dir-or-list)
	(progn
	  (mapcar
	   (function (lambda (x) (insert-directory x switches wildcard full-p)))
	   (cdr dir-or-list)))
      (insert-directory dir-or-list switches wildcard full-p))
    (dired-insert-set-properties opoint (point)))
  (setq dired-directory dir-or-list))

(defun dired-insert-set-properties (beg end)
  (save-excursion

8407:fed86303cb07

(defun dired-insert-directory (dir-or-list switches &optional wildcard full-p)
  ;; 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 (expand-file-name x)
						   switches wildcard full-p)))
	   (cdr dir-or-list)))
      (insert-directory (expand-file-name dir-or-list) switches wildcard full-p))
    (dired-insert-set-properties opoint (point)))
  (setq dired-directory dir-or-list))

(defun dired-insert-set-properties (beg end)
  (save-excursion