/[emacs]/emacs/lisp/startup.el
ViewVC logotype

Diff of /emacs/lisp/startup.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.372 by ttn, Sat Aug 6 22:13:43 2005 UTC revision 1.373 by rms, Tue Aug 9 11:29:43 2005 UTC
# Line 1635  normal otherwise." Line 1635  normal otherwise."
1635                       (setq file file-ex))                       (setq file file-ex))
1636                     (load file nil t)))                     (load file nil t)))
1637    
1638                    ((member argi '("-scriptload"))
1639                     (let* ((file (command-line-normalize-file-name
1640                                   (or argval (pop command-line-args-left))))
1641                            ;; Take file from default dir.
1642                            (file-ex (expand-file-name file)))
1643                       (load file-ex nil t t)))
1644    
1645                  ((equal argi "-insert")                  ((equal argi "-insert")
1646                   (setq tem (or argval (pop command-line-args-left)))                   (setq tem (or argval (pop command-line-args-left)))
1647                   (or (stringp tem)                   (or (stringp tem)

Legend:
Removed from v.1.372  
changed lines
  Added in v.1.373

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26