diff options
| author | Jim Blandy | 1993-05-25 13:22:21 +0000 |
|---|---|---|
| committer | Jim Blandy | 1993-05-25 13:22:21 +0000 |
| commit | fbce8654197f01e5e2ca03a6cfad6199e010e05f (patch) | |
| tree | bf38ceaea29b016d35797319cdd11ec1f46d14db | |
| parent | 281dc1c259d522bf078b975e249abeb2d31ff3cb (diff) | |
| download | emacs-fbce8654197f01e5e2ca03a6cfad6199e010e05f.tar.gz emacs-fbce8654197f01e5e2ca03a6cfad6199e010e05f.zip | |
* startup.el (command-line-1): Don't handle `-i'. We're
abandoning the `insert file' meaning in favor of the `use a
bitmapped icon' meaning.
| -rw-r--r-- | lisp/startup.el | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lisp/startup.el b/lisp/startup.el index b7552fad26b..fa38680d415 100644 --- a/lisp/startup.el +++ b/lisp/startup.el | |||
| @@ -47,7 +47,6 @@ | |||
| 47 | ; -funcall function same | 47 | ; -funcall function same |
| 48 | ; -l file load file | 48 | ; -l file load file |
| 49 | ; -load file same | 49 | ; -load file same |
| 50 | ; -i file insert file into buffer | ||
| 51 | ; -insert file same | 50 | ; -insert file same |
| 52 | ; file visit file | 51 | ; file visit file |
| 53 | ; -kill kill (exit) emacs | 52 | ; -kill kill (exit) emacs |
| @@ -371,10 +370,9 @@ Type \\[describe-distribution] for information on getting the latest version.")) | |||
| 371 | (setq file (expand-file-name file))) | 370 | (setq file (expand-file-name file))) |
| 372 | (load file nil t)) | 371 | (load file nil t)) |
| 373 | (setq command-line-args-left (cdr command-line-args-left))) | 372 | (setq command-line-args-left (cdr command-line-args-left))) |
| 374 | ((or (string-equal argi "-i") | 373 | ((string-equal argi "-insert") |
| 375 | (string-equal argi "-insert")) | ||
| 376 | (or (stringp (car command-line-args-left)) | 374 | (or (stringp (car command-line-args-left)) |
| 377 | (error "filename omitted from `-i' option")) | 375 | (error "filename omitted from `-insert' option")) |
| 378 | (insert-file-contents (car command-line-args-left)) | 376 | (insert-file-contents (car command-line-args-left)) |
| 379 | (setq command-line-args-left (cdr command-line-args-left))) | 377 | (setq command-line-args-left (cdr command-line-args-left))) |
| 380 | ((string-equal argi "-kill") | 378 | ((string-equal argi "-kill") |