1992-05-30 21:11:25 +00:00
|
|
|
|
;;; startup.el --- process Emacs shell arguments
|
|
|
|
|
|
2002-03-20 23:16:48 +00:00
|
|
|
|
;; Copyright (C) 1985, 86, 92, 94, 95, 96, 97, 98, 99, 2000, 2001, 2002
|
2000-12-06 16:01:31 +00:00
|
|
|
|
;; Free Software Foundation, Inc.
|
1992-07-22 02:58:21 +00:00
|
|
|
|
|
1992-07-15 21:31:44 +00:00
|
|
|
|
;; Maintainer: FSF
|
1992-07-17 20:24:00 +00:00
|
|
|
|
;; Keywords: internal
|
1992-07-15 21:31:44 +00:00
|
|
|
|
|
1991-07-11 23:17:40 +00:00
|
|
|
|
;; This file is part of GNU Emacs.
|
|
|
|
|
|
|
|
|
|
;; GNU Emacs is free software; you can redistribute it and/or modify
|
|
|
|
|
;; it under the terms of the GNU General Public License as published by
|
1992-04-24 08:11:54 +00:00
|
|
|
|
;; the Free Software Foundation; either version 2, or (at your option)
|
1991-07-11 23:17:40 +00:00
|
|
|
|
;; any later version.
|
|
|
|
|
|
|
|
|
|
;; GNU Emacs is distributed in the hope that it will be useful,
|
|
|
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
|
;; GNU General Public License for more details.
|
|
|
|
|
|
|
|
|
|
;; You should have received a copy of the GNU General Public License
|
1996-01-14 07:34:30 +00:00
|
|
|
|
;; along with GNU Emacs; see the file COPYING. If not, write to the
|
|
|
|
|
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
|
|
|
;; Boston, MA 02111-1307, USA.
|
1991-07-11 23:17:40 +00:00
|
|
|
|
|
1992-07-15 21:31:44 +00:00
|
|
|
|
;;; Commentary:
|
1991-07-11 23:17:40 +00:00
|
|
|
|
|
1995-04-30 23:37:26 +00:00
|
|
|
|
;; This file parses the command line and gets Emacs running. Options on
|
|
|
|
|
;; the command line are handled in precedence order. The order is the
|
|
|
|
|
;; one in the list below; first described means first handled. Options
|
|
|
|
|
;; within each category (delimited by a bar) are handled in the order
|
|
|
|
|
;; encountered on the command line.
|
|
|
|
|
|
|
|
|
|
;; -------------------------
|
|
|
|
|
;; -version Print Emacs version to stderr, then exit
|
|
|
|
|
;; --version successfully right away.
|
|
|
|
|
;; This option is handled by emacs.c
|
|
|
|
|
;; -------------------------
|
|
|
|
|
;; -help Print a short usage description and exit
|
|
|
|
|
;; --help successfully right away.
|
|
|
|
|
;; This option is handled by emacs.c
|
|
|
|
|
;; -------------------------
|
|
|
|
|
;; -nl Do not use shared memory (for systems that
|
|
|
|
|
;; -no-shared-memory support this) for the dumped Emacs data.
|
|
|
|
|
;; This option is handled by emacs.c
|
|
|
|
|
;;
|
|
|
|
|
;; -map For VMS.
|
|
|
|
|
;; --map-data This option is handled by emacs.c
|
|
|
|
|
;; -------------------------
|
|
|
|
|
;; -t FILE Use FILE as the name of the terminal.
|
|
|
|
|
;; --terminal FILE Using this implies "-nw" also.
|
|
|
|
|
;; This option is handled by emacs.c
|
|
|
|
|
;; -------------------------
|
2000-03-23 11:57:22 +00:00
|
|
|
|
;; -d DISPNAME Use DISPNAME as the name of the X
|
1995-04-30 23:37:26 +00:00
|
|
|
|
;; -display DISPNAME display for the initial frame.
|
|
|
|
|
;; --display DISPNAME This option is handled by emacs.c
|
|
|
|
|
;; -------------------------
|
|
|
|
|
;; -nw Do not use a windows system (but use the
|
2001-10-31 14:50:02 +00:00
|
|
|
|
;; --no-window-system terminal instead.)
|
1995-04-30 23:37:26 +00:00
|
|
|
|
;; This option is handled by emacs.c
|
|
|
|
|
;; -------------------------
|
|
|
|
|
;; -batch Execute noninteractively (messages go to stdout,
|
|
|
|
|
;; --batch variable noninteractive set to t)
|
|
|
|
|
;; This option is handled by emacs.c
|
|
|
|
|
;; -------------------------
|
|
|
|
|
;; -q Do not load user's init file and do not load
|
|
|
|
|
;; -no-init-file "default.el". Regardless of this switch,
|
1995-07-17 22:59:04 +00:00
|
|
|
|
;; --no-init-file "site-start" is still loaded.
|
1995-04-30 23:37:26 +00:00
|
|
|
|
;; -------------------------
|
1995-07-17 22:59:04 +00:00
|
|
|
|
;; -no-site-file Do not load "site-start.el". (This is the ONLY
|
1995-04-30 23:37:26 +00:00
|
|
|
|
;; --no-site-file way to prevent loading that file.)
|
|
|
|
|
;; -------------------------
|
2002-05-27 02:00:54 +00:00
|
|
|
|
;; -no-splash Don't display a splash screen on startup.
|
|
|
|
|
;; --no-splash
|
2002-05-26 20:49:28 +00:00
|
|
|
|
;; -------------------------
|
1995-04-30 23:37:26 +00:00
|
|
|
|
;; -u USER Load USER's init file instead of the init
|
|
|
|
|
;; -user USER file belonging to the user starting Emacs.
|
|
|
|
|
;; --user USER
|
|
|
|
|
;; -------------------------
|
|
|
|
|
;; -debug-init Don't catch errors in init files; let the
|
|
|
|
|
;; --debug-init debugger run.
|
|
|
|
|
;; -------------------------
|
|
|
|
|
;; -i ICONTYPE Set type of icon using when Emacs is
|
2000-03-23 11:57:22 +00:00
|
|
|
|
;; -itype ICONTYPE iconified under X.
|
1995-04-30 23:37:26 +00:00
|
|
|
|
;; --icon-type ICONTYPE This option is passed on to term/x-win.el
|
|
|
|
|
;;
|
2000-03-23 11:57:22 +00:00
|
|
|
|
;; -iconic Start Emacs iconified.
|
1995-04-30 23:37:26 +00:00
|
|
|
|
;; --iconic This option is passed on to term/x-win.el
|
|
|
|
|
;; -------------------------
|
2000-03-23 11:57:22 +00:00
|
|
|
|
;; Various X options for colors/fonts/geometry/title etc.
|
2001-03-30 18:54:14 +00:00
|
|
|
|
;; These options are passed on to term/x-win.el which see.
|
1995-04-30 23:37:26 +00:00
|
|
|
|
;; -------------------------
|
|
|
|
|
;; FILE Visit FILE.
|
1999-10-26 14:35:16 +00:00
|
|
|
|
;; -visit FILE
|
|
|
|
|
;; --visit FILE
|
|
|
|
|
;; -file FILE
|
|
|
|
|
;; --file FILE
|
1995-04-30 23:37:26 +00:00
|
|
|
|
;;
|
|
|
|
|
;; -L DIRNAME Add DIRNAME to load-path
|
|
|
|
|
;; -directory DIRNAME
|
|
|
|
|
;; --directory DIRNAME
|
|
|
|
|
;;
|
|
|
|
|
;; -l FILE Load and execute the Emacs lisp code
|
|
|
|
|
;; -load FILE in FILE.
|
|
|
|
|
;; --load FILE
|
|
|
|
|
;;
|
|
|
|
|
;; -f FUNC Execute Emacs lisp function FUNC with
|
|
|
|
|
;; -funcall FUNC no arguments. The "-e" form is outdated
|
|
|
|
|
;; --funcall FUNC and should not be used. (It's a typo
|
|
|
|
|
;; -e FUNC promoted to a feature.)
|
|
|
|
|
;;
|
1995-09-25 10:56:15 +00:00
|
|
|
|
;; -eval FORM Execute Emacs lisp form FORM.
|
|
|
|
|
;; --eval FORM
|
1999-10-26 14:35:16 +00:00
|
|
|
|
;; -execute EXPR
|
|
|
|
|
;; --execute EXPR
|
1995-08-14 16:05:12 +00:00
|
|
|
|
;;
|
1995-04-30 23:37:26 +00:00
|
|
|
|
;; -insert FILE Insert the contents of FILE into buffer.
|
|
|
|
|
;; --insert FILE
|
|
|
|
|
;; -------------------------
|
|
|
|
|
;; -kill Kill (exit) Emacs right away.
|
|
|
|
|
;; --kill
|
|
|
|
|
;; -------------------------
|
1991-07-11 23:17:40 +00:00
|
|
|
|
|
1992-07-15 21:31:44 +00:00
|
|
|
|
;;; Code:
|
|
|
|
|
|
1991-07-11 23:17:40 +00:00
|
|
|
|
(setq top-level '(normal-top-level))
|
|
|
|
|
|
1997-06-18 07:07:57 +00:00
|
|
|
|
(defvar command-line-processed nil
|
2001-11-16 18:34:06 +00:00
|
|
|
|
"Non-nil once command line has been processed.")
|
1991-07-11 23:17:40 +00:00
|
|
|
|
|
1997-06-18 07:07:57 +00:00
|
|
|
|
(defgroup initialization nil
|
|
|
|
|
"Emacs start-up procedure"
|
|
|
|
|
:group 'internal)
|
|
|
|
|
|
|
|
|
|
(defcustom inhibit-startup-message nil
|
1994-02-12 20:01:43 +00:00
|
|
|
|
"*Non-nil inhibits the initial startup message.
|
1991-07-11 23:17:40 +00:00
|
|
|
|
This is for use in your personal init file, once you are familiar
|
1997-06-18 07:07:57 +00:00
|
|
|
|
with the contents of the startup message."
|
|
|
|
|
:type 'boolean
|
|
|
|
|
:group 'initialization)
|
1991-07-11 23:17:40 +00:00
|
|
|
|
|
2002-05-26 20:49:28 +00:00
|
|
|
|
(defvaralias 'inhibit-splash-screen 'inhibit-startup-message)
|
|
|
|
|
|
1997-06-18 07:07:57 +00:00
|
|
|
|
(defcustom inhibit-startup-echo-area-message nil
|
1994-02-12 20:01:43 +00:00
|
|
|
|
"*Non-nil inhibits the initial startup echo area message.
|
1997-06-18 07:07:57 +00:00
|
|
|
|
Setting this variable takes effect
|
|
|
|
|
only if you do it with the customization buffer
|
1998-06-20 22:06:30 +00:00
|
|
|
|
or if your `.emacs' file contains a line of this form:
|
1994-03-01 04:54:43 +00:00
|
|
|
|
(setq inhibit-startup-echo-area-message \"YOUR-USER-NAME\")
|
1994-06-14 00:21:40 +00:00
|
|
|
|
If your `.emacs' file is byte-compiled, use the following form instead:
|
|
|
|
|
(eval '(setq inhibit-startup-echo-area-message \"YOUR-USER-NAME\"))
|
1994-02-12 20:01:43 +00:00
|
|
|
|
Thus, someone else using a copy of your `.emacs' file will see
|
1997-06-18 07:07:57 +00:00
|
|
|
|
the startup message unless he personally acts to inhibit it."
|
|
|
|
|
:type '(choice (const :tag "Don't inhibit")
|
|
|
|
|
(string :tag "Enter your user name, to inhibit"))
|
|
|
|
|
:group 'initialization)
|
1994-02-12 20:01:43 +00:00
|
|
|
|
|
1997-06-18 07:07:57 +00:00
|
|
|
|
(defcustom inhibit-default-init nil
|
|
|
|
|
"*Non-nil inhibits loading the `default' library."
|
|
|
|
|
:type 'boolean
|
|
|
|
|
:group 'initialization)
|
1991-07-11 23:17:40 +00:00
|
|
|
|
|
2001-10-05 09:24:51 +00:00
|
|
|
|
(defcustom inhibit-startup-buffer-menu nil
|
|
|
|
|
"*Non-nil inhibits display of buffer list when more than 2 files are loaded."
|
|
|
|
|
:type 'boolean
|
|
|
|
|
:group 'initialization)
|
|
|
|
|
|
1996-12-16 01:33:02 +00:00
|
|
|
|
(defvar command-switch-alist nil
|
1991-07-11 23:17:40 +00:00
|
|
|
|
"Alist of command-line switches.
|
|
|
|
|
Elements look like (SWITCH-STRING . HANDLER-FUNCTION).
|
|
|
|
|
HANDLER-FUNCTION receives switch name as sole arg;
|
|
|
|
|
remaining command-line args are in the variable `command-line-args-left'.")
|
|
|
|
|
|
1994-07-25 21:45:36 +00:00
|
|
|
|
(defvar command-line-args-left nil
|
|
|
|
|
"List of command-line args not yet processed.")
|
|
|
|
|
|
1991-07-11 23:17:40 +00:00
|
|
|
|
(defvar command-line-functions nil ;; lrs 7/31/89
|
|
|
|
|
"List of functions to process unrecognized command-line arguments.
|
|
|
|
|
Each function should access the dynamically bound variables
|
1994-03-30 16:04:08 +00:00
|
|
|
|
`argi' (the current argument) and `command-line-args-left' (the remaining
|
1991-07-11 23:17:40 +00:00
|
|
|
|
arguments). The function should return non-nil only if it recognizes and
|
1994-03-30 16:04:08 +00:00
|
|
|
|
processes `argi'. If it does so, it may consume successive arguments by
|
|
|
|
|
altering `command-line-args-left' to remove them.")
|
1991-07-11 23:17:40 +00:00
|
|
|
|
|
1994-04-22 18:28:22 +00:00
|
|
|
|
(defvar command-line-default-directory nil
|
|
|
|
|
"Default directory to use for command line arguments.
|
|
|
|
|
This is normally copied from `default-directory' when Emacs starts.")
|
|
|
|
|
|
1995-12-29 20:00:39 +00:00
|
|
|
|
;;; This is here, rather than in x-win.el, so that we can ignore these
|
|
|
|
|
;;; options when we are not using X.
|
2000-01-19 14:39:01 +00:00
|
|
|
|
(defconst command-line-x-option-alist
|
1995-12-29 20:00:39 +00:00
|
|
|
|
'(("-bw" 1 x-handle-numeric-switch border-width)
|
|
|
|
|
("-d" 1 x-handle-display)
|
|
|
|
|
("-display" 1 x-handle-display)
|
1996-06-28 07:58:29 +00:00
|
|
|
|
("-name" 1 x-handle-name-switch)
|
1996-04-11 05:23:19 +00:00
|
|
|
|
("-title" 1 x-handle-switch title)
|
|
|
|
|
("-T" 1 x-handle-switch title)
|
1995-12-29 20:00:39 +00:00
|
|
|
|
("-r" 0 x-handle-switch reverse t)
|
|
|
|
|
("-rv" 0 x-handle-switch reverse t)
|
|
|
|
|
("-reverse" 0 x-handle-switch reverse t)
|
|
|
|
|
("-reverse-video" 0 x-handle-switch reverse t)
|
|
|
|
|
("-fn" 1 x-handle-switch font)
|
|
|
|
|
("-font" 1 x-handle-switch font)
|
2002-01-13 11:47:08 +00:00
|
|
|
|
("-fs" 0 x-handle-initial-switch fullscreen fullboth)
|
|
|
|
|
("-fw" 0 x-handle-initial-switch fullscreen fullwidth)
|
|
|
|
|
("-fh" 0 x-handle-initial-switch fullscreen fullheight)
|
1995-12-29 20:00:39 +00:00
|
|
|
|
("-ib" 1 x-handle-numeric-switch internal-border-width)
|
1996-01-01 23:50:19 +00:00
|
|
|
|
("-g" 1 x-handle-geometry)
|
2000-04-24 14:00:07 +00:00
|
|
|
|
("-lsp" 1 x-handle-numeric-switch line-spacing)
|
1996-01-01 23:50:19 +00:00
|
|
|
|
("-geometry" 1 x-handle-geometry)
|
1995-12-29 20:00:39 +00:00
|
|
|
|
("-fg" 1 x-handle-switch foreground-color)
|
|
|
|
|
("-foreground" 1 x-handle-switch foreground-color)
|
|
|
|
|
("-bg" 1 x-handle-switch background-color)
|
|
|
|
|
("-background" 1 x-handle-switch background-color)
|
|
|
|
|
("-ms" 1 x-handle-switch mouse-color)
|
|
|
|
|
("-itype" 0 x-handle-switch icon-type t)
|
|
|
|
|
("-i" 0 x-handle-switch icon-type t)
|
|
|
|
|
("-iconic" 0 x-handle-iconic)
|
|
|
|
|
("-xrm" 1 x-handle-xrm-switch)
|
|
|
|
|
("-cr" 1 x-handle-switch cursor-color)
|
|
|
|
|
("-vb" 0 x-handle-switch vertical-scroll-bars t)
|
|
|
|
|
("-hb" 0 x-handle-switch horizontal-scroll-bars t)
|
|
|
|
|
("-bd" 1 x-handle-switch)
|
|
|
|
|
("--border-width" 1 x-handle-numeric-switch border-width)
|
|
|
|
|
("--display" 1 x-handle-display)
|
1996-06-28 07:58:29 +00:00
|
|
|
|
("--name" 1 x-handle-name-switch)
|
1996-04-11 05:10:40 +00:00
|
|
|
|
("--title" 1 x-handle-switch title)
|
1995-12-29 20:00:39 +00:00
|
|
|
|
("--reverse-video" 0 x-handle-switch reverse t)
|
|
|
|
|
("--font" 1 x-handle-switch font)
|
2002-01-13 11:47:08 +00:00
|
|
|
|
("--fullscreen" 0 x-handle-initial-switch fullscreen fullboth)
|
|
|
|
|
("--fullwidth" 0 x-handle-initial-switch fullscreen fullwidth)
|
|
|
|
|
("--fullheight" 0 x-handle-initial-switch fullscreen fullheight)
|
1995-12-29 20:00:39 +00:00
|
|
|
|
("--internal-border" 1 x-handle-numeric-switch internal-border-width)
|
1996-01-01 23:50:19 +00:00
|
|
|
|
("--geometry" 1 x-handle-geometry)
|
1995-12-29 20:00:39 +00:00
|
|
|
|
("--foreground-color" 1 x-handle-switch foreground-color)
|
|
|
|
|
("--background-color" 1 x-handle-switch background-color)
|
|
|
|
|
("--mouse-color" 1 x-handle-switch mouse-color)
|
|
|
|
|
("--icon-type" 0 x-handle-switch icon-type t)
|
|
|
|
|
("--iconic" 0 x-handle-iconic)
|
|
|
|
|
("--xrm" 1 x-handle-xrm-switch)
|
|
|
|
|
("--cursor-color" 1 x-handle-switch cursor-color)
|
|
|
|
|
("--vertical-scroll-bars" 0 x-handle-switch vertical-scroll-bars t)
|
2000-04-24 14:00:07 +00:00
|
|
|
|
("--line-spacing" 1 x-handle-numeric-switch line-spacing)
|
2003-03-05 16:31:44 +00:00
|
|
|
|
("--border-color" 1 x-handle-switch border-color)
|
2002-03-10 16:29:34 +00:00
|
|
|
|
("--smid" 1 x-handle-smid))
|
1995-12-29 20:00:39 +00:00
|
|
|
|
"Alist of X Windows options.
|
|
|
|
|
Each element has the form
|
|
|
|
|
(NAME NUMARGS HANDLER FRAME-PARAM VALUE)
|
|
|
|
|
where NAME is the option name string, NUMARGS is the number of arguments
|
|
|
|
|
that the option accepts, HANDLER is a function to call to handle the option.
|
|
|
|
|
FRAME-PARAM (optional) is the frame parameter this option specifies,
|
|
|
|
|
and VALUE is the value which is given to that frame parameter
|
|
|
|
|
\(most options use the argument for this, so VALUE is not present).")
|
|
|
|
|
|
1992-06-04 19:58:44 +00:00
|
|
|
|
(defvar before-init-hook nil
|
1996-02-21 21:21:31 +00:00
|
|
|
|
"Normal hook run after handling urgent options but before loading init files.")
|
1991-08-01 18:50:36 +00:00
|
|
|
|
|
1992-06-04 19:58:44 +00:00
|
|
|
|
(defvar after-init-hook nil
|
1996-02-21 21:21:31 +00:00
|
|
|
|
"Normal hook run after loading the init files, `~/.emacs' and `default.el'.
|
|
|
|
|
There is no `condition-case' around the running of these functions;
|
|
|
|
|
therefore, if you set `debug-on-error' non-nil in `.emacs',
|
|
|
|
|
an error in one of these functions will invoke the debugger.")
|
|
|
|
|
|
|
|
|
|
(defvar emacs-startup-hook nil
|
|
|
|
|
"Normal hook run after loading init files and handling the command line.")
|
1992-06-04 19:58:44 +00:00
|
|
|
|
|
1991-07-11 23:17:40 +00:00
|
|
|
|
(defvar term-setup-hook nil
|
1996-02-21 21:21:31 +00:00
|
|
|
|
"Normal hook run after loading terminal-specific Lisp code.
|
|
|
|
|
It also follows `emacs-startup-hook'. This hook exists for users to set,
|
1991-07-11 23:17:40 +00:00
|
|
|
|
so as to override the definitions made by the terminal-specific file.
|
|
|
|
|
Emacs never sets this variable itself.")
|
|
|
|
|
|
2003-02-23 15:16:29 +00:00
|
|
|
|
(defvar inhibit-startup-hooks nil
|
|
|
|
|
"Non-nil means don't run `term-setup-hook' and `emacs-startup-hook'.
|
|
|
|
|
This is because we already did so.")
|
|
|
|
|
|
1991-07-11 23:17:40 +00:00
|
|
|
|
(defvar keyboard-type nil
|
1994-03-30 16:04:08 +00:00
|
|
|
|
"The brand of keyboard you are using.
|
|
|
|
|
This variable is used to define
|
1991-07-11 23:17:40 +00:00
|
|
|
|
the proper function and keypad keys for use under X. It is used in a
|
1998-06-20 22:06:30 +00:00
|
|
|
|
fashion analogous to the environment variable TERM.")
|
1991-07-11 23:17:40 +00:00
|
|
|
|
|
|
|
|
|
(defvar window-setup-hook nil
|
1994-03-30 16:04:08 +00:00
|
|
|
|
"Normal hook run to initialize window system display.
|
|
|
|
|
Emacs runs this hook after processing the command line arguments and loading
|
|
|
|
|
the user's init file.")
|
1991-07-11 23:17:40 +00:00
|
|
|
|
|
1997-06-18 07:07:57 +00:00
|
|
|
|
(defcustom initial-major-mode 'lisp-interaction-mode
|
|
|
|
|
"Major mode command symbol to use for the initial *scratch* buffer."
|
1997-09-15 23:19:58 +00:00
|
|
|
|
:type 'function
|
1997-06-18 07:07:57 +00:00
|
|
|
|
:group 'initialization)
|
1991-07-11 23:17:40 +00:00
|
|
|
|
|
1997-06-18 07:07:57 +00:00
|
|
|
|
(defcustom init-file-user nil
|
1991-07-11 23:17:40 +00:00
|
|
|
|
"Identity of user whose `.emacs' file is or was read.
|
1996-12-16 01:33:02 +00:00
|
|
|
|
The value is nil if `-q' or `--no-init-file' was specified,
|
|
|
|
|
meaning do not load any init file.
|
|
|
|
|
|
|
|
|
|
Otherwise, the value may be the null string, meaning use the init file
|
|
|
|
|
for the user that originally logged in, or it may be a
|
|
|
|
|
string containing a user's name meaning use that person's init file.
|
1991-07-11 23:17:40 +00:00
|
|
|
|
|
1994-04-20 06:13:43 +00:00
|
|
|
|
In either of the latter cases, `(concat \"~\" init-file-user \"/\")'
|
|
|
|
|
evaluates to the name of the directory where the `.emacs' file was
|
1995-03-22 04:50:15 +00:00
|
|
|
|
looked for.
|
|
|
|
|
|
|
|
|
|
Setting `init-file-user' does not prevent Emacs from loading
|
1997-06-18 07:07:57 +00:00
|
|
|
|
`site-start.el'. The only way to do that is to use `--no-site-file'."
|
|
|
|
|
:type '(choice (const :tag "none" nil) string)
|
|
|
|
|
:group 'initialization)
|
1991-07-11 23:17:40 +00:00
|
|
|
|
|
1997-06-18 07:07:57 +00:00
|
|
|
|
(defcustom site-run-file "site-start"
|
1993-08-13 06:01:05 +00:00
|
|
|
|
"File containing site-wide run-time initializations.
|
|
|
|
|
This file is loaded at run-time before `~/.emacs'. It contains inits
|
|
|
|
|
that need to be in place for the entire site, but which, due to their
|
|
|
|
|
higher incidence of change, don't make sense to load into emacs'
|
|
|
|
|
dumped image. Thus, the run-time load order is: 1. file described in
|
1995-03-22 04:50:15 +00:00
|
|
|
|
this variable, if non-nil; 2. `~/.emacs'; 3. `default.el'.
|
|
|
|
|
|
|
|
|
|
Don't use the `site-start.el' file for things some users may not like.
|
|
|
|
|
Put them in `default.el' instead, so that users can more easily
|
|
|
|
|
override them. Users can prevent loading `default.el' with the `-q'
|
|
|
|
|
option or by setting `inhibit-default-init' in their own init files,
|
|
|
|
|
but inhibiting `site-start.el' requires `--no-site-file', which
|
1997-06-18 07:07:57 +00:00
|
|
|
|
is less convenient."
|
1998-09-18 09:22:48 +00:00
|
|
|
|
:type '(choice (const :tag "none" nil) string)
|
1997-06-18 07:07:57 +00:00
|
|
|
|
:group 'initialization)
|
1993-08-13 06:01:05 +00:00
|
|
|
|
|
1997-06-18 07:07:57 +00:00
|
|
|
|
(defcustom mail-host-address nil
|
|
|
|
|
"*Name of this machine, for purposes of naming users."
|
|
|
|
|
:type '(choice (const nil) string)
|
|
|
|
|
:group 'mail)
|
1994-09-22 04:56:49 +00:00
|
|
|
|
|
2002-09-29 17:53:58 +00:00
|
|
|
|
(defcustom user-mail-address (if command-line-processed
|
|
|
|
|
(concat (user-login-name) "@"
|
|
|
|
|
(or mail-host-address
|
|
|
|
|
(system-name)))
|
|
|
|
|
;; Empty string means "not set yet".
|
|
|
|
|
"")
|
1995-11-10 17:27:52 +00:00
|
|
|
|
"*Full mailing address of this user.
|
|
|
|
|
This is initialized based on `mail-host-address',
|
1997-06-18 07:07:57 +00:00
|
|
|
|
after your init file is read, in case it sets `mail-host-address'."
|
|
|
|
|
:type 'string
|
|
|
|
|
:group 'mail)
|
1994-06-25 00:34:11 +00:00
|
|
|
|
|
1997-06-18 07:07:57 +00:00
|
|
|
|
(defcustom auto-save-list-file-prefix
|
2000-04-24 18:43:25 +00:00
|
|
|
|
(cond ((eq system-type 'ms-dos)
|
|
|
|
|
;; MS-DOS cannot have initial dot, and allows only 8.3 names
|
2000-05-02 12:03:43 +00:00
|
|
|
|
"~/_emacs.d/auto-save.list/_s")
|
2000-04-24 18:43:25 +00:00
|
|
|
|
(t
|
|
|
|
|
"~/.emacs.d/auto-save-list/.saves-"))
|
1995-12-21 18:10:03 +00:00
|
|
|
|
"Prefix for generating `auto-save-list-file-name'.
|
|
|
|
|
This is used after reading your `.emacs' file to initialize
|
|
|
|
|
`auto-save-list-file-name', by appending Emacs's pid and the system name,
|
|
|
|
|
if you have not already set `auto-save-list-file-name' yourself.
|
2000-04-24 18:43:25 +00:00
|
|
|
|
Directories in the prefix will be created if necessary.
|
1995-12-21 18:10:03 +00:00
|
|
|
|
Set this to nil if you want to prevent `auto-save-list-file-name'
|
1997-06-18 07:07:57 +00:00
|
|
|
|
from being initialized."
|
1997-10-15 23:55:45 +00:00
|
|
|
|
:type '(choice (const :tag "Don't record a session's auto save list" nil)
|
|
|
|
|
string)
|
1997-06-18 07:07:57 +00:00
|
|
|
|
:group 'auto-save)
|
1995-10-04 19:41:15 +00:00
|
|
|
|
|
1991-07-11 23:17:40 +00:00
|
|
|
|
(defvar init-file-debug nil)
|
|
|
|
|
|
1993-11-22 06:35:37 +00:00
|
|
|
|
(defvar init-file-had-error nil)
|
|
|
|
|
|
1999-01-26 22:10:15 +00:00
|
|
|
|
(defvar normal-top-level-add-subdirs-inode-list nil)
|
|
|
|
|
|
2003-06-30 10:36:35 +00:00
|
|
|
|
(defvar pure-space-overflow nil
|
|
|
|
|
"Non-nil if building Emacs overflowed pure space.")
|
|
|
|
|
|
1998-03-23 00:15:20 +00:00
|
|
|
|
(defun normal-top-level-add-subdirs-to-load-path ()
|
1998-05-11 01:17:48 +00:00
|
|
|
|
"Add all subdirectories of current directory to `load-path'.
|
|
|
|
|
More precisely, this uses only the subdirectories whose names
|
1998-06-02 13:21:13 +00:00
|
|
|
|
start with letters or digits; it excludes any subdirectory named `RCS'
|
|
|
|
|
or `CVS', and any subdirectory that contains a file named `.nosearch'."
|
2003-02-04 12:29:42 +00:00
|
|
|
|
(let (dirs
|
1999-01-26 22:10:15 +00:00
|
|
|
|
attrs
|
1998-03-23 00:15:20 +00:00
|
|
|
|
(pending (list default-directory)))
|
|
|
|
|
;; This loop does a breadth-first tree walk on DIR's subtree,
|
|
|
|
|
;; putting each subdir into DIRS as its contents are examined.
|
|
|
|
|
(while pending
|
2001-11-17 00:08:20 +00:00
|
|
|
|
(push (pop pending) dirs)
|
2001-07-22 10:53:30 +00:00
|
|
|
|
(let* ((this-dir (car dirs))
|
|
|
|
|
(contents (directory-files this-dir))
|
|
|
|
|
(default-directory this-dir)
|
|
|
|
|
(canonicalized (and (eq system-type 'windows-nt)
|
|
|
|
|
(untranslated-canonical-name this-dir))))
|
|
|
|
|
;; The Windows version doesn't report meaningful inode
|
|
|
|
|
;; numbers, so use the canonicalized absolute file name of the
|
|
|
|
|
;; directory instead.
|
|
|
|
|
(setq attrs (or canonicalized
|
|
|
|
|
(nthcdr 10 (file-attributes this-dir))))
|
1999-01-26 22:10:15 +00:00
|
|
|
|
(unless (member attrs normal-top-level-add-subdirs-inode-list)
|
2001-11-17 00:08:20 +00:00
|
|
|
|
(push attrs normal-top-level-add-subdirs-inode-list)
|
|
|
|
|
(dolist (file contents)
|
2000-12-07 15:01:59 +00:00
|
|
|
|
;; The lower-case variants of RCS and CVS are for DOS/Windows.
|
2001-11-17 00:08:20 +00:00
|
|
|
|
(unless (member file '("." ".." "RCS" "CVS" "rcs" "cvs"))
|
|
|
|
|
(when (and (string-match "\\`[[:alnum:]]" file)
|
1999-07-05 16:00:07 +00:00
|
|
|
|
;; Avoid doing a `stat' when it isn't necessary
|
|
|
|
|
;; because that can cause trouble when an NFS server
|
|
|
|
|
;; is down.
|
2001-11-17 00:08:20 +00:00
|
|
|
|
(not (string-match "\\.elc?\\'" file))
|
|
|
|
|
(file-directory-p file))
|
|
|
|
|
(let ((expanded (expand-file-name file)))
|
1999-01-26 22:10:15 +00:00
|
|
|
|
(unless (file-exists-p (expand-file-name ".nosearch"
|
|
|
|
|
expanded))
|
2001-11-17 00:08:20 +00:00
|
|
|
|
(setq pending (nconc pending (list expanded)))))))))))
|
1998-03-26 04:26:27 +00:00
|
|
|
|
(normal-top-level-add-to-load-path (cdr (nreverse dirs)))))
|
1998-03-23 00:15:20 +00:00
|
|
|
|
|
1998-05-21 20:32:09 +00:00
|
|
|
|
;; This function is called from a subdirs.el file.
|
|
|
|
|
;; It assumes that default-directory is the directory
|
|
|
|
|
;; in which the subdirs.el file exists,
|
|
|
|
|
;; and it adds to load-path the subdirs of that directory
|
|
|
|
|
;; as specified in DIRS. Normally the elements of DIRS are relative.
|
1994-10-11 08:22:38 +00:00
|
|
|
|
(defun normal-top-level-add-to-load-path (dirs)
|
1997-09-19 18:15:57 +00:00
|
|
|
|
(let ((tail load-path)
|
|
|
|
|
(thisdir (directory-file-name default-directory)))
|
|
|
|
|
(while (and tail
|
2000-04-26 17:34:37 +00:00
|
|
|
|
;;Don't go all the way to the nil terminator.
|
|
|
|
|
(cdr tail)
|
1997-09-19 18:15:57 +00:00
|
|
|
|
(not (equal thisdir (car tail)))
|
|
|
|
|
(not (and (memq system-type '(ms-dos windows-nt))
|
|
|
|
|
(equal (downcase thisdir) (downcase (car tail))))))
|
|
|
|
|
(setq tail (cdr tail)))
|
2000-04-26 17:34:37 +00:00
|
|
|
|
;;Splice the new section in.
|
|
|
|
|
(when tail
|
|
|
|
|
(setcdr tail (append (mapcar 'expand-file-name dirs) (cdr tail))))))
|
1994-10-11 08:22:38 +00:00
|
|
|
|
|
1991-07-11 23:17:40 +00:00
|
|
|
|
(defun normal-top-level ()
|
|
|
|
|
(if command-line-processed
|
|
|
|
|
(message "Back to top level.")
|
|
|
|
|
(setq command-line-processed t)
|
1995-04-08 05:05:32 +00:00
|
|
|
|
;; Give *Messages* the same default-directory as *scratch*,
|
|
|
|
|
;; just to keep things predictable.
|
|
|
|
|
(let ((dir default-directory))
|
|
|
|
|
(save-excursion
|
|
|
|
|
(set-buffer (get-buffer "*Messages*"))
|
|
|
|
|
(setq default-directory dir)))
|
2002-10-02 16:33:06 +00:00
|
|
|
|
;; `user-full-name' is now known; reset its standard-value here.
|
|
|
|
|
(put 'user-full-name 'standard-value
|
|
|
|
|
(list (default-value 'user-full-name)))
|
1998-06-19 16:56:51 +00:00
|
|
|
|
;; For root, preserve owner and group when editing files.
|
|
|
|
|
(if (equal (user-uid) 0)
|
|
|
|
|
(setq backup-by-copying-when-mismatch t))
|
1994-10-11 08:22:38 +00:00
|
|
|
|
;; Look in each dir in load-path for a subdirs.el file.
|
|
|
|
|
;; If we find one, load it, which will add the appropriate subdirs
|
|
|
|
|
;; of that dir into load-path,
|
2000-08-17 01:08:11 +00:00
|
|
|
|
;; Look for a leim-list.el file too. Loading it will register
|
|
|
|
|
;; available input methods.
|
1994-10-11 08:22:38 +00:00
|
|
|
|
(let ((tail load-path)
|
|
|
|
|
new)
|
|
|
|
|
(while tail
|
2001-11-17 00:08:20 +00:00
|
|
|
|
(push (car tail) new)
|
2000-04-29 19:28:46 +00:00
|
|
|
|
(condition-case nil
|
|
|
|
|
(let ((default-directory (car tail)))
|
|
|
|
|
(load (expand-file-name "subdirs.el" (car tail)) t t t)))
|
2000-08-17 01:08:11 +00:00
|
|
|
|
(condition-case nil
|
|
|
|
|
(let ((default-directory (car tail)))
|
|
|
|
|
(load (expand-file-name "leim-list.el" (car tail)) t t t)))
|
1994-10-11 08:22:38 +00:00
|
|
|
|
(setq tail (cdr tail))))
|
1992-05-18 08:14:41 +00:00
|
|
|
|
(if (not (eq system-type 'vax-vms))
|
1992-11-07 06:20:15 +00:00
|
|
|
|
(progn
|
|
|
|
|
;; If the PWD environment variable isn't accurate, delete it.
|
|
|
|
|
(let ((pwd (getenv "PWD")))
|
|
|
|
|
(and (stringp pwd)
|
|
|
|
|
;; Use FOO/., so that if FOO is a symlink, file-attributes
|
|
|
|
|
;; describes the directory linked to, not FOO itself.
|
|
|
|
|
(or (equal (file-attributes
|
|
|
|
|
(concat (file-name-as-directory pwd) "."))
|
|
|
|
|
(file-attributes
|
|
|
|
|
(concat (file-name-as-directory default-directory)
|
|
|
|
|
".")))
|
|
|
|
|
(setq process-environment
|
|
|
|
|
(delete (concat "PWD=" pwd)
|
|
|
|
|
process-environment)))))))
|
1992-06-10 02:47:07 +00:00
|
|
|
|
(setq default-directory (abbreviate-file-name default-directory))
|
1994-05-07 00:21:24 +00:00
|
|
|
|
(let ((menubar-bindings-done nil))
|
|
|
|
|
(unwind-protect
|
|
|
|
|
(command-line)
|
|
|
|
|
;; Do this again, in case .emacs defined more abbreviations.
|
|
|
|
|
(setq default-directory (abbreviate-file-name default-directory))
|
1995-10-23 16:59:47 +00:00
|
|
|
|
;; Specify the file for recording all the auto save files of this session.
|
|
|
|
|
;; This is used by recover-session.
|
1995-12-21 18:10:03 +00:00
|
|
|
|
(or auto-save-list-file-name
|
|
|
|
|
(and auto-save-list-file-prefix
|
|
|
|
|
(setq auto-save-list-file-name
|
1996-01-01 23:50:19 +00:00
|
|
|
|
;; Under MS-DOS our PID is almost always reused between
|
|
|
|
|
;; Emacs invocations. We need something more unique.
|
2000-05-02 12:03:43 +00:00
|
|
|
|
(cond ((eq system-type 'ms-dos)
|
|
|
|
|
;; We are going to access the auto-save
|
|
|
|
|
;; directory, so make sure it exists.
|
|
|
|
|
(make-directory
|
|
|
|
|
(file-name-directory auto-save-list-file-prefix)
|
|
|
|
|
t)
|
2003-02-04 12:29:42 +00:00
|
|
|
|
(concat
|
2000-05-02 12:03:43 +00:00
|
|
|
|
(make-temp-name
|
|
|
|
|
(expand-file-name
|
|
|
|
|
auto-save-list-file-prefix))
|
|
|
|
|
"~"))
|
|
|
|
|
(t
|
|
|
|
|
(expand-file-name
|
|
|
|
|
(format "%s%d-%s~"
|
|
|
|
|
auto-save-list-file-prefix
|
|
|
|
|
(emacs-pid)
|
|
|
|
|
(system-name))))))))
|
2003-02-23 15:16:29 +00:00
|
|
|
|
(unless inhibit-startup-hooks
|
|
|
|
|
(run-hooks 'emacs-startup-hook)
|
|
|
|
|
(and term-setup-hook
|
|
|
|
|
(run-hooks 'term-setup-hook)))
|
2001-07-10 12:55:44 +00:00
|
|
|
|
|
|
|
|
|
;; Don't do this if we failed to create the initial frame,
|
|
|
|
|
;; for instance due to a dense colormap.
|
2001-10-25 13:32:29 +00:00
|
|
|
|
(when (or frame-initial-frame
|
|
|
|
|
;; If frame-initial-frame has no meaning, do this anyway.
|
|
|
|
|
(not (and window-system
|
|
|
|
|
(not noninteractive)
|
|
|
|
|
(not (eq window-system 'pc)))))
|
2001-07-10 12:55:44 +00:00
|
|
|
|
;; Modify the initial frame based on what .emacs puts into
|
|
|
|
|
;; ...-frame-alist.
|
|
|
|
|
(if (fboundp 'frame-notice-user-settings)
|
|
|
|
|
(frame-notice-user-settings))
|
|
|
|
|
(if (fboundp 'frame-set-background-mode)
|
|
|
|
|
;; Set the faces for the initial background mode even if
|
|
|
|
|
;; frame-notice-user-settings didn't (such as on a tty).
|
|
|
|
|
;; frame-set-background-mode is idempotent, so it won't
|
|
|
|
|
;; cause any harm if it's already been done.
|
|
|
|
|
(let ((frame-background-mode frame-background-mode)
|
|
|
|
|
(frame (selected-frame))
|
|
|
|
|
term)
|
|
|
|
|
(when (and (null window-system)
|
|
|
|
|
;; Don't override a possibly customized value.
|
|
|
|
|
(null frame-background-mode)
|
|
|
|
|
;; Don't override user specifications.
|
|
|
|
|
(null (frame-parameter frame 'reverse))
|
|
|
|
|
(let ((bg (frame-parameter frame 'background-color)))
|
|
|
|
|
(or (null bg)
|
|
|
|
|
(member bg '(unspecified "unspecified-bg")))))
|
|
|
|
|
(setq term (getenv "TERM"))
|
2002-01-25 17:29:34 +00:00
|
|
|
|
;; Some files in lisp/term do a better job with the
|
|
|
|
|
;; background mode, but we leave this here anyway, in
|
|
|
|
|
;; case they remove those files.
|
2001-07-10 12:55:44 +00:00
|
|
|
|
(if (string-match "^\\(xterm\\|rxvt\\|dtterm\\|eterm\\)"
|
|
|
|
|
term)
|
|
|
|
|
(setq frame-background-mode 'light)))
|
|
|
|
|
(frame-set-background-mode (selected-frame)))))
|
2000-10-19 09:04:26 +00:00
|
|
|
|
|
1994-05-07 00:21:24 +00:00
|
|
|
|
;; Now we know the user's default font, so add it to the menu.
|
|
|
|
|
(if (fboundp 'font-menu-add-default)
|
|
|
|
|
(font-menu-add-default))
|
|
|
|
|
(and window-setup-hook
|
|
|
|
|
(run-hooks 'window-setup-hook))
|
|
|
|
|
(or menubar-bindings-done
|
2000-10-12 22:36:37 +00:00
|
|
|
|
(if (display-popup-menus-p)
|
|
|
|
|
(precompute-menubar-bindings)))))))
|
1994-05-07 00:21:24 +00:00
|
|
|
|
|
|
|
|
|
;; Precompute the keyboard equivalents in the menu bar items.
|
|
|
|
|
(defun precompute-menubar-bindings ()
|
1995-06-17 23:53:53 +00:00
|
|
|
|
(let ((submap (lookup-key global-map [menu-bar])))
|
|
|
|
|
(while submap
|
|
|
|
|
(and (consp (car submap))
|
|
|
|
|
(symbolp (car (car submap)))
|
|
|
|
|
(stringp (car-safe (cdr (car submap))))
|
|
|
|
|
(keymapp (cdr (cdr (car submap))))
|
1995-06-21 18:32:45 +00:00
|
|
|
|
(progn
|
|
|
|
|
(x-popup-menu nil (cdr (cdr (car submap))))
|
|
|
|
|
(if purify-flag
|
|
|
|
|
(garbage-collect))))
|
1995-06-17 23:53:53 +00:00
|
|
|
|
(setq submap (cdr submap))))
|
2000-10-04 19:01:37 +00:00
|
|
|
|
(setq define-key-rebound-commands t))
|
1991-07-11 23:17:40 +00:00
|
|
|
|
|
2000-10-28 17:18:59 +00:00
|
|
|
|
;; Command-line options supported by tty's:
|
|
|
|
|
(defconst tty-long-option-alist
|
2002-01-14 13:49:32 +00:00
|
|
|
|
'(("--name" . "-name")
|
|
|
|
|
("--title" . "-T")
|
|
|
|
|
("--reverse-video" . "-reverse")
|
2000-10-28 17:18:59 +00:00
|
|
|
|
("--foreground-color" . "-fg")
|
2002-01-14 13:49:32 +00:00
|
|
|
|
("--background-color" . "-bg")
|
|
|
|
|
("--color" . "-color")))
|
2000-10-28 17:18:59 +00:00
|
|
|
|
|
2001-01-24 15:38:36 +00:00
|
|
|
|
(defconst tool-bar-images-pixel-height 24
|
|
|
|
|
"Height in pixels of images in the tool bar.")
|
|
|
|
|
|
2001-02-23 10:26:22 +00:00
|
|
|
|
(defvar tool-bar-originally-present nil
|
|
|
|
|
"Non-nil if tool-bars are present before user and site init files are read.")
|
|
|
|
|
|
2003-02-26 10:59:58 +00:00
|
|
|
|
;; Handle the X-like command-line arguments "-fg", "-bg", "-name", etc.
|
2000-10-28 17:18:59 +00:00
|
|
|
|
(defun tty-handle-args (args)
|
2003-02-26 10:59:58 +00:00
|
|
|
|
(let (rest)
|
2000-10-28 17:18:59 +00:00
|
|
|
|
(message "%s" args)
|
|
|
|
|
(while (and args
|
|
|
|
|
(not (equal (car args) "--")))
|
2003-02-26 10:59:58 +00:00
|
|
|
|
(let* ((argi (pop args))
|
|
|
|
|
(orig-argi argi)
|
|
|
|
|
argval completion)
|
2000-10-28 17:18:59 +00:00
|
|
|
|
;; Check for long options with attached arguments
|
|
|
|
|
;; and separate out the attached option argument into argval.
|
2003-02-26 10:59:58 +00:00
|
|
|
|
(when (string-match "^\\(--[^=]*\\)=" argi)
|
|
|
|
|
(setq argval (substring argi (match-end 0))
|
|
|
|
|
argi (match-string 1 argi)))
|
|
|
|
|
(when (string-match "^--" argi)
|
|
|
|
|
(setq completion (try-completion argi tty-long-option-alist))
|
2000-10-28 17:18:59 +00:00
|
|
|
|
(if (eq completion t)
|
|
|
|
|
;; Exact match for long option.
|
2003-02-26 10:59:58 +00:00
|
|
|
|
(setq argi (cdr (assoc argi tty-long-option-alist)))
|
2000-10-28 17:18:59 +00:00
|
|
|
|
(if (stringp completion)
|
|
|
|
|
(let ((elt (assoc completion tty-long-option-alist)))
|
|
|
|
|
;; Check for abbreviated long option.
|
|
|
|
|
(or elt
|
2003-02-26 10:59:58 +00:00
|
|
|
|
(error "Option `%s' is ambiguous" argi))
|
|
|
|
|
(setq argi (cdr elt)))
|
2000-10-28 17:18:59 +00:00
|
|
|
|
;; Check for a short option.
|
2003-02-26 10:59:58 +00:00
|
|
|
|
(setq argval nil
|
|
|
|
|
argi orig-argi))))
|
|
|
|
|
(cond ((member argi '("-fg" "-foreground"))
|
|
|
|
|
(push (cons 'foreground-color (or argval (pop args)))
|
|
|
|
|
default-frame-alist))
|
|
|
|
|
((member argi '("-bg" "-background"))
|
|
|
|
|
(push (cons 'background-color (or argval (pop args)))
|
|
|
|
|
default-frame-alist))
|
|
|
|
|
((member argi '("-T" "-name"))
|
|
|
|
|
(unless argval (setq argval (pop args)))
|
|
|
|
|
(push (cons 'title
|
|
|
|
|
(if (stringp argval)
|
|
|
|
|
argval
|
|
|
|
|
(let ((case-fold-search t)
|
|
|
|
|
i)
|
|
|
|
|
(setq argval (invocation-name))
|
|
|
|
|
|
|
|
|
|
;; Change any . or * characters in name to
|
|
|
|
|
;; hyphens, so as to emulate behavior on X.
|
|
|
|
|
(while
|
|
|
|
|
(setq i (string-match "[.*]" argval))
|
|
|
|
|
(aset argval i ?-))
|
|
|
|
|
argval)))
|
|
|
|
|
default-frame-alist))
|
|
|
|
|
((member argi '("-r" "-rv" "-reverse"))
|
|
|
|
|
(push '(reverse . t)
|
|
|
|
|
default-frame-alist))
|
|
|
|
|
((equal argi "-color")
|
|
|
|
|
(unless argval (setq argval 8)) ; default --color means 8 ANSI colors
|
|
|
|
|
(push (cons 'tty-color-mode
|
|
|
|
|
(cond
|
|
|
|
|
((numberp argval) argval)
|
|
|
|
|
((string-match "-?[0-9]+" argval)
|
|
|
|
|
(string-to-number argval))
|
|
|
|
|
(t (intern argval))))
|
|
|
|
|
default-frame-alist))
|
|
|
|
|
(t
|
|
|
|
|
(push argi rest)))))
|
|
|
|
|
(nreverse rest)))
|
2000-10-28 17:18:59 +00:00
|
|
|
|
|
1991-07-11 23:17:40 +00:00
|
|
|
|
(defun command-line ()
|
1994-04-22 18:28:22 +00:00
|
|
|
|
(setq command-line-default-directory default-directory)
|
|
|
|
|
|
1998-06-10 20:59:16 +00:00
|
|
|
|
;; Choose a reasonable location for temporary files.
|
|
|
|
|
(setq temporary-file-directory
|
|
|
|
|
(file-name-as-directory
|
|
|
|
|
(cond ((memq system-type '(ms-dos windows-nt))
|
|
|
|
|
(or (getenv "TEMP") (getenv "TMPDIR") (getenv "TMP") "c:/temp"))
|
|
|
|
|
((memq system-type '(vax-vms axp-vms))
|
|
|
|
|
(or (getenv "TMPDIR") (getenv "TMP") (getenv "TEMP") "SYS$SCRATCH:"))
|
|
|
|
|
(t
|
|
|
|
|
(or (getenv "TMPDIR") (getenv "TMP") (getenv "TEMP") "/tmp")))))
|
1999-09-02 12:30:24 +00:00
|
|
|
|
(setq small-temporary-file-directory
|
|
|
|
|
(if (eq system-type 'ms-dos)
|
1999-09-06 11:43:01 +00:00
|
|
|
|
(getenv "TMPDIR")))
|
2002-03-29 14:04:05 +00:00
|
|
|
|
(setq auto-save-file-name-transforms
|
|
|
|
|
(list (list "\\`/[^/]*:\\(.+/\\)*\\(.*\\)"
|
|
|
|
|
;; Don't put "\\2" inside expand-file-name, since
|
|
|
|
|
;; it will be transformed to "/2" on DOS/Windows.
|
2002-04-20 22:25:55 +00:00
|
|
|
|
(concat temporary-file-directory "\\2") t)))
|
1998-06-10 20:59:16 +00:00
|
|
|
|
|
1992-07-20 22:30:14 +00:00
|
|
|
|
;; See if we should import version-control from the environment variable.
|
1991-07-11 23:17:40 +00:00
|
|
|
|
(let ((vc (getenv "VERSION_CONTROL")))
|
|
|
|
|
(cond ((eq vc nil)) ;don't do anything if not set
|
2003-02-26 10:59:58 +00:00
|
|
|
|
((member vc '("t" "numbered"))
|
1991-07-11 23:17:40 +00:00
|
|
|
|
(setq version-control t))
|
2003-02-26 10:59:58 +00:00
|
|
|
|
((member vc '("nil" "existing"))
|
1991-07-11 23:17:40 +00:00
|
|
|
|
(setq version-control nil))
|
2003-02-26 10:59:58 +00:00
|
|
|
|
((member vc '("never" "simple"))
|
1991-07-11 23:17:40 +00:00
|
|
|
|
(setq version-control 'never))))
|
|
|
|
|
|
1992-07-10 01:16:40 +00:00
|
|
|
|
;;! This has been commented out; I currently find the behavior when
|
|
|
|
|
;;! split-window-keep-point is nil disturbing, but if I can get used
|
|
|
|
|
;;! to it, then it would be better to eliminate the option.
|
|
|
|
|
;;! ;; Choose a good default value for split-window-keep-point.
|
|
|
|
|
;;! (setq split-window-keep-point (> baud-rate 2400))
|
1991-08-12 13:15:12 +00:00
|
|
|
|
|
1999-01-27 10:12:43 +00:00
|
|
|
|
;; Set the default strings to display in mode line for
|
|
|
|
|
;; end-of-line formats that aren't native to this platform.
|
|
|
|
|
(cond
|
|
|
|
|
((memq system-type '(ms-dos windows-nt emx))
|
2003-02-26 10:59:58 +00:00
|
|
|
|
(setq eol-mnemonic-unix "(Unix)"
|
|
|
|
|
eol-mnemonic-mac "(Mac)"))
|
2002-01-16 19:43:30 +00:00
|
|
|
|
;; Both Mac and Unix EOLs are now "native" on Mac OS so keep the
|
|
|
|
|
;; abbreviated strings `/' and `:' set in coding.c for them.
|
|
|
|
|
((eq system-type 'macos)
|
|
|
|
|
(setq eol-mnemonic-dos "(DOS)"))
|
2003-02-26 10:59:58 +00:00
|
|
|
|
(t ; this is for Unix/GNU/Linux systems
|
|
|
|
|
(setq eol-mnemonic-dos "(DOS)"
|
|
|
|
|
eol-mnemonic-mac "(Mac)")))
|
1999-01-27 10:12:43 +00:00
|
|
|
|
|
1991-07-11 23:17:40 +00:00
|
|
|
|
;; Read window system's init file if using a window system.
|
1994-09-15 02:35:45 +00:00
|
|
|
|
(condition-case error
|
|
|
|
|
(if (and window-system (not noninteractive))
|
|
|
|
|
(load (concat term-file-prefix
|
|
|
|
|
(symbol-name window-system)
|
|
|
|
|
"-win")
|
|
|
|
|
;; Every window system should have a startup file;
|
|
|
|
|
;; barf if we can't find it.
|
|
|
|
|
nil t))
|
|
|
|
|
;; If we can't read it, print the error message and exit.
|
|
|
|
|
(error
|
1994-09-15 03:07:47 +00:00
|
|
|
|
(princ
|
|
|
|
|
(if (eq (car error) 'error)
|
|
|
|
|
(apply 'concat (cdr error))
|
|
|
|
|
(if (memq 'file-error (get (car error) 'error-conditions))
|
|
|
|
|
(format "%s: %s"
|
2003-02-26 10:59:58 +00:00
|
|
|
|
(nth 1 error)
|
|
|
|
|
(mapconcat (lambda (obj) (prin1-to-string obj t))
|
|
|
|
|
(cdr (cdr error)) ", "))
|
1994-09-15 03:07:47 +00:00
|
|
|
|
(format "%s: %s"
|
2003-02-26 10:59:58 +00:00
|
|
|
|
(get (car error) 'error-message)
|
|
|
|
|
(mapconcat (lambda (obj) (prin1-to-string obj t))
|
|
|
|
|
(cdr error) ", "))))
|
1994-09-15 03:07:47 +00:00
|
|
|
|
'external-debugging-output)
|
2001-04-11 14:28:56 +00:00
|
|
|
|
(terpri 'external-debugging-output)
|
1994-09-15 03:07:47 +00:00
|
|
|
|
(setq window-system nil)
|
1994-09-15 02:35:45 +00:00
|
|
|
|
(kill-emacs)))
|
1991-07-11 23:17:40 +00:00
|
|
|
|
|
2000-10-28 17:18:59 +00:00
|
|
|
|
;; Windowed displays do this inside their *-win.el.
|
2003-02-26 10:59:58 +00:00
|
|
|
|
(unless (or (display-graphic-p) noninteractive)
|
2000-10-28 17:18:59 +00:00
|
|
|
|
(setq command-line-args (tty-handle-args command-line-args)))
|
|
|
|
|
|
2000-11-25 16:24:43 +00:00
|
|
|
|
(set-locale-environment nil)
|
|
|
|
|
|
2001-12-25 17:15:14 +00:00
|
|
|
|
;; Convert the arguments to Emacs internal representation.
|
|
|
|
|
(let ((args (cdr command-line-args)))
|
|
|
|
|
(while args
|
|
|
|
|
(setcar args
|
|
|
|
|
(decode-coding-string (car args) locale-coding-system t))
|
2003-02-26 10:59:58 +00:00
|
|
|
|
(pop args)))
|
2001-12-25 17:15:14 +00:00
|
|
|
|
|
1991-07-13 09:35:06 +00:00
|
|
|
|
(let ((done nil)
|
|
|
|
|
(args (cdr command-line-args)))
|
|
|
|
|
|
1991-07-11 23:17:40 +00:00
|
|
|
|
;; Figure out which user's init file to load,
|
|
|
|
|
;; either from the environment or from the options.
|
|
|
|
|
(setq init-file-user (if noninteractive nil (user-login-name)))
|
|
|
|
|
;; If user has not done su, use current $HOME to find .emacs.
|
2003-02-26 10:59:58 +00:00
|
|
|
|
(and init-file-user
|
|
|
|
|
(equal init-file-user (user-real-login-name))
|
1991-07-11 23:17:40 +00:00
|
|
|
|
(setq init-file-user ""))
|
1991-07-13 09:35:06 +00:00
|
|
|
|
|
|
|
|
|
;; Process the command-line args, and delete the arguments
|
|
|
|
|
;; processed. This is consistent with the way main in emacs.c
|
|
|
|
|
;; does things.
|
1991-07-11 23:17:40 +00:00
|
|
|
|
(while (and (not done) args)
|
2003-02-26 10:59:58 +00:00
|
|
|
|
(let* ((longopts '(("--no-init-file") ("--no-site-file") ("--user")
|
|
|
|
|
("--debug-init") ("--iconic") ("--icon-type")))
|
|
|
|
|
(argi (pop args))
|
|
|
|
|
(orig-argi argi)
|
|
|
|
|
argval)
|
1995-11-10 17:27:52 +00:00
|
|
|
|
;; Handle --OPTION=VALUE format.
|
2003-02-26 10:59:58 +00:00
|
|
|
|
(when (string-match "^\\(--[^=]*\\)=" argi)
|
2002-05-26 20:49:28 +00:00
|
|
|
|
(setq argval (substring argi (match-end 0))
|
2003-02-26 10:59:58 +00:00
|
|
|
|
argi (match-string 1 argi)))
|
2002-05-26 20:49:28 +00:00
|
|
|
|
(unless (equal argi "--")
|
|
|
|
|
(let ((completion (try-completion argi longopts)))
|
|
|
|
|
(if (eq completion t)
|
|
|
|
|
(setq argi (substring argi 1))
|
|
|
|
|
(if (stringp completion)
|
|
|
|
|
(let ((elt (assoc completion longopts)))
|
|
|
|
|
(or elt
|
|
|
|
|
(error "Option `%s' is ambiguous" argi))
|
|
|
|
|
(setq argi (substring (car elt) 1)))
|
2003-02-26 10:59:58 +00:00
|
|
|
|
(setq argval nil
|
|
|
|
|
argi orig-argi)))))
|
1991-07-11 23:17:40 +00:00
|
|
|
|
(cond
|
2001-11-17 00:08:20 +00:00
|
|
|
|
((member argi '("-q" "-no-init-file"))
|
|
|
|
|
(setq init-file-user nil))
|
|
|
|
|
((member argi '("-u" "-user"))
|
2003-02-26 10:59:58 +00:00
|
|
|
|
(setq init-file-user (or argval (pop args))
|
2001-11-17 00:08:20 +00:00
|
|
|
|
argval nil))
|
2003-02-26 10:59:58 +00:00
|
|
|
|
((equal argi "-no-site-file")
|
2001-11-17 00:08:20 +00:00
|
|
|
|
(setq site-run-file nil))
|
2003-02-26 10:59:58 +00:00
|
|
|
|
((equal argi "-debug-init")
|
2001-11-17 00:08:20 +00:00
|
|
|
|
(setq init-file-debug t))
|
2003-02-26 10:59:58 +00:00
|
|
|
|
((equal argi "-iconic")
|
2001-11-17 00:08:20 +00:00
|
|
|
|
(push '(visibility . icon) initial-frame-alist))
|
2003-02-26 10:59:58 +00:00
|
|
|
|
((member argi '("-icon-type" "-i" "-itype"))
|
2001-11-17 00:08:20 +00:00
|
|
|
|
(push '(icon-type . t) default-frame-alist))
|
|
|
|
|
;; Push the popped arg back on the list of arguments.
|
2003-02-26 10:59:58 +00:00
|
|
|
|
(t
|
|
|
|
|
(push argi args)
|
|
|
|
|
(setq done t)))
|
1994-09-28 22:15:38 +00:00
|
|
|
|
;; Was argval set but not used?
|
|
|
|
|
(and argval
|
|
|
|
|
(error "Option `%s' doesn't allow an argument" argi))))
|
|
|
|
|
|
1991-07-13 09:35:06 +00:00
|
|
|
|
;; Re-attach the program name to the front of the arg list.
|
2003-02-26 10:59:58 +00:00
|
|
|
|
(and command-line-args
|
|
|
|
|
(setcdr command-line-args args)))
|
1991-07-11 23:17:40 +00:00
|
|
|
|
|
1993-05-13 03:14:39 +00:00
|
|
|
|
;; Under X Windows, this creates the X frame and deletes the terminal frame.
|
2001-01-30 15:09:25 +00:00
|
|
|
|
(when (fboundp 'frame-initialize)
|
|
|
|
|
(frame-initialize))
|
|
|
|
|
|
1994-09-15 20:09:49 +00:00
|
|
|
|
;; If frame was created with a menu bar, set menu-bar-mode on.
|
2003-02-26 10:59:58 +00:00
|
|
|
|
(unless (or noninteractive
|
|
|
|
|
(and (memq window-system '(x w32))
|
|
|
|
|
(<= (frame-parameter nil 'menu-bar-lines) 0)))
|
2003-03-01 15:55:04 +00:00
|
|
|
|
(menu-bar-mode 1))
|
1993-05-13 03:14:39 +00:00
|
|
|
|
|
2000-09-21 18:38:53 +00:00
|
|
|
|
;; If frame was created with a tool bar, switch tool-bar-mode on.
|
2003-02-26 10:59:58 +00:00
|
|
|
|
(unless (or noninteractive
|
|
|
|
|
(not (display-graphic-p))
|
|
|
|
|
(<= (frame-parameter nil 'tool-bar-lines) 0))
|
2001-01-24 15:38:36 +00:00
|
|
|
|
(tool-bar-mode 1))
|
2000-09-21 18:38:53 +00:00
|
|
|
|
|
2000-07-03 19:14:39 +00:00
|
|
|
|
;; Can't do this init in defcustom because window-system isn't set.
|
2003-02-26 10:59:58 +00:00
|
|
|
|
(unless (or noninteractive
|
|
|
|
|
(eq system-type 'ms-dos)
|
|
|
|
|
(not (memq window-system '(x w32))))
|
2000-07-03 19:14:39 +00:00
|
|
|
|
(setq-default blink-cursor t)
|
|
|
|
|
(blink-cursor-mode 1))
|
|
|
|
|
|
2001-02-01 15:22:20 +00:00
|
|
|
|
(unless noninteractive
|
|
|
|
|
;; DOS/Windows systems have a PC-type keyboard which has both
|
|
|
|
|
;; <delete> and <backspace> keys.
|
|
|
|
|
(when (or (memq system-type '(ms-dos windows-nt))
|
|
|
|
|
(and (memq window-system '(x))
|
|
|
|
|
(fboundp 'x-backspace-delete-keys-p)
|
2001-11-01 13:09:32 +00:00
|
|
|
|
(x-backspace-delete-keys-p))
|
|
|
|
|
;; If the terminal Emacs is running on has erase char
|
|
|
|
|
;; set to ^H, use the Backspace key for deleting
|
|
|
|
|
;; backward and, and the Delete key for deleting forward.
|
|
|
|
|
(and (null window-system)
|
|
|
|
|
(eq tty-erase-char 8)))
|
2001-04-04 14:05:18 +00:00
|
|
|
|
(setq-default normal-erase-is-backspace t)
|
|
|
|
|
(normal-erase-is-backspace-mode 1)))
|
2000-12-14 13:36:34 +00:00
|
|
|
|
|
2003-02-26 10:59:58 +00:00
|
|
|
|
(unless (or noninteractive
|
|
|
|
|
(not (display-graphic-p))
|
|
|
|
|
(not (fboundp 'x-show-tip)))
|
2000-11-09 23:47:28 +00:00
|
|
|
|
(setq-default tooltip-mode t)
|
|
|
|
|
(tooltip-mode 1))
|
|
|
|
|
|
2000-10-17 12:59:41 +00:00
|
|
|
|
;; Register default TTY colors for the case the terminal hasn't a
|
|
|
|
|
;; terminal init file.
|
2003-02-26 10:59:58 +00:00
|
|
|
|
(unless (memq window-system '(x w32))
|
|
|
|
|
;; We do this regardles of whether the terminal supports colors
|
|
|
|
|
;; or not, since they can switch that support on or off in
|
|
|
|
|
;; mid-session by setting the tty-color-mode frame parameter.
|
|
|
|
|
(tty-register-default-colors))
|
2000-10-17 12:59:41 +00:00
|
|
|
|
|
2001-02-23 10:26:22 +00:00
|
|
|
|
;; Record whether the tool-bar is present before the user and site
|
|
|
|
|
;; init files are processed. frame-notice-user-settings uses this
|
|
|
|
|
;; to determine if the tool-bar has been disabled by the init files,
|
|
|
|
|
;; and the frame needs to be resized.
|
|
|
|
|
(when (fboundp 'frame-notice-user-settings)
|
|
|
|
|
(let ((tool-bar-lines (or (assq 'tool-bar-lines initial-frame-alist)
|
|
|
|
|
(assq 'tool-bar-lines default-frame-alist))))
|
|
|
|
|
(setq tool-bar-originally-present
|
2003-02-26 10:59:58 +00:00
|
|
|
|
(and tool-bar-lines
|
|
|
|
|
(cdr tool-bar-lines)
|
|
|
|
|
(not (eq 0 (cdr tool-bar-lines)))))))
|
2001-02-23 10:26:22 +00:00
|
|
|
|
|
2001-05-11 15:12:08 +00:00
|
|
|
|
(let ((old-scalable-fonts-allowed scalable-fonts-allowed)
|
|
|
|
|
(old-font-list-limit font-list-limit)
|
|
|
|
|
(old-face-ignored-fonts face-ignored-fonts))
|
|
|
|
|
|
|
|
|
|
(run-hooks 'before-init-hook)
|
|
|
|
|
|
|
|
|
|
;; Run the site-start library if it exists. The point of this file is
|
|
|
|
|
;; that it is run before .emacs. There is no point in doing this after
|
|
|
|
|
;; .emacs; that is useless.
|
2003-02-04 12:29:42 +00:00
|
|
|
|
(if site-run-file
|
2001-05-11 15:12:08 +00:00
|
|
|
|
(load site-run-file t t))
|
|
|
|
|
|
|
|
|
|
;; Sites should not disable this. Only individuals should disable
|
|
|
|
|
;; the startup message.
|
|
|
|
|
(setq inhibit-startup-message nil)
|
|
|
|
|
|
|
|
|
|
;; Load that user's init file, or the default one, or none.
|
|
|
|
|
(let (debug-on-error-from-init-file
|
|
|
|
|
debug-on-error-should-be-set
|
|
|
|
|
(debug-on-error-initial
|
|
|
|
|
(if (eq init-file-debug t) 'startup init-file-debug))
|
|
|
|
|
(orig-enable-multibyte default-enable-multibyte-characters))
|
|
|
|
|
(let ((debug-on-error debug-on-error-initial)
|
|
|
|
|
;; This function actually reads the init files.
|
|
|
|
|
(inner
|
|
|
|
|
(function
|
|
|
|
|
(lambda ()
|
|
|
|
|
(if init-file-user
|
|
|
|
|
(let ((user-init-file-1
|
2001-11-17 00:08:20 +00:00
|
|
|
|
(cond
|
2001-05-11 15:12:08 +00:00
|
|
|
|
((eq system-type 'ms-dos)
|
|
|
|
|
(concat "~" init-file-user "/_emacs"))
|
|
|
|
|
((eq system-type 'windows-nt)
|
|
|
|
|
(if (directory-files "~" nil "^\\.emacs\\(\\.elc?\\)?$")
|
|
|
|
|
"~/.emacs"
|
|
|
|
|
"~/_emacs"))
|
2003-02-04 12:29:42 +00:00
|
|
|
|
((eq system-type 'vax-vms)
|
2001-05-11 15:12:08 +00:00
|
|
|
|
"sys$login:.emacs")
|
2001-11-17 00:08:20 +00:00
|
|
|
|
(t
|
2001-05-11 15:12:08 +00:00
|
|
|
|
(concat "~" init-file-user "/.emacs")))))
|
|
|
|
|
;; This tells `load' to store the file name found
|
|
|
|
|
;; into user-init-file.
|
|
|
|
|
(setq user-init-file t)
|
|
|
|
|
(load user-init-file-1 t t)
|
2003-02-04 12:29:42 +00:00
|
|
|
|
|
2002-10-26 22:41:33 +00:00
|
|
|
|
(when (eq user-init-file t)
|
|
|
|
|
;; If we did not find ~/.emacs, try
|
|
|
|
|
;; ~/.emacs.d/.emacs.
|
|
|
|
|
(let ((otherfile
|
|
|
|
|
(expand-file-name
|
|
|
|
|
(file-name-nondirectory user-init-file-1)
|
|
|
|
|
(file-name-as-directory
|
|
|
|
|
(expand-file-name
|
|
|
|
|
".emacs.d"
|
|
|
|
|
(file-name-directory user-init-file-1))))))
|
|
|
|
|
(load otherfile t t)
|
|
|
|
|
|
|
|
|
|
;; If we did not find the user's init file,
|
|
|
|
|
;; set user-init-file conclusively.
|
|
|
|
|
;; Don't let it be set from default.el.
|
|
|
|
|
(when (eq user-init-file t)
|
|
|
|
|
(setq user-init-file user-init-file-1))))
|
2003-02-04 12:29:42 +00:00
|
|
|
|
|
2001-05-11 15:12:08 +00:00
|
|
|
|
;; If we loaded a compiled file, set
|
|
|
|
|
;; `user-init-file' to the source version if that
|
|
|
|
|
;; exists.
|
|
|
|
|
(when (and user-init-file
|
|
|
|
|
(equal (file-name-extension user-init-file)
|
|
|
|
|
"elc"))
|
|
|
|
|
(let* ((source (file-name-sans-extension user-init-file))
|
|
|
|
|
(alt (concat source ".el")))
|
|
|
|
|
(setq source (cond ((file-exists-p alt) alt)
|
|
|
|
|
((file-exists-p source) source)
|
|
|
|
|
(t nil)))
|
|
|
|
|
(when source
|
|
|
|
|
(when (file-newer-than-file-p source user-init-file)
|
|
|
|
|
(message "Warning: %s is newer than %s"
|
|
|
|
|
source user-init-file)
|
|
|
|
|
(sit-for 1))
|
|
|
|
|
(setq user-init-file source))))
|
2003-02-04 12:29:42 +00:00
|
|
|
|
|
2003-02-26 10:59:58 +00:00
|
|
|
|
(when (stringp custom-file)
|
|
|
|
|
(unless (assoc custom-file load-history)
|
|
|
|
|
;; If the .emacs file has set `custom-file' but hasn't
|
|
|
|
|
;; loaded the file yet, let's load it.
|
|
|
|
|
(load custom-file t t)))
|
|
|
|
|
|
|
|
|
|
(unless inhibit-default-init
|
|
|
|
|
(let ((inhibit-startup-message nil))
|
|
|
|
|
;; Users are supposed to be told their rights.
|
|
|
|
|
;; (Plus how to get help and how to undo.)
|
|
|
|
|
;; Don't you dare turn this off for anyone
|
|
|
|
|
;; except yourself.
|
|
|
|
|
(load "default" t t)))))))))
|
2001-05-11 15:12:08 +00:00
|
|
|
|
(if init-file-debug
|
|
|
|
|
;; Do this without a condition-case if the user wants to debug.
|
|
|
|
|
(funcall inner)
|
|
|
|
|
(condition-case error
|
|
|
|
|
(progn
|
|
|
|
|
(funcall inner)
|
|
|
|
|
(setq init-file-had-error nil))
|
|
|
|
|
(error
|
|
|
|
|
(let ((message-log-max nil))
|
|
|
|
|
(save-excursion
|
|
|
|
|
(set-buffer (get-buffer-create "*Messages*"))
|
|
|
|
|
(insert "\n\n"
|
|
|
|
|
(format "An error has occurred while loading `%s':\n\n"
|
|
|
|
|
user-init-file)
|
|
|
|
|
(format "%s%s%s"
|
|
|
|
|
(get (car error) 'error-message)
|
|
|
|
|
(if (cdr error) ": " "")
|
2003-02-21 12:43:31 +00:00
|
|
|
|
(mapconcat (lambda (s) (prin1-to-string s t)) (cdr error) ", "))
|
2001-05-11 15:12:08 +00:00
|
|
|
|
"\n\n"
|
2003-02-21 12:43:31 +00:00
|
|
|
|
"To ensure normal operation, you should investigate and remove the\n"
|
|
|
|
|
"cause of the error in your initialization file. Start Emacs with\n"
|
|
|
|
|
"the `--debug-init' option to view a complete error backtrace.\n\n"))
|
2001-05-11 15:12:08 +00:00
|
|
|
|
(message "Error in init file: %s%s%s"
|
|
|
|
|
(get (car error) 'error-message)
|
|
|
|
|
(if (cdr error) ": " "")
|
|
|
|
|
(mapconcat 'prin1-to-string (cdr error) ", "))
|
2003-02-21 12:43:31 +00:00
|
|
|
|
(let ((pop-up-windows nil))
|
|
|
|
|
(pop-to-buffer "*Messages*"))
|
2001-05-11 15:12:08 +00:00
|
|
|
|
(setq init-file-had-error t)))))
|
2001-11-11 01:53:31 +00:00
|
|
|
|
|
|
|
|
|
;; If the user has a file of abbrevs, read it.
|
|
|
|
|
(if (file-exists-p abbrev-file-name)
|
|
|
|
|
(quietly-read-abbrev-file abbrev-file-name))
|
|
|
|
|
|
2001-11-18 06:48:18 +00:00
|
|
|
|
;; If the abbrevs came entirely from the init file or the
|
|
|
|
|
;; abbrevs file, they do not need saving.
|
|
|
|
|
(setq abbrevs-changed nil)
|
|
|
|
|
|
2001-05-11 15:12:08 +00:00
|
|
|
|
;; If we can tell that the init file altered debug-on-error,
|
|
|
|
|
;; arrange to preserve the value that it set up.
|
|
|
|
|
(or (eq debug-on-error debug-on-error-initial)
|
|
|
|
|
(setq debug-on-error-should-be-set t
|
|
|
|
|
debug-on-error-from-init-file debug-on-error)))
|
|
|
|
|
(if debug-on-error-should-be-set
|
|
|
|
|
(setq debug-on-error debug-on-error-from-init-file))
|
|
|
|
|
(unless (or default-enable-multibyte-characters
|
|
|
|
|
(eq orig-enable-multibyte default-enable-multibyte-characters))
|
|
|
|
|
;; Init file changed to unibyte. Reset existing multibyte
|
|
|
|
|
;; buffers (probably *scratch*, *Messages*, *Minibuff-0*).
|
|
|
|
|
;; Arguably this should only be done if they're free of
|
|
|
|
|
;; multibyte characters.
|
|
|
|
|
(mapcar (lambda (buffer)
|
|
|
|
|
(with-current-buffer buffer
|
|
|
|
|
(if enable-multibyte-characters
|
|
|
|
|
(set-buffer-multibyte nil))))
|
|
|
|
|
(buffer-list))
|
|
|
|
|
;; Also re-set the language environment in case it was
|
|
|
|
|
;; originally done before unibyte was set and is sensitive to
|
|
|
|
|
;; unibyte (display table, terminal coding system &c).
|
|
|
|
|
(set-language-environment current-language-environment)))
|
2003-02-04 12:29:42 +00:00
|
|
|
|
|
2001-05-11 15:12:08 +00:00
|
|
|
|
;; Do this here in case the init file sets mail-host-address.
|
2002-09-29 20:50:15 +00:00
|
|
|
|
(if (equal user-mail-address "")
|
2001-05-11 15:12:08 +00:00
|
|
|
|
(setq user-mail-address (concat (user-login-name) "@"
|
|
|
|
|
(or mail-host-address
|
|
|
|
|
(system-name)))))
|
|
|
|
|
|
|
|
|
|
;; If parameter have been changed in the init file which influence
|
|
|
|
|
;; face realization, clear the face cache so that new faces will
|
|
|
|
|
;; be realized.
|
|
|
|
|
(unless (and (eq scalable-fonts-allowed old-scalable-fonts-allowed)
|
|
|
|
|
(eq font-list-limit old-font-list-limit)
|
|
|
|
|
(eq face-ignored-fonts old-face-ignored-fonts))
|
|
|
|
|
(clear-face-cache)))
|
2003-02-04 12:29:42 +00:00
|
|
|
|
|
1992-06-04 19:58:44 +00:00
|
|
|
|
(run-hooks 'after-init-hook)
|
|
|
|
|
|
1991-07-11 23:17:40 +00:00
|
|
|
|
;; If *scratch* exists and init file didn't change its mode, initialize it.
|
|
|
|
|
(if (get-buffer "*scratch*")
|
2002-08-14 21:46:21 +00:00
|
|
|
|
(with-current-buffer "*scratch*"
|
1991-07-11 23:17:40 +00:00
|
|
|
|
(if (eq major-mode 'fundamental-mode)
|
|
|
|
|
(funcall initial-major-mode))))
|
2003-02-04 12:29:42 +00:00
|
|
|
|
|
1991-07-11 23:17:40 +00:00
|
|
|
|
;; Load library for our terminal type.
|
|
|
|
|
;; User init file can set term-file-prefix to nil to prevent this.
|
2003-02-26 10:59:58 +00:00
|
|
|
|
(unless (or noninteractive
|
|
|
|
|
window-system
|
|
|
|
|
(null term-file-prefix))
|
|
|
|
|
(let ((term (getenv "TERM"))
|
|
|
|
|
hyphend)
|
|
|
|
|
(while (and term
|
|
|
|
|
(not (load (concat term-file-prefix term) t t)))
|
|
|
|
|
;; Strip off last hyphen and what follows, then try again
|
|
|
|
|
(setq term
|
|
|
|
|
(if (setq hyphend (string-match "[-_][^-_]+$" term))
|
|
|
|
|
(substring term 0 hyphend)
|
|
|
|
|
nil)))))
|
1991-07-11 23:17:40 +00:00
|
|
|
|
|
2002-07-12 23:21:48 +00:00
|
|
|
|
;; Update the out-of-memory error message based on user's key bindings
|
|
|
|
|
;; for save-some-buffers.
|
|
|
|
|
(setq memory-signal-data
|
|
|
|
|
(list 'error
|
|
|
|
|
(substitute-command-keys "Memory exhausted--use \\[save-some-buffers] then exit and restart Emacs")))
|
|
|
|
|
|
1991-07-13 09:35:06 +00:00
|
|
|
|
;; Process the remaining args.
|
1991-07-11 23:17:40 +00:00
|
|
|
|
(command-line-1 (cdr command-line-args))
|
|
|
|
|
|
|
|
|
|
;; If -batch, terminate after processing the command options.
|
2002-03-10 16:29:34 +00:00
|
|
|
|
(if noninteractive (kill-emacs t))
|
|
|
|
|
|
|
|
|
|
;; Run emacs-session-restore (session management) if started by
|
|
|
|
|
;; the session manager and we have a session manager connection.
|
2003-02-26 10:59:58 +00:00
|
|
|
|
(if (and (boundp 'x-session-previous-id)
|
|
|
|
|
(stringp x-session-previous-id))
|
2002-03-12 19:13:52 +00:00
|
|
|
|
(emacs-session-restore x-session-previous-id)))
|
1991-07-11 23:17:40 +00:00
|
|
|
|
|
2000-01-19 14:39:01 +00:00
|
|
|
|
(defcustom initial-scratch-message (purecopy "\
|
1999-11-11 11:54:07 +00:00
|
|
|
|
;; This buffer is for notes you don't want to save, and for Lisp evaluation.
|
|
|
|
|
;; If you want to create a file, visit that file with C-x C-f,
|
|
|
|
|
;; then enter the text in that file's own buffer.
|
1997-09-14 17:27:48 +00:00
|
|
|
|
|
2000-01-19 14:39:01 +00:00
|
|
|
|
")
|
1997-09-14 17:27:48 +00:00
|
|
|
|
"Initial message displayed in *scratch* buffer at startup.
|
|
|
|
|
If this is nil, no message will be displayed."
|
2002-01-11 21:35:14 +00:00
|
|
|
|
:type '(choice (text :tag "Message")
|
|
|
|
|
(const :tag "none" nil))
|
|
|
|
|
:group 'initialization)
|
1997-09-14 17:27:48 +00:00
|
|
|
|
|
2000-09-19 13:28:27 +00:00
|
|
|
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
|
;;; Fancy splash screen
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
|
|
|
|
|
|
(defvar fancy-splash-text
|
2000-09-20 12:59:41 +00:00
|
|
|
|
'((:face variable-pitch
|
2000-09-25 09:11:31 +00:00
|
|
|
|
"You can do basic editing with the menu bar and scroll bar \
|
|
|
|
|
using the mouse.\n\n"
|
2000-09-20 12:59:41 +00:00
|
|
|
|
:face (variable-pitch :weight bold)
|
2000-09-19 13:28:27 +00:00
|
|
|
|
"Important Help menu items:\n"
|
2000-09-20 12:59:41 +00:00
|
|
|
|
:face variable-pitch "\
|
2001-02-22 11:18:28 +00:00
|
|
|
|
Emacs Tutorial\tLearn-by-doing tutorial for using Emacs efficiently
|
2000-11-03 12:27:04 +00:00
|
|
|
|
Emacs FAQ\tFrequently asked questions and answers
|
2002-07-12 23:21:48 +00:00
|
|
|
|
Read the Emacs Manual\tView the Emacs manual using Info
|
2000-11-03 12:27:04 +00:00
|
|
|
|
\(Non)Warranty\tGNU Emacs comes with "
|
2000-09-20 12:59:41 +00:00
|
|
|
|
:face (variable-pitch :slant oblique)
|
2000-09-19 13:28:27 +00:00
|
|
|
|
"ABSOLUTELY NO WARRANTY\n"
|
2000-09-20 12:59:41 +00:00
|
|
|
|
:face variable-pitch
|
2000-10-17 12:10:40 +00:00
|
|
|
|
"\
|
2001-02-22 11:18:28 +00:00
|
|
|
|
Copying Conditions\tConditions for redistributing and changing Emacs
|
2002-07-14 15:29:56 +00:00
|
|
|
|
More Manuals / Ordering Manuals Buying printed manuals from the FSF\n")
|
2001-02-22 11:18:28 +00:00
|
|
|
|
(:face variable-pitch
|
|
|
|
|
"You can do basic editing with the menu bar and scroll bar \
|
|
|
|
|
using the mouse.\n\n"
|
|
|
|
|
:face (variable-pitch :weight bold)
|
|
|
|
|
"Useful File menu items:\n"
|
|
|
|
|
:face variable-pitch "\
|
|
|
|
|
Exit Emacs\t(Or type Control-x followed by Control-c)
|
|
|
|
|
Recover Session\tRecover files you were editing before a crash
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
2002-07-12 23:23:29 +00:00
|
|
|
|
|
2001-02-22 11:18:28 +00:00
|
|
|
|
"
|
|
|
|
|
))
|
2000-09-19 13:28:27 +00:00
|
|
|
|
"A list of texts to show in the middle part of splash screens.
|
|
|
|
|
Each element in the list should be a list of strings or pairs
|
|
|
|
|
`:face FACE', like `fancy-splash-insert' accepts them.")
|
|
|
|
|
|
|
|
|
|
|
2000-09-19 17:05:18 +00:00
|
|
|
|
(defgroup fancy-splash-screen ()
|
2000-09-19 15:00:29 +00:00
|
|
|
|
"Fancy splash screen when Emacs starts."
|
2000-09-19 17:05:18 +00:00
|
|
|
|
:version "21.1"
|
2000-09-19 15:00:29 +00:00
|
|
|
|
:group 'initialization)
|
|
|
|
|
|
|
|
|
|
|
2000-11-06 11:46:54 +00:00
|
|
|
|
(defcustom fancy-splash-delay 10
|
2000-09-20 10:56:02 +00:00
|
|
|
|
"*Delay in seconds between splash screens."
|
2000-09-19 15:00:29 +00:00
|
|
|
|
:group 'fancy-splash-screen
|
2000-09-19 13:28:27 +00:00
|
|
|
|
:type 'integer)
|
|
|
|
|
|
|
|
|
|
|
2000-11-06 11:46:54 +00:00
|
|
|
|
(defcustom fancy-splash-max-time 60
|
|
|
|
|
"*Show splash screens for at most this number of seconds.
|
|
|
|
|
Values less than 60 seconds are ignored."
|
|
|
|
|
:group 'fancy-splash-screen
|
|
|
|
|
:type 'integer)
|
|
|
|
|
|
|
|
|
|
|
2000-09-20 14:06:56 +00:00
|
|
|
|
(defcustom fancy-splash-image nil
|
|
|
|
|
"*The image to show in the splash screens, or nil for defaults."
|
2000-09-19 15:00:29 +00:00
|
|
|
|
:group 'fancy-splash-screen
|
2000-09-20 14:06:56 +00:00
|
|
|
|
:type '(choice (const :tag "Default" nil)
|
|
|
|
|
(file :tag "File")))
|
2000-09-19 13:28:27 +00:00
|
|
|
|
|
|
|
|
|
|
2000-09-29 19:12:14 +00:00
|
|
|
|
;; These are temporary storage areas for the splash screen display.
|
|
|
|
|
|
|
|
|
|
(defvar fancy-current-text nil)
|
|
|
|
|
(defvar fancy-splash-help-echo nil)
|
2000-11-06 11:46:54 +00:00
|
|
|
|
(defvar fancy-splash-stop-time nil)
|
2001-12-16 18:29:53 +00:00
|
|
|
|
(defvar fancy-splash-outer-buffer nil)
|
2000-09-29 19:12:14 +00:00
|
|
|
|
|
2000-09-19 13:28:27 +00:00
|
|
|
|
(defun fancy-splash-insert (&rest args)
|
|
|
|
|
"Insert text into the current buffer, with faces.
|
|
|
|
|
Arguments from ARGS should be either strings or pairs `:face FACE',
|
|
|
|
|
where FACE is a valid face specification, as it can be used with
|
|
|
|
|
`put-text-properties'."
|
|
|
|
|
(let ((current-face nil))
|
|
|
|
|
(while args
|
|
|
|
|
(if (eq (car args) :face)
|
|
|
|
|
(setq args (cdr args) current-face (car args))
|
2000-09-29 19:12:14 +00:00
|
|
|
|
(insert (propertize (car args)
|
|
|
|
|
'face current-face
|
|
|
|
|
'help-echo fancy-splash-help-echo)))
|
2000-09-19 13:28:27 +00:00
|
|
|
|
(setq args (cdr args)))))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(defun fancy-splash-head ()
|
|
|
|
|
"Insert the head part of the splash screen into the current buffer."
|
2001-04-03 13:51:41 +00:00
|
|
|
|
(let* ((image-file (cond ((stringp fancy-splash-image)
|
|
|
|
|
fancy-splash-image)
|
|
|
|
|
((and (display-color-p)
|
|
|
|
|
(image-type-available-p 'xpm))
|
|
|
|
|
(if (and (fboundp 'x-display-planes)
|
|
|
|
|
(= (funcall 'x-display-planes) 8))
|
|
|
|
|
"splash8.xpm"
|
|
|
|
|
"splash.xpm"))
|
|
|
|
|
(t "splash.pbm")))
|
|
|
|
|
(img (create-image image-file))
|
2000-09-19 13:28:27 +00:00
|
|
|
|
(image-width (and img (car (image-size img))))
|
|
|
|
|
(window-width (window-width (selected-window))))
|
|
|
|
|
(when img
|
|
|
|
|
(when (> window-width image-width)
|
2000-09-29 19:12:14 +00:00
|
|
|
|
;; Center the image in the window.
|
2000-09-19 13:28:27 +00:00
|
|
|
|
(let ((pos (/ (- window-width image-width) 2)))
|
|
|
|
|
(insert (propertize " " 'display `(space :align-to ,pos))))
|
2000-09-29 19:12:14 +00:00
|
|
|
|
|
2001-11-03 18:09:33 +00:00
|
|
|
|
;; Change the color of the XPM version of the splash image
|
|
|
|
|
;; so that it is visible with a dark frame background.
|
|
|
|
|
(when (and (memq 'xpm img)
|
|
|
|
|
(eq (frame-parameter nil 'background-mode) 'dark))
|
|
|
|
|
(setq img (append img '(:color-symbols (("#000000" . "gray30"))))))
|
|
|
|
|
|
2000-09-29 19:12:14 +00:00
|
|
|
|
;; Insert the image with a help-echo and a keymap.
|
|
|
|
|
(let ((map (make-sparse-keymap))
|
2000-10-12 13:39:32 +00:00
|
|
|
|
(help-echo "mouse-2: browse http://www.gnu.org/"))
|
2000-09-29 19:12:14 +00:00
|
|
|
|
(define-key map [mouse-2]
|
|
|
|
|
(lambda ()
|
|
|
|
|
(interactive)
|
2000-10-12 13:39:32 +00:00
|
|
|
|
(browse-url "http://www.gnu.org/")
|
2000-09-29 19:12:14 +00:00
|
|
|
|
(throw 'exit nil)))
|
|
|
|
|
(define-key map [down-mouse-2] 'ignore)
|
|
|
|
|
(define-key map [up-mouse-2] 'ignore)
|
|
|
|
|
(insert-image img (propertize "xxx" 'help-echo help-echo
|
|
|
|
|
'keymap map)))
|
2000-09-19 13:28:27 +00:00
|
|
|
|
(insert "\n"))))
|
2002-09-09 19:34:13 +00:00
|
|
|
|
(fancy-splash-insert
|
|
|
|
|
:face '(variable-pitch :foreground "red")
|
|
|
|
|
(if (eq system-type 'gnu/linux)
|
|
|
|
|
"GNU Emacs is one component of the GNU/Linux operating system."
|
2000-10-02 11:18:21 +00:00
|
|
|
|
"GNU Emacs is one component of the GNU operating system."))
|
2001-12-16 18:29:53 +00:00
|
|
|
|
(insert "\n")
|
|
|
|
|
(unless (equal (buffer-name fancy-splash-outer-buffer) "*scratch*")
|
|
|
|
|
(fancy-splash-insert :face 'variable-pitch
|
|
|
|
|
(substitute-command-keys
|
|
|
|
|
"Type \\[recenter] to begin editing your file.\n"))))
|
2000-09-19 13:28:27 +00:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(defun fancy-splash-tail ()
|
|
|
|
|
"Insert the tail part of the splash screen into the current buffer."
|
2000-09-21 09:07:11 +00:00
|
|
|
|
(let ((fg (if (eq (frame-parameter nil 'background-mode) 'dark)
|
|
|
|
|
"cyan" "darkblue")))
|
|
|
|
|
(fancy-splash-insert :face `(variable-pitch :foreground ,fg)
|
|
|
|
|
"\nThis is "
|
|
|
|
|
(emacs-version)
|
|
|
|
|
"\n"
|
|
|
|
|
:face '(variable-pitch :height 0.5)
|
2002-03-20 23:16:48 +00:00
|
|
|
|
"Copyright (C) 2002 Free Software Foundation, Inc.")
|
2001-11-03 16:15:43 +00:00
|
|
|
|
(and auto-save-list-file-prefix
|
|
|
|
|
;; Don't signal an error if the
|
|
|
|
|
;; directory for auto-save-list files
|
|
|
|
|
;; does not yet exist.
|
|
|
|
|
(file-directory-p (file-name-directory
|
|
|
|
|
auto-save-list-file-prefix))
|
|
|
|
|
(directory-files
|
|
|
|
|
(file-name-directory auto-save-list-file-prefix)
|
|
|
|
|
nil
|
|
|
|
|
(concat "\\`"
|
|
|
|
|
(regexp-quote (file-name-nondirectory
|
|
|
|
|
auto-save-list-file-prefix)))
|
|
|
|
|
t)
|
|
|
|
|
(fancy-splash-insert :face '(variable-pitch :foreground "red")
|
|
|
|
|
"\n\nIf an Emacs session crashed recently, "
|
|
|
|
|
"type M-x recover-session RET\nto recover"
|
|
|
|
|
" the files you were editing."))))
|
2000-09-19 13:28:27 +00:00
|
|
|
|
|
2000-09-29 19:12:14 +00:00
|
|
|
|
(defun fancy-splash-screens-1 (buffer)
|
|
|
|
|
"Timer function displaying a splash screen."
|
2000-11-06 11:46:54 +00:00
|
|
|
|
(when (> (float-time) fancy-splash-stop-time)
|
|
|
|
|
(throw 'stop-splashing nil))
|
2000-09-29 19:12:14 +00:00
|
|
|
|
(unless fancy-current-text
|
|
|
|
|
(setq fancy-current-text fancy-splash-text))
|
|
|
|
|
(let ((text (car fancy-current-text)))
|
|
|
|
|
(set-buffer buffer)
|
|
|
|
|
(erase-buffer)
|
2003-06-30 10:36:35 +00:00
|
|
|
|
(if pure-space-overflow
|
|
|
|
|
(insert "Warning Warning Pure space overflow Warning Warning\n"))
|
2000-09-29 19:12:14 +00:00
|
|
|
|
(fancy-splash-head)
|
|
|
|
|
(apply #'fancy-splash-insert text)
|
|
|
|
|
(fancy-splash-tail)
|
|
|
|
|
(unless (current-message)
|
|
|
|
|
(message fancy-splash-help-echo))
|
|
|
|
|
(set-buffer-modified-p nil)
|
2000-10-12 12:07:26 +00:00
|
|
|
|
(goto-char (point-min))
|
2000-09-29 19:12:14 +00:00
|
|
|
|
(force-mode-line-update)
|
|
|
|
|
(setq fancy-current-text (cdr fancy-current-text))))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(defun fancy-splash-default-action ()
|
2003-05-09 22:52:41 +00:00
|
|
|
|
"Stop displaying the splash screen buffer.
|
|
|
|
|
This is an internal function used to turn off the splash screen after
|
|
|
|
|
the user caused an input event by hitting a key or clicking with the
|
|
|
|
|
mouse."
|
2000-09-29 19:12:14 +00:00
|
|
|
|
(interactive)
|
|
|
|
|
(push last-command-event unread-command-events)
|
|
|
|
|
(throw 'exit nil))
|
|
|
|
|
|
|
|
|
|
|
2000-09-19 13:28:27 +00:00
|
|
|
|
(defun fancy-splash-screens ()
|
2000-09-29 19:12:14 +00:00
|
|
|
|
"Display fancy splash screens when Emacs starts."
|
2000-10-04 19:01:37 +00:00
|
|
|
|
(setq fancy-splash-help-echo (startup-echo-area-message))
|
2001-02-21 14:08:38 +00:00
|
|
|
|
(let ((old-hourglass display-hourglass)
|
2001-12-16 18:29:53 +00:00
|
|
|
|
(fancy-splash-outer-buffer (current-buffer))
|
|
|
|
|
splash-buffer
|
2001-08-29 09:31:50 +00:00
|
|
|
|
(old-minor-mode-map-alist minor-mode-map-alist)
|
2002-07-02 18:23:26 +00:00
|
|
|
|
(frame (fancy-splash-frame))
|
2000-10-04 19:01:37 +00:00
|
|
|
|
timer)
|
2002-07-02 18:23:26 +00:00
|
|
|
|
(save-selected-window
|
|
|
|
|
(select-frame frame)
|
|
|
|
|
(switch-to-buffer "GNU Emacs")
|
|
|
|
|
(setq tab-width 20)
|
|
|
|
|
(setq splash-buffer (current-buffer))
|
|
|
|
|
(catch 'stop-splashing
|
|
|
|
|
(unwind-protect
|
|
|
|
|
(let ((map (make-sparse-keymap)))
|
|
|
|
|
(use-local-map map)
|
|
|
|
|
(define-key map [switch-frame] 'ignore)
|
|
|
|
|
(define-key map [t] 'fancy-splash-default-action)
|
|
|
|
|
(define-key map [mouse-movement] 'ignore)
|
|
|
|
|
(define-key map [mode-line t] 'ignore)
|
|
|
|
|
(setq cursor-type nil
|
|
|
|
|
display-hourglass nil
|
|
|
|
|
minor-mode-map-alist nil
|
|
|
|
|
buffer-undo-list t
|
2003-02-04 12:29:42 +00:00
|
|
|
|
mode-line-format (propertize "---- %b %-"
|
2002-07-02 18:23:26 +00:00
|
|
|
|
'face '(:weight bold))
|
|
|
|
|
fancy-splash-stop-time (+ (float-time)
|
|
|
|
|
(max 60 fancy-splash-max-time))
|
|
|
|
|
timer (run-with-timer 0 fancy-splash-delay
|
|
|
|
|
#'fancy-splash-screens-1
|
|
|
|
|
splash-buffer))
|
|
|
|
|
(recursive-edit))
|
2000-11-06 11:46:54 +00:00
|
|
|
|
(cancel-timer timer)
|
2001-08-29 09:31:50 +00:00
|
|
|
|
(setq display-hourglass old-hourglass
|
|
|
|
|
minor-mode-map-alist old-minor-mode-map-alist)
|
2002-07-02 18:23:26 +00:00
|
|
|
|
(kill-buffer splash-buffer))))))
|
|
|
|
|
|
|
|
|
|
(defun fancy-splash-frame ()
|
|
|
|
|
"Return the frame to use for the fancy splash screen.
|
|
|
|
|
Returning non-nil does not mean we should necessarily
|
|
|
|
|
use the fancy splash screen, but if we do use it,
|
|
|
|
|
we put it on this frame."
|
|
|
|
|
(let (chosen-frame)
|
2002-08-04 16:18:54 +00:00
|
|
|
|
(dolist (frame (append (frame-list) (list (selected-frame))))
|
2002-07-02 18:23:26 +00:00
|
|
|
|
(if (and (frame-visible-p frame)
|
|
|
|
|
(not (window-minibuffer-p (frame-selected-window frame))))
|
|
|
|
|
(setq chosen-frame frame)))
|
|
|
|
|
chosen-frame))
|
2000-09-29 19:12:14 +00:00
|
|
|
|
|
2000-12-02 20:19:39 +00:00
|
|
|
|
(defun use-fancy-splash-screens-p ()
|
|
|
|
|
"Return t if fancy splash screens should be used."
|
|
|
|
|
(when (or (and (display-color-p)
|
|
|
|
|
(image-type-available-p 'xpm))
|
|
|
|
|
(image-type-available-p 'pbm))
|
2002-09-05 00:19:49 +00:00
|
|
|
|
(let ((frame (fancy-splash-frame)))
|
|
|
|
|
(when frame
|
|
|
|
|
(let* ((img (create-image (or fancy-splash-image
|
|
|
|
|
(if (and (display-color-p)
|
|
|
|
|
(image-type-available-p 'xpm))
|
|
|
|
|
"splash.xpm" "splash.pbm"))))
|
|
|
|
|
(image-height (and img (cdr (image-size img))))
|
|
|
|
|
(window-height (1- (window-height (frame-selected-window frame)))))
|
|
|
|
|
(> window-height (+ image-height 19)))))))
|
2000-12-02 20:19:39 +00:00
|
|
|
|
|
|
|
|
|
|
2002-01-29 13:54:39 +00:00
|
|
|
|
(defun normal-splash-screen ()
|
|
|
|
|
"Display splash screen when Emacs starts."
|
2002-08-24 14:26:06 +00:00
|
|
|
|
(let ((prev-buffer (current-buffer)))
|
|
|
|
|
(unwind-protect
|
|
|
|
|
(with-current-buffer (get-buffer-create "GNU Emacs")
|
|
|
|
|
(let ((tab-width 8)
|
2003-02-04 12:29:42 +00:00
|
|
|
|
(mode-line-format (propertize "---- %b %-"
|
2002-08-24 14:26:06 +00:00
|
|
|
|
'face '(:weight bold))))
|
|
|
|
|
|
2003-06-30 10:36:35 +00:00
|
|
|
|
(if pure-space-overflow
|
|
|
|
|
(insert "Warning Warning Pure space overflow Warning Warning\n"))
|
|
|
|
|
|
2002-08-24 14:26:06 +00:00
|
|
|
|
;; The convention for this piece of code is that
|
|
|
|
|
;; each piece of output starts with one or two newlines
|
|
|
|
|
;; and does not end with any newlines.
|
|
|
|
|
(insert "Welcome to GNU Emacs")
|
2002-09-09 19:34:13 +00:00
|
|
|
|
(insert
|
|
|
|
|
(if (eq system-type 'gnu/linux)
|
|
|
|
|
", one component of the GNU/Linux operating system.\n"
|
|
|
|
|
", a part of the GNU operating system.\n"))
|
2002-08-24 14:26:06 +00:00
|
|
|
|
|
|
|
|
|
(unless (equal (buffer-name prev-buffer) "*scratch*")
|
|
|
|
|
(insert (substitute-command-keys
|
|
|
|
|
"\nType \\[recenter] to begin editing your file.\n")))
|
|
|
|
|
|
|
|
|
|
(if (display-mouse-p)
|
|
|
|
|
;; The user can use the mouse to activate menus
|
|
|
|
|
;; so give help in terms of menu items.
|
|
|
|
|
(progn
|
|
|
|
|
(insert "\
|
2002-01-29 13:54:39 +00:00
|
|
|
|
You can do basic editing with the menu bar and scroll bar using the mouse.
|
|
|
|
|
|
|
|
|
|
Useful File menu items:
|
|
|
|
|
Exit Emacs (or type Control-x followed by Control-c)
|
|
|
|
|
Recover Session recover files you were editing before a crash
|
|
|
|
|
|
|
|
|
|
Important Help menu items:
|
|
|
|
|
Emacs Tutorial Learn-by-doing tutorial for using Emacs efficiently.
|
|
|
|
|
Emacs FAQ Frequently asked questions and answers
|
2002-07-12 23:21:48 +00:00
|
|
|
|
Read the Emacs Manual View the Emacs manual using Info
|
2002-01-29 13:54:39 +00:00
|
|
|
|
\(Non)Warranty GNU Emacs comes with ABSOLUTELY NO WARRANTY
|
|
|
|
|
Copying Conditions Conditions for redistributing and changing Emacs.
|
|
|
|
|
Getting New Versions How to obtain the latest version of Emacs.
|
2002-07-14 15:29:56 +00:00
|
|
|
|
More Manuals / Ordering Manuals How to order printed manuals from the FSF.
|
2002-01-29 13:54:39 +00:00
|
|
|
|
")
|
2002-08-24 14:26:06 +00:00
|
|
|
|
(insert "\n\n" (emacs-version)
|
|
|
|
|
"
|
2002-03-20 23:16:48 +00:00
|
|
|
|
Copyright (C) 2002 Free Software Foundation, Inc."))
|
2002-01-29 13:54:39 +00:00
|
|
|
|
|
2002-08-24 14:26:06 +00:00
|
|
|
|
;; No mouse menus, so give help using kbd commands.
|
|
|
|
|
|
|
|
|
|
;; If keys have their default meanings,
|
|
|
|
|
;; use precomputed string to save lots of time.
|
|
|
|
|
(if (and (eq (key-binding "\C-h") 'help-command)
|
|
|
|
|
(eq (key-binding "\C-xu") 'advertised-undo)
|
|
|
|
|
(eq (key-binding "\C-x\C-c") 'save-buffers-kill-emacs)
|
|
|
|
|
(eq (key-binding "\C-ht") 'help-with-tutorial)
|
|
|
|
|
(eq (key-binding "\C-hi") 'info)
|
|
|
|
|
(eq (key-binding "\C-hr") 'info-emacs-manual)
|
|
|
|
|
(eq (key-binding "\C-h\C-n") 'view-emacs-news))
|
|
|
|
|
(insert "
|
2002-01-29 13:54:39 +00:00
|
|
|
|
Get help C-h (Hold down CTRL and press h)
|
2002-07-12 23:21:48 +00:00
|
|
|
|
Emacs manual C-h r
|
|
|
|
|
Emacs tutorial C-h t Undo changes C-x u
|
|
|
|
|
Buy manuals C-h C-m Exit Emacs C-x C-c
|
|
|
|
|
Browse manuals C-h i")
|
|
|
|
|
|
2002-08-24 14:26:06 +00:00
|
|
|
|
(insert (substitute-command-keys
|
|
|
|
|
(format "\n
|
2002-01-29 13:54:39 +00:00
|
|
|
|
Get help %s
|
2002-07-12 23:21:48 +00:00
|
|
|
|
Emacs manual \\[info-emacs-manual]
|
2002-08-24 14:26:06 +00:00
|
|
|
|
Emacs tutorial \\[help-with-tutorial]\tUndo changes\t\\[advertised-undo]
|
|
|
|
|
Buy manuals \\[view-order-manuals]\tExit Emacs\t\\[save-buffers-kill-emacs]
|
2002-07-12 23:21:48 +00:00
|
|
|
|
Browse manuals \\[info]"
|
2002-08-24 14:26:06 +00:00
|
|
|
|
(let ((where (where-is-internal
|
|
|
|
|
'help-command nil t)))
|
|
|
|
|
(if where
|
|
|
|
|
(key-description where)
|
|
|
|
|
"M-x help"))))))
|
|
|
|
|
|
|
|
|
|
;; Say how to use the menu bar with the keyboard.
|
|
|
|
|
(if (and (eq (key-binding "\M-`") 'tmm-menubar)
|
|
|
|
|
(eq (key-binding [f10]) 'tmm-menubar))
|
|
|
|
|
(insert "
|
2002-01-29 13:54:39 +00:00
|
|
|
|
Activate menubar F10 or ESC ` or M-`")
|
2002-08-24 14:26:06 +00:00
|
|
|
|
(insert (substitute-command-keys "
|
2002-01-29 13:54:39 +00:00
|
|
|
|
Activate menubar \\[tmm-menubar]")))
|
|
|
|
|
|
2002-08-24 14:26:06 +00:00
|
|
|
|
;; Many users seem to have problems with these.
|
|
|
|
|
(insert "
|
2002-01-29 13:54:39 +00:00
|
|
|
|
\(`C-' means use the CTRL key. `M-' means use the Meta (or Alt) key.
|
|
|
|
|
If you have no Meta key, you may instead type ESC followed by the character.)")
|
|
|
|
|
|
2002-08-24 14:26:06 +00:00
|
|
|
|
(insert "\n\n" (emacs-version)
|
|
|
|
|
"
|
2002-03-20 23:16:48 +00:00
|
|
|
|
Copyright (C) 2002 Free Software Foundation, Inc.")
|
2002-01-29 13:54:39 +00:00
|
|
|
|
|
2002-08-24 14:26:06 +00:00
|
|
|
|
(if (and (eq (key-binding "\C-h\C-c") 'describe-copying)
|
|
|
|
|
(eq (key-binding "\C-h\C-d") 'describe-distribution)
|
|
|
|
|
(eq (key-binding "\C-h\C-w") 'describe-no-warranty))
|
2003-02-04 12:29:42 +00:00
|
|
|
|
(insert
|
2002-08-24 14:26:06 +00:00
|
|
|
|
"\n
|
2002-01-29 13:54:39 +00:00
|
|
|
|
GNU Emacs comes with ABSOLUTELY NO WARRANTY; type C-h C-w for full details.
|
|
|
|
|
Emacs is Free Software--Free as in Freedom--so you can redistribute copies
|
|
|
|
|
of Emacs and modify it; type C-h C-c to see the conditions.
|
|
|
|
|
Type C-h C-d for information on getting the latest version.")
|
2002-08-24 14:26:06 +00:00
|
|
|
|
(insert (substitute-command-keys
|
|
|
|
|
"\n
|
2002-01-29 13:54:39 +00:00
|
|
|
|
GNU Emacs comes with ABSOLUTELY NO WARRANTY; type \\[describe-no-warranty] for full details.
|
|
|
|
|
Emacs is Free Software--Free as in Freedom--so you can redistribute copies
|
|
|
|
|
of Emacs and modify it; type \\[describe-copying] to see the conditions.
|
|
|
|
|
Type \\[describe-distribution] for information on getting the latest version."))))
|
|
|
|
|
|
2002-08-24 14:26:06 +00:00
|
|
|
|
;; The rest of the startup screen is the same on all
|
|
|
|
|
;; kinds of terminals.
|
|
|
|
|
|
|
|
|
|
;; Give information on recovering, if there was a crash.
|
|
|
|
|
(and auto-save-list-file-prefix
|
|
|
|
|
;; Don't signal an error if the
|
|
|
|
|
;; directory for auto-save-list files
|
|
|
|
|
;; does not yet exist.
|
|
|
|
|
(file-directory-p (file-name-directory
|
|
|
|
|
auto-save-list-file-prefix))
|
|
|
|
|
(directory-files
|
|
|
|
|
(file-name-directory auto-save-list-file-prefix)
|
|
|
|
|
nil
|
|
|
|
|
(concat "\\`"
|
|
|
|
|
(regexp-quote (file-name-nondirectory
|
|
|
|
|
auto-save-list-file-prefix)))
|
|
|
|
|
t)
|
|
|
|
|
(insert "\n\nIf an Emacs session crashed recently, "
|
|
|
|
|
"type M-x recover-session RET\nto recover"
|
|
|
|
|
" the files you were editing."))
|
|
|
|
|
|
|
|
|
|
;; Display the input that we set up in the buffer.
|
|
|
|
|
(set-buffer-modified-p nil)
|
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
(save-window-excursion
|
|
|
|
|
(switch-to-buffer (current-buffer))
|
|
|
|
|
(sit-for 120))))
|
|
|
|
|
;; Unwind ... ensure splash buffer is killed
|
|
|
|
|
(kill-buffer "GNU Emacs"))))
|
|
|
|
|
|
2002-01-29 13:54:39 +00:00
|
|
|
|
|
2000-09-29 19:12:14 +00:00
|
|
|
|
(defun startup-echo-area-message ()
|
|
|
|
|
(if (eq (key-binding "\C-h\C-p") 'describe-project)
|
|
|
|
|
"For information about the GNU Project and its goals, type C-h C-p."
|
|
|
|
|
(substitute-command-keys
|
|
|
|
|
"For information about the GNU Project and its goals, type \
|
|
|
|
|
\\[describe-project].")))
|
2000-09-19 13:28:27 +00:00
|
|
|
|
|
|
|
|
|
|
2000-09-20 10:56:02 +00:00
|
|
|
|
(defun display-startup-echo-area-message ()
|
2001-01-26 11:38:23 +00:00
|
|
|
|
(let ((resize-mini-windows t))
|
|
|
|
|
(message (startup-echo-area-message))))
|
2000-09-29 19:12:14 +00:00
|
|
|
|
|
2000-09-20 10:56:02 +00:00
|
|
|
|
|
2002-01-29 13:54:39 +00:00
|
|
|
|
(defun display-splash-screen ()
|
|
|
|
|
"Display splash screen according to display.
|
|
|
|
|
Fancy splash screens are used on graphic displays,
|
|
|
|
|
normal otherwise."
|
|
|
|
|
(interactive)
|
|
|
|
|
(if (and (display-graphic-p)
|
|
|
|
|
(use-fancy-splash-screens-p))
|
|
|
|
|
(fancy-splash-screens)
|
|
|
|
|
(normal-splash-screen)))
|
|
|
|
|
|
|
|
|
|
|
1991-07-11 23:17:40 +00:00
|
|
|
|
(defun command-line-1 (command-line-args-left)
|
1993-11-22 06:35:37 +00:00
|
|
|
|
(or noninteractive (input-pending-p) init-file-had-error
|
2001-11-03 16:15:43 +00:00
|
|
|
|
;; t if the init file says to inhibit the echo area startup message.
|
|
|
|
|
(and inhibit-startup-echo-area-message
|
|
|
|
|
user-init-file
|
|
|
|
|
(or (and (get 'inhibit-startup-echo-area-message 'saved-value)
|
|
|
|
|
(equal inhibit-startup-echo-area-message
|
2003-02-26 10:59:58 +00:00
|
|
|
|
(if (equal init-file-user "")
|
2001-11-03 16:15:43 +00:00
|
|
|
|
(user-login-name)
|
|
|
|
|
init-file-user)))
|
|
|
|
|
;; Wasn't set with custom; see if .emacs has a setq.
|
|
|
|
|
(let ((buffer (get-buffer-create " *temp*")))
|
|
|
|
|
(prog1
|
|
|
|
|
(condition-case nil
|
|
|
|
|
(save-excursion
|
|
|
|
|
(set-buffer buffer)
|
|
|
|
|
(insert-file-contents user-init-file)
|
|
|
|
|
(re-search-forward
|
|
|
|
|
(concat
|
|
|
|
|
"([ \t\n]*setq[ \t\n]+"
|
|
|
|
|
"inhibit-startup-echo-area-message[ \t\n]+"
|
|
|
|
|
(regexp-quote
|
|
|
|
|
(prin1-to-string
|
2003-02-26 10:59:58 +00:00
|
|
|
|
(if (equal init-file-user "")
|
2001-11-03 16:15:43 +00:00
|
|
|
|
(user-login-name)
|
|
|
|
|
init-file-user)))
|
|
|
|
|
"[ \t\n]*)")
|
|
|
|
|
nil t))
|
|
|
|
|
(error nil))
|
|
|
|
|
(kill-buffer buffer)))))
|
|
|
|
|
(display-startup-echo-area-message))
|
|
|
|
|
|
|
|
|
|
;; Delay 2 seconds after an init file error message
|
|
|
|
|
;; was displayed, so user can read it.
|
2003-02-26 10:59:58 +00:00
|
|
|
|
(when init-file-had-error
|
|
|
|
|
(sit-for 2))
|
|
|
|
|
|
|
|
|
|
(when command-line-args-left
|
|
|
|
|
;; We have command args; process them.
|
|
|
|
|
(let ((dir command-line-default-directory)
|
|
|
|
|
(file-count 0)
|
|
|
|
|
first-file-buffer
|
|
|
|
|
tem
|
|
|
|
|
;; The directories listed in --directory/-L options will *appear*
|
|
|
|
|
;; at the front of `load-path' in the order they appear on the
|
|
|
|
|
;; command-line. We cannot do this by *placing* them at the front
|
|
|
|
|
;; in the order they appear, so we need this variable to hold them,
|
|
|
|
|
;; temporarily.
|
|
|
|
|
extra-load-path
|
|
|
|
|
just-files ;; t if this follows the magic -- option.
|
|
|
|
|
;; This includes our standard options' long versions
|
|
|
|
|
;; and long versions of what's on command-switch-alist.
|
|
|
|
|
(longopts
|
|
|
|
|
(append '(("--funcall") ("--load") ("--insert") ("--kill")
|
|
|
|
|
("--directory") ("--eval") ("--execute") ("--no-splash")
|
|
|
|
|
("--find-file") ("--visit") ("--file"))
|
|
|
|
|
(mapcar (lambda (elt)
|
|
|
|
|
(list (concat "-" (car elt))))
|
|
|
|
|
command-switch-alist)))
|
|
|
|
|
(line 0)
|
|
|
|
|
(column 0))
|
|
|
|
|
|
|
|
|
|
;; Add the long X options to longopts.
|
|
|
|
|
(dolist (tem command-line-x-option-alist)
|
|
|
|
|
(if (string-match "^--" (car tem))
|
|
|
|
|
(push (list (car tem)) longopts)))
|
|
|
|
|
|
|
|
|
|
;; Loop, processing options.
|
|
|
|
|
(while command-line-args-left
|
|
|
|
|
(let* ((argi (car command-line-args-left))
|
|
|
|
|
(orig-argi argi)
|
|
|
|
|
argval completion)
|
|
|
|
|
(setq command-line-args-left (cdr command-line-args-left))
|
|
|
|
|
|
|
|
|
|
;; Do preliminary decoding of the option.
|
|
|
|
|
(if just-files
|
|
|
|
|
;; After --, don't look for options; treat all args as files.
|
|
|
|
|
(setq argi "")
|
|
|
|
|
;; Convert long options to ordinary options
|
|
|
|
|
;; and separate out an attached option argument into argval.
|
|
|
|
|
(when (string-match "^\\(--[^=]*\\)=" argi)
|
|
|
|
|
(setq argval (substring argi (match-end 0))
|
|
|
|
|
argi (match-string 1 argi)))
|
|
|
|
|
(if (equal argi "--")
|
|
|
|
|
(setq completion nil)
|
|
|
|
|
(setq completion (try-completion argi longopts)))
|
|
|
|
|
(if (eq completion t)
|
|
|
|
|
(setq argi (substring argi 1))
|
|
|
|
|
(if (stringp completion)
|
|
|
|
|
(let ((elt (assoc completion longopts)))
|
|
|
|
|
(or elt
|
|
|
|
|
(error "Option `%s' is ambiguous" argi))
|
|
|
|
|
(setq argi (substring (car elt) 1)))
|
|
|
|
|
(setq argval nil
|
|
|
|
|
argi orig-argi))))
|
|
|
|
|
|
|
|
|
|
;; Execute the option.
|
|
|
|
|
(cond ((setq tem (assoc argi command-switch-alist))
|
|
|
|
|
(if argval
|
|
|
|
|
(let ((command-line-args-left
|
|
|
|
|
(cons argval command-line-args-left)))
|
|
|
|
|
(funcall (cdr tem) argi))
|
|
|
|
|
(funcall (cdr tem) argi)))
|
|
|
|
|
|
|
|
|
|
((equal argi "-no-splash")
|
|
|
|
|
(setq inhibit-startup-message t))
|
|
|
|
|
|
|
|
|
|
((member argi '("-f" ; what the manual claims
|
|
|
|
|
"-funcall"
|
|
|
|
|
"-e")) ; what the source used to say
|
|
|
|
|
(setq tem (intern (or argval (pop command-line-args-left))))
|
2003-03-18 09:41:39 +00:00
|
|
|
|
(if (commandp tem)
|
2003-02-26 10:59:58 +00:00
|
|
|
|
(command-execute tem)
|
|
|
|
|
(funcall tem)))
|
|
|
|
|
|
|
|
|
|
((member argi '("-eval" "-execute"))
|
|
|
|
|
(eval (read (or argval (pop command-line-args-left)))))
|
|
|
|
|
;; Set the default directory as specified in -L.
|
|
|
|
|
|
|
|
|
|
((member argi '("-L" "-directory"))
|
|
|
|
|
(setq tem (or argval (pop command-line-args-left)))
|
|
|
|
|
;; We will reverse `extra-load-path' and prepend it to
|
|
|
|
|
;; `load-path' after all the arguments have been processed.
|
|
|
|
|
(push
|
|
|
|
|
(expand-file-name (command-line-normalize-file-name tem))
|
|
|
|
|
extra-load-path))
|
|
|
|
|
|
|
|
|
|
((member argi '("-l" "-load"))
|
|
|
|
|
(let* ((file (command-line-normalize-file-name
|
|
|
|
|
(or argval (pop command-line-args-left))))
|
|
|
|
|
;; Take file from default dir if it exists there;
|
|
|
|
|
;; otherwise let `load' search for it.
|
|
|
|
|
(file-ex (expand-file-name file)))
|
|
|
|
|
(when (file-exists-p file-ex)
|
|
|
|
|
(setq file file-ex))
|
|
|
|
|
(load file nil t)))
|
|
|
|
|
|
|
|
|
|
((equal argi "-insert")
|
|
|
|
|
(setq tem (or argval (pop command-line-args-left)))
|
|
|
|
|
(or (stringp tem)
|
|
|
|
|
(error "File name omitted from `-insert' option"))
|
|
|
|
|
(insert-file-contents (command-line-normalize-file-name tem)))
|
|
|
|
|
|
|
|
|
|
((equal argi "-kill")
|
|
|
|
|
(kill-emacs t))
|
|
|
|
|
|
|
|
|
|
((string-match "^\\+[0-9]+\\'" argi)
|
|
|
|
|
(setq line (string-to-int argi)))
|
|
|
|
|
|
|
|
|
|
((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi)
|
|
|
|
|
(setq line (string-to-int (match-string 1 argi))
|
|
|
|
|
column (string-to-int (match-string 2 argi))))
|
|
|
|
|
|
|
|
|
|
((setq tem (assoc argi command-line-x-option-alist))
|
|
|
|
|
;; Ignore X-windows options and their args if not using X.
|
|
|
|
|
(setq command-line-args-left
|
|
|
|
|
(nthcdr (nth 1 tem) command-line-args-left)))
|
|
|
|
|
|
|
|
|
|
((member argi '("-find-file" "-file" "-visit"))
|
|
|
|
|
;; An explicit option to specify visiting a file.
|
|
|
|
|
(setq tem (or argval (pop command-line-args-left)))
|
|
|
|
|
(unless (stringp tem)
|
|
|
|
|
(error "File name omitted from `%s' option" argi))
|
|
|
|
|
(setq file-count (1+ file-count))
|
|
|
|
|
(let ((file (expand-file-name
|
|
|
|
|
(command-line-normalize-file-name tem) dir)))
|
|
|
|
|
(if (= file-count 1)
|
|
|
|
|
(setq first-file-buffer (find-file file))
|
|
|
|
|
(find-file-other-window file)))
|
|
|
|
|
(or (zerop line)
|
|
|
|
|
(goto-line line))
|
|
|
|
|
(setq line 0)
|
|
|
|
|
(unless (< column 1)
|
|
|
|
|
(move-to-column (1- column)))
|
|
|
|
|
(setq column 0))
|
|
|
|
|
|
|
|
|
|
((equal argi "--")
|
|
|
|
|
(setq just-files t))
|
|
|
|
|
(t
|
|
|
|
|
;; We have almost exhausted our options. See if the
|
|
|
|
|
;; user has made any other command-line options available
|
|
|
|
|
(let ((hooks command-line-functions) ;; lrs 7/31/89
|
|
|
|
|
(did-hook nil))
|
|
|
|
|
(while (and hooks
|
|
|
|
|
(not (setq did-hook (funcall (car hooks)))))
|
|
|
|
|
(setq hooks (cdr hooks)))
|
|
|
|
|
(if (not did-hook)
|
|
|
|
|
;; Presume that the argument is a file name.
|
|
|
|
|
(progn
|
|
|
|
|
(if (string-match "\\`-" argi)
|
|
|
|
|
(error "Unknown option `%s'" argi))
|
|
|
|
|
(setq file-count (1+ file-count))
|
|
|
|
|
(let ((file
|
|
|
|
|
(expand-file-name
|
|
|
|
|
(command-line-normalize-file-name orig-argi)
|
|
|
|
|
dir)))
|
|
|
|
|
(if (= file-count 1)
|
|
|
|
|
(setq first-file-buffer (find-file file))
|
|
|
|
|
(find-file-other-window file)))
|
|
|
|
|
(or (zerop line)
|
|
|
|
|
(goto-line line))
|
|
|
|
|
(setq line 0)
|
|
|
|
|
(unless (< column 1)
|
|
|
|
|
(move-to-column (1- column)))
|
|
|
|
|
(setq column 0))))))))
|
|
|
|
|
|
|
|
|
|
;; See --directory/-L option above.
|
|
|
|
|
(when extra-load-path
|
|
|
|
|
(setq load-path (append (nreverse extra-load-path) load-path)))
|
|
|
|
|
|
|
|
|
|
;; If 3 or more files visited, and not all visible,
|
|
|
|
|
;; show user what they all are. But leave the last one current.
|
|
|
|
|
(and (> file-count 2)
|
|
|
|
|
(not noninteractive)
|
|
|
|
|
(not inhibit-startup-buffer-menu)
|
|
|
|
|
(or (get-buffer-window first-file-buffer)
|
|
|
|
|
(list-buffers)))))
|
2001-12-16 18:29:53 +00:00
|
|
|
|
|
|
|
|
|
;; Maybe display a startup screen.
|
|
|
|
|
(when (and (not inhibit-startup-message) (not noninteractive)
|
|
|
|
|
;; Don't display startup screen if init file
|
|
|
|
|
;; has started some sort of server.
|
|
|
|
|
(not (and (fboundp 'process-list)
|
|
|
|
|
(process-list))))
|
|
|
|
|
;; Display a startup screen, after some preparations.
|
|
|
|
|
|
|
|
|
|
;; If there are no switches to process, we might as well
|
|
|
|
|
;; run this hook now, and there may be some need to do it
|
|
|
|
|
;; before doing any output.
|
2003-02-23 15:16:29 +00:00
|
|
|
|
(run-hooks 'emacs-startup-hook)
|
2001-12-16 18:29:53 +00:00
|
|
|
|
(and term-setup-hook
|
|
|
|
|
(run-hooks 'term-setup-hook))
|
2003-02-23 15:16:29 +00:00
|
|
|
|
(setq inhibit-startup-hooks t)
|
2001-12-16 18:29:53 +00:00
|
|
|
|
|
|
|
|
|
;; It's important to notice the user settings before we
|
|
|
|
|
;; display the startup message; otherwise, the settings
|
|
|
|
|
;; won't take effect until the user gives the first
|
|
|
|
|
;; keystroke, and that's distracting.
|
|
|
|
|
(when (fboundp 'frame-notice-user-settings)
|
|
|
|
|
(frame-notice-user-settings))
|
|
|
|
|
|
|
|
|
|
;; If there are no switches to process, we might as well
|
|
|
|
|
;; run this hook now, and there may be some need to do it
|
|
|
|
|
;; before doing any output.
|
|
|
|
|
(when window-setup-hook
|
|
|
|
|
(run-hooks 'window-setup-hook)
|
|
|
|
|
;; Don't let the hook be run twice.
|
|
|
|
|
(setq window-setup-hook nil))
|
|
|
|
|
|
|
|
|
|
;; Do this now to avoid an annoying delay if the user
|
|
|
|
|
;; clicks the menu bar during the sit-for.
|
|
|
|
|
(when (display-popup-menus-p)
|
|
|
|
|
(precompute-menubar-bindings))
|
2003-05-28 11:24:51 +00:00
|
|
|
|
(with-no-warnings
|
|
|
|
|
(setq menubar-bindings-done t))
|
2001-11-03 16:15:43 +00:00
|
|
|
|
|
2001-12-16 18:29:53 +00:00
|
|
|
|
;; If *scratch* is selected and it is empty, insert an
|
|
|
|
|
;; initial message saying not to create a file there.
|
|
|
|
|
(when (and initial-scratch-message
|
2003-02-26 10:59:58 +00:00
|
|
|
|
(equal (buffer-name) "*scratch*")
|
2001-11-03 16:15:43 +00:00
|
|
|
|
(= 0 (buffer-size)))
|
2001-12-16 18:29:53 +00:00
|
|
|
|
(insert initial-scratch-message)
|
|
|
|
|
(set-buffer-modified-p nil))
|
2001-11-03 16:15:43 +00:00
|
|
|
|
|
2001-12-16 18:29:53 +00:00
|
|
|
|
;; If user typed input during all that work,
|
|
|
|
|
;; abort the startup screen. Otherwise, display it now.
|
2002-01-29 13:54:39 +00:00
|
|
|
|
(unless (input-pending-p)
|
|
|
|
|
(display-splash-screen))))
|
1992-05-30 21:11:25 +00:00
|
|
|
|
|
2000-09-20 10:56:02 +00:00
|
|
|
|
|
1996-01-27 00:14:59 +00:00
|
|
|
|
(defun command-line-normalize-file-name (file)
|
|
|
|
|
"Collapse multiple slashes to one, to handle non-Emacs file names."
|
1996-03-01 20:13:01 +00:00
|
|
|
|
(save-match-data
|
|
|
|
|
;; Use arg 1 so that we don't collapse // at the start of the file name.
|
|
|
|
|
;; That is significant on some systems.
|
|
|
|
|
;; However, /// at the beginning is supposed to mean just /, not //.
|
|
|
|
|
(if (string-match "^///+" file)
|
|
|
|
|
(setq file (replace-match "/" t t file)))
|
|
|
|
|
(while (string-match "//+" file 1)
|
|
|
|
|
(setq file (replace-match "/" t t file)))
|
|
|
|
|
file))
|
1996-01-27 00:14:59 +00:00
|
|
|
|
|
2003-09-01 15:45:59 +00:00
|
|
|
|
;;; arch-tag: 7e294698-244d-4758-984b-4047f887a5db
|
1992-05-30 21:11:25 +00:00
|
|
|
|
;;; startup.el ends here
|