(insert-directory): Use -- as arg

so that a file name or pattern is never taken as an option.

(insert-directory): Use -- as arg
so that a file name or pattern is never taken as an option.
a8bf610e · Richard M. Stallman · 63ba033e · a8bf610e
Commit a8bf610e authored Dec 31, 1996 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 1 deletion

lisp/files.el lisp/files.el +3 -1

No files found.
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -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) ".")