mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-28 01:00:52 -07:00
Code Issues Projects Releases Wiki Activity

(insert-directory): Use -- as arg

Browse source 
so that a file name or pattern is never taken as an option.
This commit is contained in:
Richard M. Stallman 1996-12-31 04:50:27 +00:00
parent 63ba033ea1
commit a8bf610ec0
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/files.el
View file

@ -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) ".")