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) |