Mercurial > emacs
diff lisp/startup.el @ 64824:5c5fa9b830c2
(command-line-1): Implement -scriptload.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Tue, 09 Aug 2005 11:29:43 +0000 |
parents | 41bb365f41c4 |
children | b43107701c1e |
line wrap: on
line diff
--- 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)