martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(dired-insert-directory): Call expand-file-name here

Browse Source 
because the dir name may have been abbreviated before.
This commit is contained in:
Richard M. Stallman
1994-08-01 04:43:38 +00:00
parent 05d9e5954d
commit f150bd2b3e
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/dired.el
View File

@@ -526,13 +526,16 @@ If DIRNAME is already in a dired buffer, that buffer is used without refresh."
;; 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))