Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
f150bd2b
Commit
f150bd2b
authored
Aug 01, 1994
by
Richard M. Stallman
Browse files
(dired-insert-directory): Call expand-file-name here
because the dir name may have been abbreviated before.
parent
05d9e595
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
5 additions
and
2 deletions
+5
-2
lisp/dired.el
lisp/dired.el
+5
-2
No files found.
lisp/dired.el
View file @
f150bd2b
...
...
@@ -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
))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment