Mercurial > hg > xemacs-beta

comparison lisp/startup.el @ 284:558f606b08ae r21-0b40

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b40
author cvs
date Mon, 13 Aug 2007 10:34:13 +0200
parents c42ec1d1cded
children e11d67e05968
comparison
equal deleted inserted replaced
283:fa3d41851a08 284:558f606b08ae
74 "Functions to call after handling urgent options but before init files. 74 "Functions to call after handling urgent options but before init files.
75 The frame system uses this to open frames to display messages while 75 The frame system uses this to open frames to display messages while
76 XEmacs loads the user's initialization file.") 76 XEmacs loads the user's initialization file.")
77 77
78 (defvar after-init-hook nil 78 (defvar after-init-hook nil
79 "*Functions to call after loading the init file (`~/.xemacs/init.el'). 79 "*Functions to call after loading the init file (`.emacs').
80 The call is not protected by a condition-case, so you can set `debug-on-error' 80 The call is not protected by a condition-case, so you can set `debug-on-error'
81 in `init.el', and put all the actual code on `after-init-hook'.") 81 in `init.el', and put all the actual code on `after-init-hook'.")
82 82
83 (defvar term-setup-hook nil 83 (defvar term-setup-hook nil
84 "*Functions to be called after loading terminal-specific Lisp code. 84 "*Functions to be called after loading terminal-specific Lisp code.
102 102
103 (defvar emacs-roots nil 103 (defvar emacs-roots nil
104 "List of plausible roots of the XEmacs hierarchy.") 104 "List of plausible roots of the XEmacs hierarchy.")
105 105
106 (defvar init-file-user nil 106 (defvar init-file-user nil
107 "Identity of user whose `~/.xemacs/init.el' file is or was read. 107 "Identity of user whose `.emacs' file is or was read.
108 The value is nil if no init file is being used; otherwise, it may be either 108 The value is nil if no init file is being used; otherwise, it may be either
109 the null string, meaning that the init file was taken from the user that 109 the null string, meaning that the init file was taken from the user that
110 originally logged in, or it may be a string containing a user's name. 110 originally logged in, or it may be a string containing a user's name.
111 111
112 In either of the latter cases, `(concat \"~\" init-file-user \"/\")' 112 In either of the latter cases, `(concat \"~\" init-file-user \"/\")'
118 118
119 ;; #### called `site-run-file' in FSFmacs 119 ;; #### called `site-run-file' in FSFmacs
120 120
121 (defvar site-start-file (purecopy "site-start") 121 (defvar site-start-file (purecopy "site-start")
122 "File containing site-wide run-time initializations. 122 "File containing site-wide run-time initializations.
123 This file is loaded at run-time before `~/.xemacs/init.el'. It 123 This file is loaded at run-time before `.emacs'. It
124 contains inits that need to be in place for the entire site, but 124 contains inits that need to be in place for the entire site, but
125 which, due to their higher incidence of change, don't make sense to 125 which, due to their higher incidence of change, don't make sense to
126 load into XEmacs' dumped image. Thus, the run-time load order is: 126 load into XEmacs' dumped image. Thus, the run-time load order is:
127 127
128 1. file described in this variable, if non-nil; 128 1. file described in this variable, if non-nil;
129 2. `~/.xemacs/init.el'; 129 2. `.emacs';
130 3. `/path/to/xemacs/lisp/default.el'. 130 3. `/path/to/xemacs/lisp/default.el'.
131 131
132 Don't use the `site-start.el' file for things some users may not like. 132 Don't use the `site-start.el' file for things some users may not like.
133 Put them in `default.el' instead, so that users can more easily 133 Put them in `default.el' instead, so that users can more easily
134 override them. Users can prevent loading `default.el' with the `-q' 134 override them. Users can prevent loading `default.el' with the `-q'
147 (defvar user-mail-address nil 147 (defvar user-mail-address nil
148 "*Full mailing address of this user. 148 "*Full mailing address of this user.
149 This is initialized based on `mail-host-address', 149 This is initialized based on `mail-host-address',
150 after your init file is read, in case it sets `mail-host-address'.") 150 after your init file is read, in case it sets `mail-host-address'.")
151 151
152 (defvar auto-save-list-file-prefix "~/.xemacs/.saves-" 152 (defvar auto-save-list-file-prefix "~/.saves-"
153 "Prefix for generating auto-save-list-file-name. 153 "Prefix for generating auto-save-list-file-name.
154 Emacs's pid and the system name will be appended to 154 Emacs's pid and the system name will be appended to
155 this prefix to create a unique file name.") 155 this prefix to create a unique file name.")
156 156
157 (defvar init-file-debug nil) 157 (defvar init-file-debug nil)