mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-19 06:31:34 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Erik Naggum 1995-09-25 11:04:07 +00:00
parent 955093c9e8
commit 2d2aae549e
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/startup.el
View file

@ -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))