220 |
"File containing site-wide run-time initializations. |
"File containing site-wide run-time initializations. |
221 |
This file is loaded at run-time before `~/.emacs'. It contains inits |
This file is loaded at run-time before `~/.emacs'. It contains inits |
222 |
that need to be in place for the entire site, but which, due to their |
that need to be in place for the entire site, but which, due to their |
223 |
higher incidence of change, don't make sense to load into emacs' |
higher incidence of change, don't make sense to load into Emacs's |
224 |
dumped image. Thus, the run-time load order is: 1. file described in |
dumped image. Thus, the run-time load order is: 1. file described in |
225 |
this variable, if non-nil; 2. `~/.emacs'; 3. `default.el'. |
this variable, if non-nil; 2. `~/.emacs'; 3. `default.el'. |
226 |
|
|
293 |
(let* ((this-dir (car dirs)) |
(let* ((this-dir (car dirs)) |
294 |
(contents (directory-files this-dir)) |
(contents (directory-files this-dir)) |
295 |
(default-directory this-dir) |
(default-directory this-dir) |
296 |
(canonicalized (and (eq system-type 'windows-nt) |
(canonicalized (if (fboundp 'untranslated-canonical-name) |
297 |
(untranslated-canonical-name this-dir)))) |
(untranslated-canonical-name this-dir)))) |
298 |
;; The Windows version doesn't report meaningful inode |
;; The Windows version doesn't report meaningful inode |
299 |
;; numbers, so use the canonicalized absolute file name of the |
;; numbers, so use the canonicalized absolute file name of the |
300 |
;; directory instead. |
;; directory instead. |
343 |
;; Give *Messages* the same default-directory as *scratch*, |
;; Give *Messages* the same default-directory as *scratch*, |
344 |
;; just to keep things predictable. |
;; just to keep things predictable. |
345 |
(let ((dir default-directory)) |
(let ((dir default-directory)) |
346 |
(save-excursion |
(with-current-buffer "*Messages*" |
|
(set-buffer (get-buffer "*Messages*")) |
|
347 |
(setq default-directory dir))) |
(setq default-directory dir))) |
348 |
;; `user-full-name' is now known; reset its standard-value here. |
;; `user-full-name' is now known; reset its standard-value here. |
349 |
(put 'user-full-name 'standard-value |
(put 'user-full-name 'standard-value |
350 |
(list (default-value 'user-full-name))) |
(list (default-value 'user-full-name))) |
351 |
|
;; Subprocesses of Emacs do not have direct access to the terminal, |
352 |
|
;; so unless told otherwise they should only assume a dumb terminal. |
353 |
|
(setenv "TERM" "dumb") |
354 |
;; For root, preserve owner and group when editing files. |
;; For root, preserve owner and group when editing files. |
355 |
(if (equal (user-uid) 0) |
(if (equal (user-uid) 0) |
356 |
(setq backup-by-copying-when-mismatch t)) |
(setq backup-by-copying-when-mismatch t)) |
359 |
;; of that dir into load-path, |
;; of that dir into load-path, |
360 |
;; Look for a leim-list.el file too. Loading it will register |
;; Look for a leim-list.el file too. Loading it will register |
361 |
;; available input methods. |
;; available input methods. |
362 |
(let ((tail load-path) |
(dolist (dir load-path) |
363 |
new) |
(let ((default-directory dir)) |
364 |
(while tail |
(load (expand-file-name "subdirs.el") t t t)) |
365 |
(push (car tail) new) |
(let ((default-directory dir)) |
366 |
(condition-case nil |
(load (expand-file-name "leim-list.el") t t t))) |
367 |
(let ((default-directory (car tail))) |
(unless (eq system-type 'vax-vms) |
368 |
(load (expand-file-name "subdirs.el" (car tail)) t t t))) |
;; If the PWD environment variable isn't accurate, delete it. |
369 |
(condition-case nil |
(let ((pwd (getenv "PWD"))) |
370 |
(let ((default-directory (car tail))) |
(and (stringp pwd) |
371 |
(load (expand-file-name "leim-list.el" (car tail)) t t t))) |
;; Use FOO/., so that if FOO is a symlink, file-attributes |
372 |
(setq tail (cdr tail)))) |
;; describes the directory linked to, not FOO itself. |
373 |
(if (not (eq system-type 'vax-vms)) |
(or (equal (file-attributes |
374 |
(progn |
(concat (file-name-as-directory pwd) ".")) |
375 |
;; If the PWD environment variable isn't accurate, delete it. |
(file-attributes |
376 |
(let ((pwd (getenv "PWD"))) |
(concat (file-name-as-directory default-directory) |
377 |
(and (stringp pwd) |
"."))) |
378 |
;; Use FOO/., so that if FOO is a symlink, file-attributes |
(setq process-environment |
379 |
;; describes the directory linked to, not FOO itself. |
(delete (concat "PWD=" pwd) |
380 |
(or (equal (file-attributes |
process-environment)))))) |
|
(concat (file-name-as-directory pwd) ".")) |
|
|
(file-attributes |
|
|
(concat (file-name-as-directory default-directory) |
|
|
"."))) |
|
|
(setq process-environment |
|
|
(delete (concat "PWD=" pwd) |
|
|
process-environment))))))) |
|
381 |
(setq default-directory (abbreviate-file-name default-directory)) |
(setq default-directory (abbreviate-file-name default-directory)) |
382 |
(let ((menubar-bindings-done nil)) |
(let ((menubar-bindings-done nil)) |
383 |
(unwind-protect |
(unwind-protect |