| blob | a884e61a1830e56ba0ee0c7d67296f3f3024eae3 |
1 ;;; startup.el --- process Emacs shell arguments
3 ;; Copyright (C) 1985, 1986, 1992, 1994 Free Software Foundation, Inc.
5 ;; Maintainer: FSF
6 ;; Keywords: internal
8 ;; This file is part of GNU Emacs.
10 ;; GNU Emacs is free software; you can redistribute it and/or modify
11 ;; it under the terms of the GNU General Public License as published by
12 ;; the Free Software Foundation; either version 2, or (at your option)
13 ;; any later version.
15 ;; GNU Emacs is distributed in the hope that it will be useful,
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 ;; GNU General Public License for more details.
20 ;; You should have received a copy of the GNU General Public License
21 ;; along with GNU Emacs; see the file COPYING. If not, write to
22 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
24 ;;; Commentary:
26 ; These are processed only at the beginning of the argument list.
27 ; -batch execute noninteractively (messages go to stdout,
28 ; variable noninteractive set to t)
29 ; This option must be the first in the arglist.
30 ; Processed by `main' in emacs.c -- never seen by lisp
31 ; -t file Specify to use file rather than stdin/stdout
32 ; as the terminal.
33 ; This option must be the first in the arglist.
34 ; Processed by `main' in emacs.c -- never seen by lisp
35 ; -nw Inhibit the use of any window-system-specific display
36 ; code; use the current virtual terminal.
37 ; This option must be the first in the arglist.
38 ; Processed by `main' in emacs.c -- never seen by lisp
39 ; -q load no init file
40 ; -no-init-file same
41 ; -u user load user's init file
42 ; -user user same
43 ; -debug-init Don't catch errors in init file; let debugger run.
44 ; -no-site-file Don't load site-run-file.
46 ; These are processed in the order encountered.
47 ; -f function execute function
48 ; -funcall function same
49 ; -l file load file
50 ; -load file same
51 ; -insert file insert file into buffer
52 ; file visit file
53 ; -kill kill (exit) emacs
55 ;;; Code:
62 "*Non-nil inhibits the initial startup message.
63 This is for use in your personal init file, once you are familiar
67 "*Non-nil inhibits the initial startup echo area message.
68 Inhibition takes effect only if your `.emacs' file contains
69 a line of this form:
71 If your `.emacs' file is byte-compiled, use the following form instead:
73 Thus, someone else using a copy of your `.emacs' file will see
80 "Alist of command-line switches.
81 Elements look like (SWITCH-STRING . HANDLER-FUNCTION).
82 HANDLER-FUNCTION receives switch name as sole arg;
89 "List of functions to process unrecognized command-line arguments.
90 Each function should access the dynamically bound variables
91 `argi' (the current argument) and `command-line-args-left' (the remaining
92 arguments). The function should return non-nil only if it recognizes and
93 processes `argi'. If it does so, it may consume successive arguments by
97 "Default directory to use for command line arguments.
101 "Functions to call after handling urgent options but before init files.
102 The frame system uses this to open frames to display messages while
106 "Functions to call after loading the init file (`~/.emacs').
107 The call is not protected by a condition-case, so you can set `debug-on-error'
111 "Functions to be called after loading terminal-specific Lisp code.
112 See `run-hooks'. This variable exists for users to set,
113 so as to override the definitions made by the terminal-specific file.
117 "The brand of keyboard you are using.
118 This variable is used to define
119 the proper function and keypad keys for use under X. It is used in a
123 "Normal hook run to initialize window system display.
124 Emacs runs this hook after processing the command line arguments and loading
131 "Identity of user whose `.emacs' file is or was read.
132 The value is nil if no init file is being used; otherwise, it may be either
133 the null string, meaning that the init file was taken from the user that
134 originally logged in, or it may be a string containing a user's name.
137 evaluates to the name of the directory where the `.emacs' file was
141 "File containing site-wide run-time initializations.
142 This file is loaded at run-time before `~/.emacs'. It contains inits
143 that need to be in place for the entire site, but which, due to their
144 higher incidence of change, don't make sense to load into emacs'
145 dumped image. Thus, the run-time load order is: 1. file described in
149 "Regexp that specifies when to enable the ISO 8859-1 character set.
150 We do that if this regexp matches the locale name
163 ;; This function is called from the subdirs.el file.
172 ;; Look in each dir in load-path for a subdirs.el file.
173 ;; If we find one, load it, which will add the appropriate subdirs
174 ;; of that dir into load-path,
176 new)
184 ;; If the PWD environment variable isn't accurate, delete it.
187 ;; Use FOO/., so that if FOO is a symlink, file-attributes
188 ;; describes the directory linked to, not FOO itself.
196 process-environment)))))))
204 ;; Do this again, in case .emacs defined more abbreviations.
209 ;; Modify the initial frame based on what .emacs puts into
210 ;; ...-frame-alist.
213 ;; Now we know the user's default font, so add it to the menu.
221 ;; Precompute the keyboard equivalents in the menu bar items.
236 ;; See if we should import version-control from the environment variable.
250 ;; Use the first of these three envvars that has a nonempty value.
264 ;;! This has been commented out; I currently find the behavior when
265 ;;! split-window-keep-point is nil disturbing, but if I can get used
266 ;;! to it, then it would be better to eliminate the option.
267 ;;! ;; Choose a good default value for split-window-keep-point.
268 ;;! (setq split-window-keep-point (> baud-rate 2400))
270 ;; Read window system's init file if using a window system.
276 ;; Every window system should have a startup file;
277 ;; barf if we can't find it.
278 nil t))
279 ;; If we can't read it, print the error message and exit.
300 ;; Figure out which user's init file to load,
301 ;; either from the environment or from the options.
303 ;; If user has not done su, use current $HOME to find .emacs.
307 ;; Process the command-line args, and delete the arguments
308 ;; processed. This is consistent with the way main in emacs.c
309 ;; does things.
338 argval nil
347 ;; Was argval set but not used?
351 ;; Re-attach the program name to the front of the arg list.
354 ;; Under X Windows, this creates the X frame and deletes the terminal frame.
359 ;; If frame was created with a menu bar, set menu-bar-mode on.
366 ;; Run the site-start library if it exists. The point of this file is
367 ;; that it is run before .emacs. There is no point in doing this after
368 ;; .emacs; that is useless.
372 ;; Sites should not disable this. Only individuals should disable
373 ;; the startup message.
376 ;; Load that user's init file, or the default one, or none.
378 debug-on-error-should-be-set
382 ;; This function actually reads the init files.
401 ;; Users are supposed to be told their rights.
402 ;; (Plus how to get help and how to undo.)
403 ;; Don't you dare turn this off for anyone
404 ;; except yourself.
407 ;; Do this without a condition-case if the user wants to debug.
418 ;; If we can tell that the init file altered debug-on-error,
419 ;; arrange to preserve the value that it set up.
422 debug-on-error-from-init-file debug-on-error)))
428 ;; If *scratch* exists and init file didn't change its mode, initialize it.
434 ;; Load library for our terminal type.
435 ;; User init file can set term-file-prefix to nil to prevent this.
438 hyphend)
441 ;; Strip off last hyphen and what follows, then try again
446 ;; Process the remaining args.
449 ;; If -batch, terminate after processing the command options.
469 init-file-user)))
471 nil t))
475 "For information about the GNU Project and its goals, type C-h C-p."
480 ;; Don't clobber a non-scratch buffer if init file
481 ;; has selected it.
484 ;; If there are no switches to process, we might as well
485 ;; run this hook now, and there may be some need to do it
486 ;; before doing any output.
489 ;; Don't let the hook be run twice.
492 ;; It's important to notice the user settings before we
493 ;; display the startup message; otherwise, the settings
494 ;; won't take effect until the user gives the first
495 ;; keystroke, and that's distracting.
502 ;; Do this now to avoid an annoying delay if the user
503 ;; clicks the menu bar during the sit-for.
509 "
511 ;; If keys have their default meanings,
512 ;; use precomputed string to save lots of time.
519 "Type C-h for help; C-x u to undo changes. (`C-' means use CTRL key.)
520 To kill the Emacs job, type C-x C-c.
521 Type C-h t for a tutorial on using Emacs.
534 ;; Windows and MSDOS (currently) do not count as
535 ;; window systems, but do have mouse support.
537 window-system)
545 "
546 GNU Emacs comes with ABSOLUTELY NO WARRANTY; type C-h C-w for full details.
547 You may give out copies of Emacs; type C-h C-c to see the conditions.
550 "
557 ;; In case the Emacs server has already selected
558 ;; another buffer, erase the one our message is in.
562 ;; Delay 2 seconds after the init file error message
563 ;; was displayed, so user can read it.
568 first-file-buffer
573 ;; This includes our standard options' long versions
574 ;; and long versions of what's on command-switch-alist.
579 command-switch-alist)))
580 tem argval completion)
583 ;; Convert long options to ordinary options
584 ;; and separate out an attached option argument into argval.
598 ;; Execute the option.
622 ;; Take file from default dir if it exists there;
623 ;; otherwise let `load' search for it.
640 ;; We have almost exhausted our options. See if the
641 ;; user has made any other command-line options available
648 ;; Ok, presume that the argument is a file name
659 ;; If 3 or more files visited, and not all visible,
660 ;; show user what they all are.
666 ;;; startup.el ends here