Commit 0f0cef08 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(command-line-1): Implement -scriptload.

parent 882effdb
......@@ -1635,6 +1635,13 @@ normal otherwise."
(setq file file-ex))
(load file nil t)))
((member argi '("-scriptload"))
(let* ((file (command-line-normalize-file-name
(or argval (pop command-line-args-left))))
;; Take file from default dir.
(file-ex (expand-file-name file)))
(load file-ex nil t t)))
((equal argi "-insert")
(setq tem (or argval (pop command-line-args-left)))
(or (stringp tem)
......
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