From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 9 Aug 2005 11:29:43 +0000 (+0000)
Subject: (command-line-1): Implement -scriptload.
X-Git-Tag: emacs-pretest-22.0.90~7712
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0f0cef08e6f9fc6cf771bea57cf8edd3c3dfc44d;p=emacs.git

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

diff --git a/lisp/startup.el b/lisp/startup.el
index 61b56e7babf..ca71ef43137 100644
--- 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)