aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJim Blandy1993-05-25 13:22:21 +0000
committerJim Blandy1993-05-25 13:22:21 +0000
commitfbce8654197f01e5e2ca03a6cfad6199e010e05f (patch)
treebf38ceaea29b016d35797319cdd11ec1f46d14db
parent281dc1c259d522bf078b975e249abeb2d31ff3cb (diff)
downloademacs-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.el6
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")