Mercurial > emacs
diff lisp/startup.el @ 787:3cece0106722
*** empty log message ***
author | Eric S. Raymond <esr@snark.thyrsus.com> |
---|---|
date | Wed, 15 Jul 1992 21:31:44 +0000 |
parents | c2dbf1fe0506 |
children | 71d052f72ac1 |
line wrap: on
line diff
--- a/lisp/startup.el Wed Jul 15 20:52:46 1992 +0000 +++ b/lisp/startup.el Wed Jul 15 21:31:44 1992 +0000 @@ -1,5 +1,8 @@ ;;; startup.el --- process Emacs shell arguments +;; Maintainer: FSF +;; Last-Modified: 9 Jul 1992 + ;; Copyright (C) 1985, 1986, 1992 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. @@ -18,6 +21,7 @@ ;; along with GNU Emacs; see the file COPYING. If not, write to ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. +;;; Commentary: ; These are processed only at the beginning of the argument list. ; -batch execute noninteractively (messages go to stdout, @@ -48,6 +52,8 @@ ; file visit file ; -kill kill (exit) emacs +;;; Code: + (setq top-level '(normal-top-level)) (defvar command-line-processed nil "t once command line has been processed")