; -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
(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")
;; show user what they all are.
(if (> file-count 2)
(or (get-buffer-window first-file-buffer)
- (progn (other-window)
+ (progn (other-window 1)
(buffer-menu)))))))
;;; startup.el ends here