Index: emacs/lisp/startup.el
diff -c emacs/lisp/startup.el:1.372 emacs/lisp/startup.el:1.373
*** emacs/lisp/startup.el:1.372 Sat Aug 6 22:13:43 2005
--- emacs/lisp/startup.el Tue Aug 9 11:29:43 2005
***************
*** 1635,1640 ****
--- 1635,1647 ----
(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)
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
