/[emacs]/emacs/lisp/startup.el
ViewVC logotype

Diff of /emacs/lisp/startup.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.321.2.3 by miles, Mon Jun 28 07:28:46 2004 UTC revision 1.321.2.4 by miles, Fri Aug 27 07:00:26 2004 UTC
# Line 220  Setting `init-file-user' does not preven Line 220  Setting `init-file-user' does not preven
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    
# Line 293  or `CVS', and any subdirectory that cont Line 293  or `CVS', and any subdirectory that cont
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.
# Line 343  or `CVS', and any subdirectory that cont Line 343  or `CVS', and any subdirectory that cont
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))
# Line 357  or `CVS', and any subdirectory that cont Line 359  or `CVS', and any subdirectory that cont
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

Legend:
Removed from v.1.321.2.3  
changed lines
  Added in v.1.321.2.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26