Commit 2d2aae54 authored by Erik Naggum's avatar Erik Naggum
Browse files

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

parent 955093c9
......@@ -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))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment