Mercurial > emacs
comparison lisp/startup.el @ 59169:5ba3e8b1f040
(site-run-file): Don't allow setting it with Custom.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Tue, 28 Dec 2004 15:30:39 +0000 |
parents | ab26a3de6d9c |
children | 5068fdb7f223 025da3ba778e 95879cc1ed20 |
comparison
equal
deleted
inserted
replaced
59168:0345f2b10f1d | 59169:5ba3e8b1f040 |
---|---|
227 Don't use the `site-start.el' file for things some users may not like. | 227 Don't use the `site-start.el' file for things some users may not like. |
228 Put them in `default.el' instead, so that users can more easily | 228 Put them in `default.el' instead, so that users can more easily |
229 override them. Users can prevent loading `default.el' with the `-q' | 229 override them. Users can prevent loading `default.el' with the `-q' |
230 option or by setting `inhibit-default-init' in their own init files, | 230 option or by setting `inhibit-default-init' in their own init files, |
231 but inhibiting `site-start.el' requires `--no-site-file', which | 231 but inhibiting `site-start.el' requires `--no-site-file', which |
232 is less convenient." | 232 is less convenient. |
233 | |
234 This variable is defined for customization so as to make | |
235 it visible in the relevant context. However, actually customizing it | |
236 is not allowed, since it would not work anyway. The only way to set | |
237 this variable usefully is to set it during while building and dumping Emacs." | |
233 :type '(choice (const :tag "none" nil) string) | 238 :type '(choice (const :tag "none" nil) string) |
234 :group 'initialization) | 239 :group 'initialization |
240 :initialize 'custom-initialize-default | |
241 :set '(lambda (variable value) | |
242 (error "Customizing `site-run-file' does not work"))) | |
235 | 243 |
236 (defcustom mail-host-address nil | 244 (defcustom mail-host-address nil |
237 "*Name of this machine, for purposes of naming users." | 245 "*Name of this machine, for purposes of naming users." |
238 :type '(choice (const nil) string) | 246 :type '(choice (const nil) string) |
239 :group 'mail) | 247 :group 'mail) |