Mercurial > emacs
changeset 6633:451a2973d86b
(dired-add-entry, dired-insert-subdir-doinsert):
Call dired-insert-set-properties.
(dired-add-entry): Don't make name absolute; bind default-directory.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 01 Apr 1994 18:51:17 +0000 |
| parents | 652dc23b83fd |
| children | dc75f33163fb |
| files | lisp/dired-aux.el |
| diffstat | 1 files changed, 8 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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)