Mercurial > emacs

changeset 13073:840a4e0ec0a6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(command-line-1): --insert: Don't complain on --insert=file.
author Erik Naggum <erik@naggum.no>
date Mon, 25 Sep 1995 11:04:07 +0000
parents c5e3d029241d
children c361ef50ec0f
files lisp/startup.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/startup.el	Mon Sep 25 10:56:15 1995 +0000
+++ b/lisp/startup.el	Mon Sep 25 11:04:07 1995 +0000
@@ -750,12 +750,12 @@
 		       (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))