# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 765226277 0
# Node ID 451a2973d86b36425f9bae917c8979d277fc2265
# Parent  652dc23b83fd4ae45c66260005c64a539fa0cfd6
(dired-add-entry, dired-insert-subdir-doinsert):
Call dired-insert-set-properties.
(dired-add-entry): Don't make name absolute; bind default-directory.

diff -r 652dc23b83fd -r 451a2973d86b lisp/dired-aux.el
--- a/lisp/dired-aux.el	Fri Apr 01 16:57:56 1994 +0000
+++ b/lisp/dired-aux.el	Fri Apr 01 18:51:17 1994 +0000
@@ -769,12 +769,14 @@
 		;; 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 @@
       (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)