(command-line-1): --insert: Don't complain on --insert=file.

diff --git a/lisp/startup.el b/lisp/startup.el
index 523dc5c6b3c6d28410a0a26adf8bf08252daf4a5..d7f7f55b5cb84fca0a162e965351a28c9cce4871 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -750,12 +750,12 @@ Type \\[describe-distribution] for information on getting the latest version."))
                       (setq file (expand-file-name file)))
                   (load file nil t)))
                ((string-equal argi "-insert")
-                (or (stringp (car command-line-args-left))
-                    (error "File name omitted from `-insert' option"))
                 (if argval
                     (setq tem argval)
                   (setq tem (car command-line-args-left)
                         command-line-args-left (cdr command-line-args-left)))
+                (or (stringp tem)
+                    (error "File name omitted from `-insert' option"))
                 (insert-file-contents tem))
                ((string-equal argi "-kill")
                 (kill-emacs t))