[Emacs-diffs] Changes to emacs/lisp/startup.el

[Richard M . Stallman]

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)