(dired-add-entry, dired-insert-subdir-doinsert):

Call dired-insert-set-properties.
(dired-add-entry): Don't make name absolute; bind default-directory.

1 files changed, 8 insertions, 4 deletions

diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index 0959ee0f1d4..b01ba220433 100644
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -769,12 +769,14 @@ a prefix arg lets you edit the `ls' switches used for the new listing."
 		;; not found
 		(throw 'not-found "Subdir not found")))
 	    ;; found and point is at The Right Place:
-	    (let (buffer-read-only)
+	    (let (buffer-read-only (opoint (point)))
 	      (beginning-of-line)
 	      (dired-add-entry-do-indentation marker-char)
 	      ;; don't expand `.' !
-	      (insert-directory (dired-make-absolute filename directory)
-				(concat dired-actual-switches "d"))
+	      (let ((default-directory directory))
+		(insert-directory filename
+				  (concat dired-actual-switches "d")))
+	      (dired-insert-set-properties opoint (point))
 	      (forward-line -1)
 	      ;; We want to have the non-directory part, only:
 	      (let* ((beg (dired-move-to-filename t)) ; error for strange output
@@ -1592,7 +1594,9 @@ This function takes some pains to conform to `ls -lR' output."
       (if (equal dirname (car (car (reverse dired-subdir-alist))))
 	  ;; top level directory may contain wildcards:
 	  (dired-readin-insert dired-directory)
-	(insert-directory dirname dired-actual-switches nil t)))
+	(let ((opoint (point)))
+	  (insert-directory dirname dired-actual-switches nil t)
+	  (dired-insert-set-properties opoint (point)))))
     (message "Reading directory %s...done" dirname)
     (setq end (point-marker))
     (indent-rigidly begin end 2)