diff options
author | Richard M. Stallman <[email protected]> | 2005-08-09 11:29:43 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 2005-08-09 11:29:43 +0000 |
commit | 0f0cef08e6f9fc6cf771bea57cf8edd3c3dfc44d (patch) | |
tree | aef6b14889dab50a287b7d51e2a85f88813172ed /lisp | |
parent | 882effdb17c9755edd6f064be58d87d5b8911d9b (diff) |
(command-line-1): Implement -scriptload.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/startup.el | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lisp/startup.el b/lisp/startup.el index 61b56e7bab..ca71ef4313 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) |