Mercurial > emacs
comparison lisp/startup.el @ 13073:840a4e0ec0a6
(command-line-1): --insert: Don't complain on --insert=file.
| author | Erik Naggum <erik@naggum.no> |
|---|---|
| date | Mon, 25 Sep 1995 11:04:07 +0000 |
| parents | c5e3d029241d |
| children | 3753d2ea3ab1 |
comparison
equal
deleted
inserted
replaced
| 13072:c5e3d029241d | 13073:840a4e0ec0a6 |
|---|---|
| 748 ;; otherwise let `load' search for it. | 748 ;; otherwise let `load' search for it. |
| 749 (if (file-exists-p (expand-file-name file)) | 749 (if (file-exists-p (expand-file-name file)) |
| 750 (setq file (expand-file-name file))) | 750 (setq file (expand-file-name file))) |
| 751 (load file nil t))) | 751 (load file nil t))) |
| 752 ((string-equal argi "-insert") | 752 ((string-equal argi "-insert") |
| 753 (or (stringp (car command-line-args-left)) | |
| 754 (error "File name omitted from `-insert' option")) | |
| 755 (if argval | 753 (if argval |
| 756 (setq tem argval) | 754 (setq tem argval) |
| 757 (setq tem (car command-line-args-left) | 755 (setq tem (car command-line-args-left) |
| 758 command-line-args-left (cdr command-line-args-left))) | 756 command-line-args-left (cdr command-line-args-left))) |
| 757 (or (stringp tem) | |
| 758 (error "File name omitted from `-insert' option")) | |
| 759 (insert-file-contents tem)) | 759 (insert-file-contents tem)) |
| 760 ((string-equal argi "-kill") | 760 ((string-equal argi "-kill") |
| 761 (kill-emacs t)) | 761 (kill-emacs t)) |
| 762 ((string-match "^\\+[0-9]+\\'" argi) | 762 ((string-match "^\\+[0-9]+\\'" argi) |
| 763 (setq line (string-to-int argi))) | 763 (setq line (string-to-int argi))) |