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
a8bf610e
Commit
a8bf610e
authored
Dec 31, 1996
by
Richard M. Stallman
Browse files
(insert-directory): Use -- as arg
so that a file name or pattern is never taken as an option.
parent
63ba033e
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
3 additions
and
1 deletion
+3
-1
lisp/files.el
lisp/files.el
+3
-1
No files found.
lisp/files.el
View file @
a8bf610e
...
...
@@ -2726,7 +2726,7 @@ If WILDCARD, it also runs the shell specified by `shell-file-name'."
(
if
(
stringp
switches
)
switches
(
mapconcat
'identity
switches
" "
))
" "
"
--
"
pattern
)))
;; SunOS 4.1.3, SVr4 and others need the "." to list the
;; directory if FILE is a symbolic link.
...
...
@@ -2745,6 +2745,8 @@ If WILDCARD, it also runs the shell specified by `shell-file-name'."
switches
(
substring
switches
(
match-end
0
))))
(
setq
list
(
nreverse
(
cons
switches
list
))))))
(
append
list
;; Avoid lossage if FILE starts with `-'.
'
(
"--"
)
(
list
(
if
full-directory-p
(
concat
(
file-name-as-directory
file
)
"."
)
...
...
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