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

2005-08-09 11:29:43 +00:00
parent 882effdb17
commit 0f0cef08e6
1 changed files with 7 additions and 0 deletions
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -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)