From fbce8654197f01e5e2ca03a6cfad6199e010e05f Mon Sep 17 00:00:00 2001 From: Jim Blandy Date: Tue, 25 May 1993 13:22:21 +0000 Subject: * 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. --- lisp/startup.el | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'lisp') 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") -- cgit v1.2.1