# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 852007827 0
# Node ID 8ae41d9d350d018f58842320d0d058d40797610f
# Parent  16f064c6c276aa3b0a02ee6ffb26ab279f31155f
(insert-directory): Use -- as arg
so that a file name or pattern is never taken as an option.

diff -r 16f064c6c276 -r 8ae41d9d350d lisp/files.el
--- a/lisp/files.el	Tue Dec 31 04:49:28 1996 +0000
+++ b/lisp/files.el	Tue Dec 31 04:50:27 1996 +0000
@@ -2726,7 +2726,7 @@
 						(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 @@
 					  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) ".")