/usr/share/xemacs-21.4.22/lisp/site-load.el is in xemacs21-support 21.4.22-3.2ubuntu1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 | ;;; site-load.el --- Template file for site-wide XEmacs customization
;; Copyright (C) 1997 Free Software Foundation, Inc.
;; Author: Steven L. Baur <steve@xemacs.org>
;; Keywords: internal
;; This file is part of XEmacs.
;;; Commentary:
;; This is a prototype site-load.el file.
;; The site-load.el mechanism is provided so XEmacs installers can easily
;; dump lisp packages with XEmacs that do not get dumped standardly.
;; The file `site-packages' if it exists should look something like:
;; (setq site-load-packages '(
;; "../lisp/modes/cc-mode.elc"
;; "../lisp/utils/redo.elc"
;; "../lisp/packages/scroll-in-place.elc"
;; )
;; )
;; The first line and the last line must be exact. Each of the packages
;; listed must be double quoted, have either an absolute path, or a relative
;; to the build src directory path *and* be bytecompiled prior to the attempt
;; to dump. They also must explicitly have the .elc extension.
;; Because this is a trial implementation and the file is shared with
;; make-docfiles, syntax is strict and unforgiving. So sue me. It
;; is still better than the way it used to be.
;; Also note that site-packages belongs in the top level directory not the
;; lisp directory for use with --srcdir configurations.
;;; Code:
(defvar site-load-package-file "../site-packages"
"File name containing the list of extra packages to dump with XEmacs.")
(defvar site-load-packages nil
"A list of .elc files that should be dumped with XEmacs.
This variable should be set by `site-load-package-file'.")
;; Load site specific packages for dumping with the XEmacs binary.
(when (file-exists-p site-load-package-file)
(let ((file))
(load site-load-package-file t t t)
;; The `pureload' macro is provided as a clue that a package is
;; being loaded in preparation of being dumped into XEmacs.
(defmacro pureload (file)
(list 'prog1 (list 'load file) '(garbage-collect)))
(message "Loading site-wide packages for dumping...")
(while site-load-packages
(setq file (car site-load-packages))
(pureload file)
(setq site-load-packages (cdr site-load-packages)))
(message "Loading site-wide packages for dumping...done")
(fmakunbound 'pureload)))
;; This file is intended for end user additions.
;; Put other initialization here, like setting of language-environment, etc.
;; Perhaps this should really be in the site-init.el.
;;; site-load.el ends here
|