Mercurial > hg > xemacs-beta

comparison lisp/prim/loadup.el @ 124:9b50b4588a93 r20-1b15

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b15
author cvs
date Mon, 13 Aug 2007 09:26:39 +0200
parents cca96a509cfe
children 585fb297b004
comparison
equal deleted inserted replaced
123:c77884c6318d 124:9b50b4588a93
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) 40 (define-function 'defalias 'define-function)
41 (defvar running-xemacs t
42 "non-nil when the current emacsen is XEmacs.")
41 43
42 (call-with-condition-handler 44 (call-with-condition-handler
43 ;; This is awfully damn early to be getting an error, right? 45 ;; This is awfully damn early to be getting an error, right?
44 'really-early-error-handler 46 'really-early-error-handler
45 #'(lambda () 47 #'(lambda ()
76 (load-gc "replace") ; match-string used in version.el. 78 (load-gc "replace") ; match-string used in version.el.
77 (load-gc "version.el") ; Ignore compiled-by-mistake version.elc 79 (load-gc "version.el") ; Ignore compiled-by-mistake version.elc
78 (load-gc "cl") 80 (load-gc "cl")
79 (load-gc "widget") 81 (load-gc "widget")
80 (load-gc "custom") ; Before the world so everything can be customized 82 (load-gc "custom") ; Before the world so everything can be customized
83 (load-gc "cus-start") ; for customization of builtin variables
81 (load-gc "cmdloop") 84 (load-gc "cmdloop")
82 (or (fboundp 'recursive-edit) (load-gc "cmdloop1")) 85 (or (fboundp 'recursive-edit) (load-gc "cmdloop1"))
83 (load-gc "keymap") 86 (load-gc "keymap")
84 (load-gc "syntax") 87 (load-gc "syntax")
85 (load-gc "device") 88 (load-gc "device")