Mercurial > hg > xemacs-beta

comparison lisp/loadup.el @ 247:e70b3a057e12 r20-5b22

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b22
author cvs
date Mon, 13 Aug 2007 10:18:21 +0200
parents f220cc83d72e
children 83b3d10dcba9
comparison
equal deleted inserted replaced
246:cf2a77a48c1c 247:e70b3a057e12
38 (if (fboundp 'error) 38 (if (fboundp 'error)
39 (error "loadup.el already loaded!")) 39 (error "loadup.el already loaded!"))
40 40
41 (define-function 'defalias 'define-function) 41 (define-function 'defalias 'define-function)
42 (defvar running-xemacs t 42 (defvar running-xemacs t
43 "Non-nil when the current emacsen is XEmacs.") 43 "Non-nil when the current emacs is XEmacs.")
44 (defvar preloaded-file-list nil 44 (defvar preloaded-file-list nil
45 "List of files preloaded into the XEmacs binary image.") 45 "List of files preloaded into the XEmacs binary image.")
46 46
47 ;; This is awfully damn early to be getting an error, right? 47 ;; This is awfully damn early to be getting an error, right?
48 (call-with-condition-handler 'really-early-error-handler 48 (call-with-condition-handler 'really-early-error-handler
180 (buffer-enable-undo "*scratch*") 180 (buffer-enable-undo "*scratch*")
181 181
182 ;; Dump into the name `xemacs' (only) 182 ;; Dump into the name `xemacs' (only)
183 (when (member "dump" command-line-args) 183 (when (member "dump" command-line-args)
184 (message "Dumping under the name xemacs") 184 (message "Dumping under the name xemacs")
185 (condition-case () (delete-file "xemacs") (file-error nil)) 185 ;; This is handled earlier in the build process.
186 ;; (condition-case () (delete-file "xemacs") (file-error nil))
186 (when (fboundp 'really-free) 187 (when (fboundp 'really-free)
187 (really-free)) 188 (really-free))
188 (dump-emacs "xemacs" "temacs") 189 (dump-emacs "xemacs" "temacs")
189 (kill-emacs)) 190 (kill-emacs))
190 191