Mercurial > emacs
view lisp/startup.el @ 322:820dc6c9612a
Initial revision
author | Jim Blandy <jimb@redhat.com> |
---|---|
date | Thu, 11 Jul 1991 23:17:40 +0000 |
parents | |
children | ecc1a00366a3 |
line wrap: on
line source
;; Process Emacs shell arguments ;; Copyright (C) 1985, 1986 Free Software Foundation, Inc. ;; 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) ;; 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. ; These are processed only at the beginning of the argument list. ; -batch execute noninteractively (messages go to stdout, ; variable noninteractive set to t) ; This option must be the first in the arglist. ; Processed by `main' in emacs.c -- never seen by lisp ; -t file Specify to use file rather than stdin/stdout ; as the terminal. ; This option must be the first in the arglist. ; Processed by `main' in emacs.c -- never seen by lisp ; -nw Inhibit the use of any window-system-specific display ; code; use the current virtual terminal. ; This option must be the first in the arglist. ; Processed by `main' in emacs.c -- never seen by lisp ; -q load no init file ; -no-init-file same ; -u user load user's init file ; -user user same ; -debug-init Don't catch errors in init file; let debugger run. ; These are processed in the order encountered. ; -f function execute function ; -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 (setq top-level '(normal-top-level)) (defvar command-line-processed nil "t once command line has been processed") (defconst inhibit-startup-message nil "*Non-nil inhibits the initial startup messages. This is for use in your personal init file, once you are familiar with the contents of the startup message.") (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'.") (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 argi (the current argument) and command-line-args-left (the remaining arguments). The function should return non-nil only if it recognizes and processes argi. If it does so, it may consume successive arguments by altering command-line-args-left to remove them.") (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, so as to override the definitions made by the terminal-specific file. Emacs never sets this variable itself.") (defvar keyboard-type nil "The brand of keyboard you are using. This variable is used to define 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 "Function used to initialize window system display, after command line args. Users should not set this variable; use term-setup-hook instead.") (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. The value may be the null string or a string containing a user's name. If the value is a null string, it means that the init file was taken from the user that originally logged in. In all cases, `(concat \"~\" init-file-user \"/\")' evaluates to the directory name of the directory where the `.emacs' file was looked for.") (defvar init-file-debug nil) (defun normal-top-level () (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)))) (unwind-protect (command-line) (run-hooks 'emacs-startup-hook) (and term-setup-hook (run-hooks 'term-setup-hook)) (and window-setup-hook (run-hooks 'window-setup-hook))))) (defun command-line () ;; See if we should import version-control from the envionment variable. (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)))) ;; 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))))) (let ((args (cdr command-line-args)) (done nil)) ;; 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 "")) (while (and (not done) args) (let ((argi (car args))) (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")) (setq args (cdr args) init-file-user (car args) args (cdr args))) ((string-equal argi "-debug-init") (setq init-file-debug t args (cdr args))) (t (setq done t)))))) ;; Load that user's init file, or the default one, or none. (let ((debug-on-error init-file-debug) ;; This function actually reads the init files. (inner (function (lambda () (if init-file-user (progn (load (if (eq system-type 'vax-vms) "sys$login:.emacs" (concat "~" init-file-user "/.emacs")) 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))))))))) (if init-file-debug ;; Do this without a condition-case if the user wants to debug. (funcall inner) (condition-case error (funcall inner) (error (message "Error in init file: %s%s%s" (get (car error) 'error-message) (if (cdr error) ": ") (mapconcat 'prin1-to-string (cdr error) ", ")))))) ;; 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))))) ;; Handle all the other options. (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) (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) (and window-setup-hook (run-hooks 'window-setup-hook)) (setq window-setup-hook nil) (unwind-protect (progn (insert (emacs-version) " Copyright (C) 1989 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) (eq (key-binding "\C-xu") 'advertised-undo) (eq (key-binding "\C-x\C-c") 'save-buffers-kill-emacs) (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) (eq (key-binding "\C-ht") 'help-with-tutorial)) (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. 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 "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. 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))))) (let ((dir default-directory) (file-count 0) first-file-buffer (line 0)) (while command-line-args-left (let ((argi (car command-line-args-left)) tem) (setq command-line-args-left (cdr command-line-args-left)) (cond ((setq tem (assoc argi command-switch-alist)) (funcall (cdr tem) argi)) ;; These args were already processed; ignore them. ((or (string-equal argi "-q") (string-equal argi "-no-init-file") (string-equal argi "-debug-init") (string-equal argi "-batch"))) ((or (string-equal argi "-u") (string-equal argi "-user")) (setq command-line-args-left (cdr command-line-args-left))) ((or (string-equal argi "-f") ;what the manual claims (string-equal argi "-funcall") (string-equal argi "-e")) ; what the source used to say (setq tem (intern (car command-line-args-left))) (setq command-line-args-left (cdr command-line-args-left)) (funcall tem)) ((or (string-equal argi "-l") (string-equal argi "-load")) (let ((file (car command-line-args-left))) ;; 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))) (load file nil t)) (setq command-line-args-left (cdr command-line-args-left))) ((or (string-equal argi "-i") (string-equal argi "-insert")) (insert-file-contents (car command-line-args-left)) (setq command-line-args-left (cdr command-line-args-left))) ((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) (progn (other-window) (buffer-menu)))))))