1992-05-30 21:11:25 +00:00
|
|
|
;;; startup.el --- process Emacs shell arguments
|
|
|
|
|
1994-02-12 20:01:43 +00:00
|
|
|
;; Copyright (C) 1985, 1986, 1992, 1994 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
|
|
|
|
;; along with GNU Emacs; see the file COPYING. If not, write to
|
|
|
|
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
|
|
|
|
|
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
|
|
|
|
;; -------------------------
|
|
|
|
;; -d DISPNAME Use DISPNAME as the name of the X-windows
|
|
|
|
;; -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
|
|
|
|
;; --no-windows terminal instead.)
|
|
|
|
;; 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,
|
|
|
|
;; --no-init-file "site-init.el" is still loaded.
|
|
|
|
;; -------------------------
|
|
|
|
;; -no-site-file Do not load "site-init.el". (This is the ONLY
|
|
|
|
;; --no-site-file way to prevent loading that file.)
|
|
|
|
;; -------------------------
|
|
|
|
;; -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
|
|
|
|
;; -itype ICONTYPE iconified under X-windows.
|
|
|
|
;; --icon-type ICONTYPE This option is passed on to term/x-win.el
|
|
|
|
;;
|
|
|
|
;; -iconic Start Emacs iconified under X-windows.
|
|
|
|
;; --iconic This option is passed on to term/x-win.el
|
|
|
|
;; -------------------------
|
|
|
|
;; Various X-windows options for colors/fonts/geometry/title etc.
|
|
|
|
;; These options are passed on to term/x-win.el which see. Certain
|
|
|
|
;; of these are also found in term/pc-win.el
|
|
|
|
;; -------------------------
|
|
|
|
;; FILE Visit FILE.
|
|
|
|
;;
|
|
|
|
;; -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.)
|
|
|
|
;;
|
|
|
|
;; -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))
|
|
|
|
|
|
|
|
(defvar command-line-processed nil "t once command line has been processed")
|
|
|
|
|
|
|
|
(defconst 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
|
|
|
|
with the contents of the startup message.")
|
|
|
|
|
1994-02-12 20:01:43 +00:00
|
|
|
(defconst inhibit-startup-echo-area-message nil
|
|
|
|
"*Non-nil inhibits the initial startup echo area message.
|
|
|
|
Inhibition takes effect only if your `.emacs' file contains
|
1994-06-14 00:21:40 +00:00
|
|
|
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
|
|
|
|
the startup message unless he personally acts to inhibit it.")
|
|
|
|
|
1991-07-11 23:17:40 +00:00
|
|
|
(defconst inhibit-default-init nil
|
|
|
|
"*Non-nil inhibits loading the `default' library.")
|
|
|
|
|
|
|
|
(defconst command-switch-alist nil
|
|
|
|
"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.")
|
|
|
|
|
1992-06-04 19:58:44 +00:00
|
|
|
(defvar before-init-hook nil
|
1994-03-30 16:04:08 +00:00
|
|
|
"Functions to call after handling urgent options but before init files.
|
1992-07-15 03:24:58 +00:00
|
|
|
The frame system uses this to open frames to display messages while
|
1991-08-01 18:50:36 +00:00
|
|
|
Emacs loads the user's initialization file.")
|
|
|
|
|
1992-06-04 19:58:44 +00:00
|
|
|
(defvar after-init-hook nil
|
1992-11-07 04:05:32 +00:00
|
|
|
"Functions to call after loading the init file (`~/.emacs').
|
1992-06-04 19:58:44 +00:00
|
|
|
The call is not protected by a condition-case, so you can set `debug-on-error'
|
1992-11-07 04:05:32 +00:00
|
|
|
in `.emacs', and put all the actual code on `after-init-hook'.")
|
1992-06-04 19:58:44 +00:00
|
|
|
|
1991-07-11 23:17:40 +00:00
|
|
|
(defvar term-setup-hook nil
|
1994-03-30 16:04:08 +00:00
|
|
|
"Functions to be called after loading terminal-specific Lisp code.
|
1992-06-04 19:58:44 +00:00
|
|
|
See `run-hooks'. This variable 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.")
|
|
|
|
|
|
|
|
(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
|
|
|
|
fashion analogous to the environment value TERM.")
|
|
|
|
|
|
|
|
(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
|
|
|
|
|
|
|
(defconst initial-major-mode 'lisp-interaction-mode
|
|
|
|
"Major mode command symbol to use for the initial *scratch* buffer.")
|
|
|
|
|
|
|
|
(defvar init-file-user nil
|
|
|
|
"Identity of user whose `.emacs' file is or was read.
|
1994-04-20 06:13:43 +00:00
|
|
|
The value is nil if no init file is being used; otherwise, it may be either
|
|
|
|
the null string, meaning that the init file was taken from the user that
|
|
|
|
originally logged in, or it may be a string containing a user's name.
|
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
|
|
|
|
`site-start.el'. The only way to do that is to use `--no-site-file'.")
|
1991-07-11 23:17:40 +00:00
|
|
|
|
1993-08-13 06:01:05 +00:00
|
|
|
(defvar site-run-file "site-start"
|
|
|
|
"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
|
|
|
|
is less convenient.")
|
1993-08-13 06:01:05 +00:00
|
|
|
|
1994-07-05 18:35:37 +00:00
|
|
|
(defconst iso-8859-1-locale-regexp "8859[-_]?1"
|
|
|
|
"Regexp that specifies when to enable the ISO 8859-1 character set.
|
|
|
|
We do that if this regexp matches the locale name
|
|
|
|
specified by the LC_ALL, LC_CTYPE and LANG environment variables.")
|
|
|
|
|
1994-09-22 04:56:49 +00:00
|
|
|
(defvar mail-host-address nil
|
|
|
|
"*Name of this machine, for purposes of naming users.")
|
|
|
|
|
1994-06-25 00:34:11 +00:00
|
|
|
(defvar user-mail-address nil
|
1994-09-22 04:56:49 +00:00
|
|
|
"*Full mailing address of this user.")
|
1994-06-25 00:34:11 +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)
|
|
|
|
|
1994-10-11 08:22:38 +00:00
|
|
|
;; This function is called from the subdirs.el file.
|
|
|
|
(defun normal-top-level-add-to-load-path (dirs)
|
|
|
|
(let ((tail (member default-directory load-path)))
|
|
|
|
(setcdr tail (append (mapcar 'expand-file-name dirs) (cdr tail)))))
|
|
|
|
|
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)))
|
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,
|
|
|
|
(let ((tail load-path)
|
|
|
|
new)
|
|
|
|
(while tail
|
|
|
|
(setq new (cons (car tail) new))
|
|
|
|
(let ((default-directory (car tail)))
|
|
|
|
(load (expand-file-name "subdirs.el" (car tail)) t t t))
|
|
|
|
(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-09-22 04:56:49 +00:00
|
|
|
(setq user-mail-address (concat (user-login-name) "@"
|
|
|
|
(or mail-host-address
|
|
|
|
(system-name))))
|
1995-04-30 19:50:00 +00:00
|
|
|
;; Specify the file for recording all the auto save files of this session.
|
|
|
|
;; This is used by multiple-recover.
|
|
|
|
(setq auto-save-list-file-name
|
|
|
|
(expand-file-name
|
|
|
|
(format "~/.saves-%d-%s"
|
|
|
|
(emacs-pid)
|
|
|
|
(or mail-host-address (system-name)))))
|
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))
|
|
|
|
(run-hooks 'emacs-startup-hook)
|
|
|
|
(and term-setup-hook
|
|
|
|
(run-hooks 'term-setup-hook))
|
|
|
|
;; Modify the initial frame based on what .emacs puts into
|
|
|
|
;; ...-frame-alist.
|
|
|
|
(if (fboundp 'frame-notice-user-settings)
|
|
|
|
(frame-notice-user-settings))
|
|
|
|
;; 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
|
|
|
|
(precompute-menubar-bindings))))))
|
|
|
|
|
|
|
|
;; Precompute the keyboard equivalents in the menu bar items.
|
|
|
|
(defun precompute-menubar-bindings ()
|
1994-05-16 04:49:23 +00:00
|
|
|
(if (eq window-system 'x)
|
1994-05-07 00:21:24 +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))))
|
|
|
|
(x-popup-menu nil (cdr (cdr (car submap)))))
|
|
|
|
(setq submap (cdr submap))))))
|
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)
|
|
|
|
|
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
|
|
|
|
((or (string= vc "t")
|
|
|
|
(string= vc "numbered"))
|
|
|
|
(setq version-control t))
|
|
|
|
((or (string= vc "nil")
|
|
|
|
(string= vc "existing"))
|
|
|
|
(setq version-control nil))
|
|
|
|
((or (string= vc "never")
|
|
|
|
(string= vc "simple"))
|
|
|
|
(setq version-control 'never))))
|
|
|
|
|
1994-07-05 18:35:37 +00:00
|
|
|
(if (let ((ctype
|
|
|
|
;; Use the first of these three envvars that has a nonempty value.
|
|
|
|
(or (let ((string (getenv "LC_ALL")))
|
|
|
|
(and (not (equal string "")) string))
|
|
|
|
(let ((string (getenv "LC_CTYPE")))
|
|
|
|
(and (not (equal string "")) string))
|
|
|
|
(let ((string (getenv "LANG")))
|
|
|
|
(and (not (equal string "")) string)))))
|
|
|
|
(and ctype
|
|
|
|
(string-match iso-8859-1-locale-regexp ctype)))
|
1994-07-03 19:06:03 +00:00
|
|
|
(progn
|
1994-10-05 20:35:40 +00:00
|
|
|
(require 'disp-table)
|
1994-07-03 19:06:03 +00:00
|
|
|
(standard-display-european t)
|
|
|
|
(require 'iso-syntax)))
|
|
|
|
|
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
|
|
|
|
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"
|
|
|
|
(nth 1 error)
|
|
|
|
(mapconcat '(lambda (obj) (prin1-to-string obj t))
|
|
|
|
(cdr (cdr error)) ", "))
|
|
|
|
(format "%s: %s"
|
|
|
|
(get (car error) 'error-message)
|
|
|
|
(mapconcat '(lambda (obj) (prin1-to-string obj t))
|
|
|
|
(cdr error) ", "))))
|
|
|
|
'external-debugging-output)
|
|
|
|
(setq window-system nil)
|
1994-09-15 02:35:45 +00:00
|
|
|
(kill-emacs)))
|
1991-07-11 23:17:40 +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.
|
|
|
|
(and init-file-user (string= init-file-user (user-real-login-name))
|
|
|
|
(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)
|
1994-09-28 22:15:38 +00:00
|
|
|
(let ((longopts '(("--no-init-file") ("--no-site-file") ("--user")
|
1995-04-29 16:49:41 +00:00
|
|
|
("--debug-init") ("--iconic") ("--icon-type")))
|
1994-09-28 22:15:38 +00:00
|
|
|
(argi (car args))
|
|
|
|
(argval nil))
|
|
|
|
(if (string-match "=" argi)
|
1994-09-28 22:38:04 +00:00
|
|
|
(setq argval (substring argi (match-end 0))
|
|
|
|
argi (substring argi 0 (match-beginning 0))))
|
1994-09-28 22:15:38 +00:00
|
|
|
(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))
|
1994-11-19 20:42:26 +00:00
|
|
|
(setq argi (substring (car elt) 1)))
|
|
|
|
(setq argval nil))))
|
1991-07-11 23:17:40 +00:00
|
|
|
(cond
|
|
|
|
((or (string-equal argi "-q")
|
|
|
|
(string-equal argi "-no-init-file"))
|
|
|
|
(setq init-file-user nil
|
|
|
|
args (cdr args)))
|
|
|
|
((or (string-equal argi "-u")
|
|
|
|
(string-equal argi "-user"))
|
1994-09-28 22:15:38 +00:00
|
|
|
(or argval
|
|
|
|
(setq argval (car args)
|
|
|
|
args (cdr args)))
|
|
|
|
(setq init-file-user argval
|
|
|
|
argval nil
|
1991-07-11 23:17:40 +00:00
|
|
|
args (cdr args)))
|
1993-08-13 06:01:05 +00:00
|
|
|
((string-equal argi "-no-site-file")
|
|
|
|
(setq site-run-file nil
|
|
|
|
args (cdr args)))
|
1991-07-11 23:17:40 +00:00
|
|
|
((string-equal argi "-debug-init")
|
|
|
|
(setq init-file-debug t
|
|
|
|
args (cdr args)))
|
1995-04-29 16:49:41 +00:00
|
|
|
((string-equal argi "-iconic")
|
|
|
|
(setq initial-frame-alist
|
|
|
|
(cons '(visibility . icon) initial-frame-alist))
|
|
|
|
(setq args (cdr args)))
|
|
|
|
((or (string-equal argi "-icon-type")
|
|
|
|
(string-equal argi "-i")
|
|
|
|
(string-equal argi "-itype"))
|
|
|
|
(setq default-frame-alist
|
|
|
|
(cons '(icon-type . t) default-frame-alist))
|
|
|
|
(setq args (cdr args)))
|
1994-09-28 22:15:38 +00:00
|
|
|
(t (setq done t)))
|
|
|
|
;; 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.
|
|
|
|
(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.
|
1993-05-18 22:39:51 +00:00
|
|
|
(if (fboundp 'face-initialize)
|
|
|
|
(face-initialize))
|
1994-04-14 09:31:42 +00:00
|
|
|
(if (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.
|
|
|
|
(if (and (eq window-system 'x)
|
|
|
|
(> (cdr (assq 'menu-bar-lines (frame-parameters))) 0))
|
|
|
|
(menu-bar-mode t))
|
1993-05-13 03:14:39 +00:00
|
|
|
|
1992-06-04 19:58:44 +00:00
|
|
|
(run-hooks 'before-init-hook)
|
1991-08-01 18:50:36 +00:00
|
|
|
|
1992-07-27 17:41:57 +00:00
|
|
|
;; 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.
|
1993-08-13 06:01:05 +00:00
|
|
|
(if site-run-file
|
|
|
|
(load site-run-file t t))
|
1992-07-27 17:41:57 +00:00
|
|
|
|
1993-09-07 08:36:48 +00:00
|
|
|
;; Sites should not disable this. Only individuals should disable
|
|
|
|
;; the startup message.
|
|
|
|
(setq inhibit-startup-message nil)
|
|
|
|
|
1991-07-11 23:17:40 +00:00
|
|
|
;; Load that user's init file, or the default one, or none.
|
1993-12-31 03:45:38 +00:00
|
|
|
(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)))
|
|
|
|
(let ((debug-on-error debug-on-error-initial)
|
|
|
|
;; This function actually reads the init files.
|
|
|
|
(inner
|
|
|
|
(function
|
|
|
|
(lambda ()
|
|
|
|
(if init-file-user
|
1994-01-06 04:28:36 +00:00
|
|
|
(progn
|
|
|
|
(setq user-init-file
|
|
|
|
(cond
|
|
|
|
((eq system-type 'ms-dos)
|
|
|
|
(concat "~" init-file-user "/_emacs"))
|
1994-11-01 05:49:25 +00:00
|
|
|
((eq system-type 'windows-nt)
|
|
|
|
"~/_emacs")
|
1994-01-06 04:28:36 +00:00
|
|
|
((eq system-type 'vax-vms)
|
|
|
|
"sys$login:.emacs")
|
|
|
|
(t
|
|
|
|
(concat "~" init-file-user "/.emacs"))))
|
|
|
|
(load user-init-file t t t)
|
|
|
|
(or 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)))))))))
|
1993-12-31 03:45:38 +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 (message "Error in init file: %s%s%s"
|
|
|
|
(get (car error) 'error-message)
|
1994-04-16 03:43:09 +00:00
|
|
|
(if (cdr error) ": " "")
|
1993-12-31 03:45:38 +00:00
|
|
|
(mapconcat 'prin1-to-string (cdr error) ", "))
|
|
|
|
(setq init-file-had-error t))))
|
1994-04-16 03:43:09 +00:00
|
|
|
;; If we can tell that the init file altered debug-on-error,
|
1993-12-31 03:45:38 +00:00
|
|
|
;; 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)))
|
1991-08-01 18:50:36 +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*")
|
|
|
|
(save-excursion
|
|
|
|
(set-buffer "*scratch*")
|
|
|
|
(if (eq major-mode 'fundamental-mode)
|
|
|
|
(funcall initial-major-mode))))
|
|
|
|
;; Load library for our terminal type.
|
|
|
|
;; User init file can set term-file-prefix to nil to prevent this.
|
|
|
|
(and term-file-prefix (not noninteractive) (not window-system)
|
|
|
|
(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
|
|
|
|
(if (setq hyphend (string-match "[-_][^-_]+$" term))
|
|
|
|
(setq term (substring term 0 hyphend))
|
|
|
|
(setq term nil)))))
|
|
|
|
|
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.
|
|
|
|
(if noninteractive (kill-emacs t)))
|
|
|
|
|
|
|
|
(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
|
1994-02-12 20:01:43 +00:00
|
|
|
(and inhibit-startup-echo-area-message
|
|
|
|
(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
|
1994-02-12 20:14:29 +00:00
|
|
|
"([ \t\n]*setq[ \t\n]+"
|
|
|
|
"inhibit-startup-echo-area-message[ \t\n]+"
|
|
|
|
(regexp-quote
|
|
|
|
(prin1-to-string
|
|
|
|
(if (string= init-file-user "")
|
|
|
|
(user-login-name)
|
|
|
|
init-file-user)))
|
|
|
|
"[ \t\n]*)")
|
1994-02-12 20:01:43 +00:00
|
|
|
nil t))
|
|
|
|
(error nil))
|
|
|
|
(kill-buffer buffer))))
|
|
|
|
(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]."))))
|
1991-07-11 23:17:40 +00:00
|
|
|
(if (null command-line-args-left)
|
|
|
|
(cond ((and (not inhibit-startup-message) (not noninteractive)
|
|
|
|
;; Don't clobber a non-scratch buffer if init file
|
|
|
|
;; has selected it.
|
|
|
|
(string= (buffer-name) "*scratch*")
|
|
|
|
(not (input-pending-p)))
|
|
|
|
;; 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.
|
|
|
|
(and term-setup-hook
|
|
|
|
(run-hooks 'term-setup-hook))
|
|
|
|
;; Don't let the hook be run twice.
|
|
|
|
(setq term-setup-hook nil)
|
1993-05-18 22:39:51 +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.
|
|
|
|
(if (fboundp 'frame-notice-user-settings)
|
|
|
|
(frame-notice-user-settings))
|
|
|
|
|
1991-07-11 23:17:40 +00:00
|
|
|
(and window-setup-hook
|
|
|
|
(run-hooks 'window-setup-hook))
|
|
|
|
(setq window-setup-hook nil)
|
1994-05-23 07:47:27 +00:00
|
|
|
;; Do this now to avoid an annoying delay if the user
|
|
|
|
;; clicks the menu bar during the sit-for.
|
|
|
|
(precompute-menubar-bindings)
|
|
|
|
(setq menubar-bindings-done t)
|
1991-07-11 23:17:40 +00:00
|
|
|
(unwind-protect
|
|
|
|
(progn
|
|
|
|
(insert (emacs-version)
|
|
|
|
"
|
1994-02-12 20:01:43 +00:00
|
|
|
Copyright (C) 1994 Free Software Foundation, Inc.\n\n")
|
1991-07-11 23:17:40 +00:00
|
|
|
;; 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)
|
1994-12-27 04:01:02 +00:00
|
|
|
(eq (key-binding "\C-ht") 'help-with-tutorial)
|
|
|
|
(eq (key-binding "\C-hi") 'info))
|
1991-07-11 23:17:40 +00:00
|
|
|
(insert
|
|
|
|
"Type C-h for help; C-x u to undo changes. (`C-' means use CTRL key.)
|
|
|
|
To kill the Emacs job, type C-x C-c.
|
|
|
|
Type C-h t for a tutorial on using Emacs.
|
1994-12-27 04:01:02 +00:00
|
|
|
Type C-h i to enter Info, which you can use to read GNU documentation.")
|
|
|
|
(insert (substitute-command-keys
|
|
|
|
(format "Type %s for help; \\[advertised-undo] to undo changes. (`C-' means use CTRL key.)
|
|
|
|
To kill the Emacs job, type \\[save-buffers-kill-emacs].
|
|
|
|
Type \\[help-with-tutorial] for a tutorial on using Emacs.
|
|
|
|
Type \\[info] to enter Info, which you can use to read GNU documentation."
|
|
|
|
(let ((where (where-is-internal
|
|
|
|
'help-command nil t)))
|
|
|
|
(if where
|
|
|
|
(key-description where)
|
|
|
|
"M-x help"))))))
|
|
|
|
|
|
|
|
;; Windows and MSDOS (currently) do not count as
|
|
|
|
;; window systems, but do have mouse support.
|
1994-12-29 19:02:16 +00:00
|
|
|
(if (or (memq system-type '(msdos windowsnt))
|
1994-12-27 04:01:02 +00:00
|
|
|
window-system)
|
|
|
|
(insert "
|
|
|
|
C-mouse-3 (third mouse button, with Control) gets a mode-specific menu."))
|
|
|
|
(insert "\n")
|
|
|
|
(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))
|
|
|
|
(insert
|
|
|
|
"
|
1991-07-11 23:17:40 +00:00
|
|
|
GNU Emacs comes with ABSOLUTELY NO WARRANTY; type C-h C-w for full details.
|
|
|
|
You may give out copies of Emacs; type C-h C-c to see the conditions.
|
|
|
|
Type C-h C-d for information on getting the latest version.")
|
|
|
|
(insert (substitute-command-keys
|
1994-12-27 04:01:02 +00:00
|
|
|
"
|
1991-07-11 23:17:40 +00:00
|
|
|
GNU Emacs comes with ABSOLUTELY NO WARRANTY; type \\[describe-no-warranty] for full details.
|
|
|
|
You may give out copies of Emacs; type \\[describe-copying] to see the conditions.
|
|
|
|
Type \\[describe-distribution] for information on getting the latest version.")))
|
|
|
|
(set-buffer-modified-p nil)
|
|
|
|
(sit-for 120))
|
|
|
|
(save-excursion
|
|
|
|
;; In case the Emacs server has already selected
|
|
|
|
;; another buffer, erase the one our message is in.
|
|
|
|
(set-buffer (get-buffer "*scratch*"))
|
|
|
|
(erase-buffer)
|
|
|
|
(set-buffer-modified-p nil)))))
|
1995-01-03 07:05:41 +00:00
|
|
|
;; Delay 2 seconds after the init file error message
|
|
|
|
;; was displayed, so user can read it.
|
|
|
|
(if init-file-had-error
|
|
|
|
(sit-for 2))
|
1994-04-22 18:28:22 +00:00
|
|
|
(let ((dir command-line-default-directory)
|
1991-07-11 23:17:40 +00:00
|
|
|
(file-count 0)
|
|
|
|
first-file-buffer
|
|
|
|
(line 0))
|
|
|
|
(while command-line-args-left
|
1994-11-19 20:42:26 +00:00
|
|
|
(let* ((argi (car command-line-args-left))
|
|
|
|
(orig-argi argi)
|
|
|
|
;; This includes our standard options' long versions
|
|
|
|
;; and long versions of what's on command-switch-alist.
|
|
|
|
(longopts
|
1995-04-30 07:45:45 +00:00
|
|
|
(append '(("--funcall") ("--load") ("--insert") ("--kill")
|
|
|
|
("--directory"))
|
1994-11-19 20:42:26 +00:00
|
|
|
(mapcar '(lambda (elt)
|
|
|
|
(list (concat "-" (car elt))))
|
|
|
|
command-switch-alist)))
|
1995-04-30 07:45:45 +00:00
|
|
|
tem argval completion
|
|
|
|
;; List of directories specified in -L/--directory,
|
|
|
|
;; in reverse of the order specified.
|
|
|
|
extra-load-path
|
|
|
|
(initial-load-path load-path))
|
1991-07-11 23:17:40 +00:00
|
|
|
(setq command-line-args-left (cdr command-line-args-left))
|
1994-11-19 20:42:26 +00:00
|
|
|
|
|
|
|
;; Convert long options to ordinary options
|
|
|
|
;; and separate out an attached option argument into argval.
|
|
|
|
(if (string-match "^--[^=]*=" argi)
|
|
|
|
(setq argval (substring argi (match-end 0))
|
|
|
|
argi (substring argi 0 (1- (match-end 0)))))
|
|
|
|
(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.
|
1991-07-11 23:17:40 +00:00
|
|
|
(cond ((setq tem (assoc argi command-switch-alist))
|
1994-11-19 20:42:26 +00:00
|
|
|
(if argval
|
|
|
|
(let ((command-line-args-left
|
|
|
|
(cons argval command-line-args-left)))
|
|
|
|
(funcall (cdr tem) argi))
|
|
|
|
(funcall (cdr tem) argi)))
|
1991-07-11 23:17:40 +00:00
|
|
|
((or (string-equal argi "-f") ;what the manual claims
|
|
|
|
(string-equal argi "-funcall")
|
|
|
|
(string-equal argi "-e")) ; what the source used to say
|
1994-11-19 20:42:26 +00:00
|
|
|
(if argval
|
|
|
|
(setq tem (intern argval))
|
|
|
|
(setq tem (intern (car command-line-args-left)))
|
|
|
|
(setq command-line-args-left (cdr command-line-args-left)))
|
1995-01-17 02:33:49 +00:00
|
|
|
(if (arrayp (symbol-function tem))
|
|
|
|
(command-execute tem)
|
|
|
|
(funcall tem)))
|
1995-04-30 07:45:45 +00:00
|
|
|
;; Set the default directory as specified in -L.
|
|
|
|
((or (string-equal argi "-L")
|
|
|
|
(string-equal argi "-directory"))
|
|
|
|
(if argval
|
|
|
|
(setq tem argval)
|
|
|
|
(setq tem (car command-line-args-left)
|
|
|
|
command-line-args-left (cdr command-line-args-left)))
|
|
|
|
(setq extra-load-path
|
|
|
|
(cons (expand-file-name tem) extra-load-path))
|
|
|
|
(setq load-path (append (nreverse extra-load-path)
|
|
|
|
initial-load-path)))
|
1991-07-11 23:17:40 +00:00
|
|
|
((or (string-equal argi "-l")
|
|
|
|
(string-equal argi "-load"))
|
1994-11-19 20:42:26 +00:00
|
|
|
(if argval
|
|
|
|
(setq tem argval)
|
|
|
|
(setq tem (car command-line-args-left)
|
|
|
|
command-line-args-left (cdr command-line-args-left)))
|
|
|
|
(let ((file tem))
|
1991-07-11 23:17:40 +00:00
|
|
|
;; Take file from default dir if it exists there;
|
|
|
|
;; otherwise let `load' search for it.
|
|
|
|
(if (file-exists-p (expand-file-name file))
|
|
|
|
(setq file (expand-file-name file)))
|
1994-11-19 20:42:26 +00:00
|
|
|
(load file nil t)))
|
1993-05-25 13:22:21 +00:00
|
|
|
((string-equal argi "-insert")
|
1992-07-07 18:36:02 +00:00
|
|
|
(or (stringp (car command-line-args-left))
|
1994-11-19 20:42:26 +00:00
|
|
|
(error "File name omitted from `-insert' option"))
|
|
|
|
(if argval
|
|
|
|
(setq tem argval)
|
|
|
|
(setq tem (car command-line-args-left)
|
|
|
|
command-line-args-left (cdr command-line-args-left)))
|
|
|
|
(insert-file-contents tem))
|
1991-07-11 23:17:40 +00:00
|
|
|
((string-equal argi "-kill")
|
|
|
|
(kill-emacs t))
|
|
|
|
((string-match "^\\+[0-9]+\\'" argi)
|
|
|
|
(setq line (string-to-int argi)))
|
|
|
|
(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)
|
|
|
|
;; Ok, presume that the argument is a file name
|
|
|
|
(progn
|
|
|
|
(setq file-count (1+ file-count))
|
|
|
|
(cond ((= file-count 1)
|
|
|
|
(setq first-file-buffer
|
|
|
|
(find-file (expand-file-name argi dir))))
|
|
|
|
(t
|
|
|
|
(find-file-other-window (expand-file-name argi dir))))
|
|
|
|
(or (zerop line)
|
|
|
|
(goto-line line))
|
|
|
|
(setq line 0))))))))
|
|
|
|
;; If 3 or more files visited, and not all visible,
|
|
|
|
;; show user what they all are.
|
|
|
|
(if (> file-count 2)
|
|
|
|
(or (get-buffer-window first-file-buffer)
|
1993-05-29 22:34:54 +00:00
|
|
|
(progn (other-window 1)
|
1993-11-15 09:22:23 +00:00
|
|
|
(buffer-menu)))))))
|
1992-05-30 21:11:25 +00:00
|
|
|
|
|
|
|
;;; startup.el ends here
|