# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1123586983 0
# Node ID 5c5fa9b830c265559ce0f2116f4bff2448fe3d2f
# Parent  6697c9af363184e998ecf403041d56e9596005ba
(command-line-1): Implement -scriptload.

diff -r 6697c9af3631 -r 5c5fa9b830c2 lisp/startup.el
--- a/lisp/startup.el	Tue Aug 09 11:29:18 2005 +0000
+++ b/lisp/startup.el	Tue Aug 09 11:29:43 2005 +0000
@@ -1635,6 +1635,13 @@
                      (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)