1 ;;; cus-load.el --- Batch load all available cus-load files
3 ;; Copyright (C) 1997 by Free Software Foundation, Inc.
5 ;; Author: Steven L Baur <steve@xemacs.org>
6 ;; Keywords: internal, help, faces
8 ;; This file is part of SXEmacs.
10 ;; SXEmacs is free software: you can redistribute it and/or modify
11 ;; it under the terms of the GNU General Public License as published by
12 ;; the Free Software Foundation, either version 3 of the License, or
13 ;; (at your option) any later version.
15 ;; SXEmacs is distributed in the hope that it will be useful,
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 ;; GNU General Public License for more details.
20 ;; You should have received a copy of the GNU General Public License
21 ;; along with this program. If not, see <http://www.gnu.org/licenses/>.
23 ;;; Synched up with: Not in FSF
27 ;; In FSF all of the custom loads are in a single `cus-load' file.
28 ;; However, we have them distributed across directories, with optional
29 ;; incremental loading. Here we simply collect the whole set.
36 (defun custom-add-loads (symbol list)
37 "Update the custom-loads list of a symbol.
38 This works by adding the elements from LIST to the SYMBOL's
39 `custom-loads' property, avoiding duplicates. Also, SYMBOL is
40 added to `custom-group-hash-table'."
41 (let ((loads (get symbol 'custom-loads)))
43 (unless (member el loads)
44 (setq loads (nconc loads (list el)))))
45 (put symbol 'custom-loads loads)
46 (puthash symbol t custom-group-hash-table)))
48 (message "Loading customization dependencies...")
50 ;; Garbage-collection seems to be very intensive here, and it slows
51 ;; things down. Nuke it.
52 (let ((gc-cons-threshold most-positive-fixnum))
54 (load (expand-file-name "custom-load" dir) t t))
57 (message "Loading customization dependencies...done")
61 ;;; cus-load.el ends here