Mercurial > hg > xemacs-beta

comparison lisp/site-load.el @ 267:966663fcf606 r20-5b32

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b32
author cvs
date Mon, 13 Aug 2007 10:26:29 +0200
parents 157b30c96d03
children 74fd4e045ea6
comparison
equal deleted inserted replaced
266:18d185df8c54 267:966663fcf606
41 41
42 ;; Load site specific packages for dumping with the XEmacs binary. 42 ;; Load site specific packages for dumping with the XEmacs binary.
43 (when (file-exists-p site-load-package-file) 43 (when (file-exists-p site-load-package-file)
44 (let ((file)) 44 (let ((file))
45 (load site-load-package-file t t t) 45 (load site-load-package-file t t t)
46 ;; The `load-gc' macro is provided as a clue that a package is being loaded 46 ;; The `pureload' macro is provided as a clue that a package is
47 ;; in preparation of being dumped into XEmacs. 47 ;; being loaded in preparation of being dumped into XEmacs.
48 (defmacro load-gc (file) 48 (defmacro pureload (file)
49 (list 'prog1 (list 'load file) '(garbage-collect))) 49 (list 'prog1 (list 'load file) '(garbage-collect)))
50 (message "Loading site-wide packages for dumping...") 50 (message "Loading site-wide packages for dumping...")
51 (while site-load-packages 51 (while site-load-packages
52 (setq file (car site-load-packages)) 52 (setq file (car site-load-packages))
53 (load-gc file) 53 (pureload file)
54 (setq site-load-packages (cdr site-load-packages))) 54 (setq site-load-packages (cdr site-load-packages)))
55 (message "Loading site-wide packages for dumping...done") 55 (message "Loading site-wide packages for dumping...done")
56 (fmakunbound 'load-gc))) 56 (fmakunbound 'pureload)))
57 57
58 ;; This file is intended for end user additions. 58 ;; This file is intended for end user additions.
59 ;; Put other initialization here, like setting of language-environment, etc. 59 ;; Put other initialization here, like setting of language-environment, etc.
60 ;; Perhaps this should really be in the site-init.el. 60 ;; Perhaps this should really be in the site-init.el.
61 61