diff options
| author | Jim Blandy <jimb@redhat.com> | 1993-05-25 13:22:21 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1993-05-25 13:22:21 +0000 |
| commit | fbce8654197f01e5e2ca03a6cfad6199e010e05f (patch) | |
| tree | bf38ceaea29b016d35797319cdd11ec1f46d14db /lisp | |
| parent | 281dc1c259d522bf078b975e249abeb2d31ff3cb (diff) | |
| download | emacs-fbce8654197f01e5e2ca03a6cfad6199e010e05f.tar.gz | |
* 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.
Diffstat (limited to 'lisp')
| -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 @@ ; -funcall function same ; -l file load file ; -load file same -; -i file insert file into buffer ; -insert file same ; file visit file ; -kill kill (exit) emacs @@ -371,10 +370,9 @@ Type \\[describe-distribution] for information on getting the latest version.")) (setq file (expand-file-name file))) (load file nil t)) (setq command-line-args-left (cdr command-line-args-left))) - ((or (string-equal argi "-i") - (string-equal argi "-insert")) + ((string-equal argi "-insert") (or (stringp (car command-line-args-left)) - (error "filename omitted from `-i' option")) + (error "filename omitted from `-insert' option")) (insert-file-contents (car command-line-args-left)) (setq command-line-args-left (cdr command-line-args-left))) ((string-equal argi "-kill") |