From: Erik Naggum <erik@naggum.no>
Date: Mon, 25 Sep 1995 11:04:07 +0000 (+0000)
Subject: (command-line-1): --insert: Don't complain on --insert=file.
X-Git-Tag: emacs-19.34~2787
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2d2aae549e328d7bd2b0fab5577bfc06f73368ad;p=emacs.git

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

diff --git a/lisp/startup.el b/lisp/startup.el
index 523dc5c6b3c..d7f7f55b5cb 100644
--- 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))