Mercurial > hg > xemacs-beta

comparison lisp/loadup.el @ 388:aabb7f5b1c81 r21-2-9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-9
author cvs
date Mon, 13 Aug 2007 11:09:42 +0200
parents 8626e4521993
children 74fd4e045ea6
comparison
equal deleted inserted replaced
387:f892a9d0bb8d 388:aabb7f5b1c81
48 ;; This is awfully damn early to be getting an error, right? 48 ;; This is awfully damn early to be getting an error, right?
49 (call-with-condition-handler 'really-early-error-handler 49 (call-with-condition-handler 'really-early-error-handler
50 #'(lambda () 50 #'(lambda ()
51 ;; message not defined yet ... 51 ;; message not defined yet ...
52 (setq load-path (split-path (getenv "EMACSBOOTSTRAPLOADPATH"))) 52 (setq load-path (split-path (getenv "EMACSBOOTSTRAPLOADPATH")))
53 (setq module-load-path (split-path (getenv "EMACSBOOTSTRAPMODULEPATH")))
53 54
54 (external-debugging-output (format "\nUsing load-path %s" load-path)) 55 (external-debugging-output (format "\nUsing load-path %s" load-path))
56 (external-debugging-output (format "\nUsing module-load-path %s" module-load-path))
55 57
56 ;; We don't want to have any undo records in the dumped XEmacs. 58 ;; We don't want to have any undo records in the dumped XEmacs.
57 (buffer-disable-undo (get-buffer "*scratch*")) 59 (buffer-disable-undo (get-buffer "*scratch*"))
58 60
59 ;; Load our first bootstrap support 61 ;; Load our first bootstrap support