Mercurial > hg > xemacs-beta

comparison lisp/loadup.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 7df0dd720c89
children c6de09ad3017
comparison
equal deleted inserted replaced
283:fa3d41851a08 284:558f606b08ae
45 45
46 ;; This is awfully damn early to be getting an error, right? 46 ;; This is awfully damn early to be getting an error, right?
47 (call-with-condition-handler 'really-early-error-handler 47 (call-with-condition-handler 'really-early-error-handler
48 #'(lambda () 48 #'(lambda ()
49 ;; message not defined yet ... 49 ;; message not defined yet ...
50 (setq load-path (decode-path-internal (getenv "EMACSBOOTSTRAPLOADPATH"))) 50 (setq load-path (split-path (getenv "EMACSBOOTSTRAPLOADPATH")))
51 51
52 (external-debugging-output (format "\nUsing load-path %s" load-path)) 52 (external-debugging-output (format "\nUsing load-path %s" load-path))
53 53
54 ;; We don't want to have any undo records in the dumped XEmacs. 54 ;; We don't want to have any undo records in the dumped XEmacs.
55 (buffer-disable-undo (get-buffer "*scratch*")) 55 (buffer-disable-undo (get-buffer "*scratch*"))