Mercurial > hg > xemacs-beta

comparison lisp/loadup.el @ 304:c6de09ad3017 r21-0b50

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b50
author cvs
date Mon, 13 Aug 2007 10:41:12 +0200
parents 558f606b08ae
children 33bdb3d4b97f
comparison
equal deleted inserted replaced
303:d02ffe1d75ed 304:c6de09ad3017
35 ;;; Code: 35 ;;; Code:
36 36
37 (if (fboundp 'error) 37 (if (fboundp 'error)
38 (error "loadup.el already loaded!")) 38 (error "loadup.el already loaded!"))
39 39
40 (define-function 'defalias 'define-function)
41 (defvar running-xemacs t 40 (defvar running-xemacs t
42 "Non-nil when the current emacs is XEmacs.") 41 "Non-nil when the current emacs is XEmacs.")
43 (defvar preloaded-file-list nil 42 (defvar preloaded-file-list nil
44 "List of files preloaded into the XEmacs binary image.") 43 "List of files preloaded into the XEmacs binary image.")
45 44
51 50
52 (external-debugging-output (format "\nUsing load-path %s" load-path)) 51 (external-debugging-output (format "\nUsing load-path %s" load-path))
53 52
54 ;; We don't want to have any undo records in the dumped XEmacs. 53 ;; We don't want to have any undo records in the dumped XEmacs.
55 (buffer-disable-undo (get-buffer "*scratch*")) 54 (buffer-disable-undo (get-buffer "*scratch*"))
55
56 ;; Load our first bootstrap support
57 (load "very-early-lisp" nil t)
56 58
57 ;; lread.c (or src/Makefile.in.in) has prepended 59 ;; lread.c (or src/Makefile.in.in) has prepended
58 ;; "${srcdir}/../lisp/" to load-path, which is how this file 60 ;; "${srcdir}/../lisp/" to load-path, which is how this file
59 ;; has been found. At this point, enough of XEmacs has been 61 ;; has been found. At this point, enough of XEmacs has been
60 ;; initialized that we can start dumping "standard" lisp. 62 ;; initialized that we can start dumping "standard" lisp.