Mercurial > emacs

comparison lisp/startup.el @ 748:4714ad36583c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Jim Blandy <jimb@redhat.com>
date Tue, 07 Jul 1992 18:36:02 +0000
parents e4253da532fb
children e43123226372
comparison
equal deleted inserted replaced
747:701693a7acb7 748:4714ad36583c
336 (setq file (expand-file-name file))) 336 (setq file (expand-file-name file)))
337 (load file nil t)) 337 (load file nil t))
338 (setq command-line-args-left (cdr command-line-args-left))) 338 (setq command-line-args-left (cdr command-line-args-left)))
339 ((or (string-equal argi "-i") 339 ((or (string-equal argi "-i")
340 (string-equal argi "-insert")) 340 (string-equal argi "-insert"))
341 (or (stringp (car command-line-args-left))
342 (error "filename omitted from `-i' option"))
341 (insert-file-contents (car command-line-args-left)) 343 (insert-file-contents (car command-line-args-left))
342 (setq command-line-args-left (cdr command-line-args-left))) 344 (setq command-line-args-left (cdr command-line-args-left)))
343 ((string-equal argi "-kill") 345 ((string-equal argi "-kill")
344 (kill-emacs t)) 346 (kill-emacs t))
345 ((string-match "^\\+[0-9]+\\'" argi) 347 ((string-match "^\\+[0-9]+\\'" argi)