-;; Process Emacs shell arguments
-;; Copyright (C) 1985, 1986 Free Software Foundation, Inc.
+;;; startup.el --- process Emacs shell arguments
+
+;; Copyright (C) 1985, 1986, 1992 Free Software Foundation, Inc.
+
+;; Maintainer: FSF
+;; Keywords: internal
;; 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
-;; the Free Software Foundation; either version 1, or (at your option)
+;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+;;; Commentary:
; These are processed only at the beginning of the argument list.
; -batch execute noninteractively (messages go to stdout,
; -funcall function same
; -l file load file
; -load file same
-; -i file insert file into buffer
; -insert file same
; file visit file
; -kill kill (exit) emacs
+;;; Code:
+
(setq top-level '(normal-top-level))
(defvar command-line-processed nil "t once command line has been processed")
processes argi. If it does so, it may consume successive arguments by
altering command-line-args-left to remove them.")
-(defvar pre-init-hook nil
+(defvar before-init-hook nil
"Functions to call after handling urgent options but before loading init file.
-The screen system uses this to open screens to display messages while
+The frame system uses this to open frames to display messages while
Emacs loads the user's initialization file.")
+(defvar after-init-hook nil
+ "Functions to call after loading the init file (`~/.emacs').
+The call is not protected by a condition-case, so you can set `debug-on-error'
+in `.emacs', and put all the actual code on `after-init-hook'.")
+
(defvar term-setup-hook nil
- "Function to be called after loading terminal-specific lisp code.
-It is called with no arguments. This variable exists for users to set,
+ "Functions to be called after loading terminal-specific lisp code.
+See `run-hooks'. This variable exists for users to set,
so as to override the definitions made by the terminal-specific file.
Emacs never sets this variable itself.")
(if command-line-processed
(message "Back to top level.")
(setq command-line-processed t)
- ;; In presence of symlinks, switch to cleaner form of default directory.
- (if (and (not (eq system-type 'vax-vms))
- (getenv "PWD"))
- (setq default-directory (file-name-as-directory (getenv "PWD"))))
- (let ((tail directory-abbrev-alist))
- (while tail
- (if (string-match (car (car tail)) default-directory)
- (setq default-directory
- (concat (cdr (car tail))
- (substring default-directory (match-end 0)))))
- (setq tail (cdr tail))))
+ (if (not (eq system-type 'vax-vms))
+ (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)))))))
+ (setq default-directory (abbreviate-file-name default-directory))
(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)))))
(defun command-line ()
- ;; See if we should import version-control from the envionment variable.
+ ;; See if we should import version-control from the environment variable.
(let ((vc (getenv "VERSION_CONTROL")))
(cond ((eq vc nil)) ;don't do anything if not set
((or (string= vc "t")
(string= vc "simple"))
(setq version-control 'never))))
- ;; Choose a good default value for split-window-keep-point.
- (setq split-window-keep-point (> baud-rate 2400))
+ ;;! 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))
;; Read window system's init file if using a window system.
(if (and window-system (not noninteractive))
- (condition-case data
- (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)
- (error
- (let ((standard-output 'external-debugging-output))
- (princ "Error initializing window system: ")
- (prin1 data)
- (terpri)
- (kill-emacs)))))
+ (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))
(let ((done nil)
(args (cdr command-line-args)))
;; Re-attach the program name to the front of the arg list.
(setcdr command-line-args args))
- (run-hooks 'pre-init-hook)
+ ;; Under X Windows, this creates the X frame and deletes the terminal frame.
+ (if (fboundp 'frame-initialize)
+ (frame-initialize))
+ (if (fboundp 'face-initialize)
+ (face-initialize))
+
+ (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.
+ (load "site-start" t t)
;; Load that user's init file, or the default one, or none.
(let ((debug-on-error init-file-debug)
(if (cdr error) ": ")
(mapconcat 'prin1-to-string (cdr error) ", "))))))
+ (run-hooks 'after-init-hook)
+
;; If *scratch* exists and init file didn't change its mode, initialize it.
(if (get-buffer "*scratch*")
(save-excursion
(run-hooks 'term-setup-hook))
;; Don't let the hook be run twice.
(setq term-setup-hook nil)
+
+ ;; 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))
+
(and window-setup-hook
(run-hooks 'window-setup-hook))
(setq window-setup-hook nil)
(progn
(insert (emacs-version)
"
-Copyright (C) 1991 Free Software Foundation, Inc.\n\n")
+Copyright (C) 1993 Free Software Foundation, Inc.\n\n")
;; If keys have their default meanings,
;; use precomputed string to save lots of time.
(if (and (eq (key-binding "\C-h") 'help-command)
"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.
+Type C-h i to enter Info, which you can use to read GNU documentation.
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 \\[help-command] 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.
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.
(setq file (expand-file-name file)))
(load file nil t))
(setq command-line-args-left (cdr command-line-args-left)))
- ((or (string-equal argi "-i")
- (string-equal argi "-insert"))
+ ((string-equal argi "-insert")
+ (or (stringp (car command-line-args-left))
+ (error "filename omitted from `-insert' option"))
(insert-file-contents (car command-line-args-left))
(setq command-line-args-left (cdr command-line-args-left)))
((string-equal argi "-kill")
;; show user what they all are.
(if (> file-count 2)
(or (get-buffer-window first-file-buffer)
- (progn (other-window)
+ (progn (other-window 1)
(buffer-menu)))))))
+
+;;; startup.el ends here