cgit.sxemacs.org Git - sxemacs/blob - lisp/cus-load.el

   1 ;;; cus-load.el --- Batch load all available cus-load files
   2
   3 ;; Copyright (C) 1997 by Free Software Foundation, Inc.
   4
   5 ;; Author: Steven L Baur <steve@xemacs.org>
   6 ;; Keywords: internal, help, faces
   7
   8 ;; This file is part of SXEmacs.
   9
  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.
  14
  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.
  19
  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/>.
  22
  23 ;;; Synched up with: Not in FSF
  24
  25 ;;; Commentary:
  26
  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.
  30
  31 \f
  32 ;;; Code:
  33
  34 (require 'custom)
  35
  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)))
  42     (dolist (el list)
  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)))
  47
  48 (message "Loading customization dependencies...")
  49
  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))
  53   (mapc (lambda (dir)
  54           (load (expand-file-name "custom-load" dir) t t))
  55         load-path))
  56
  57 (message "Loading customization dependencies...done")
  58
  59 (provide 'cus-load)
  60
  61 ;;; cus-load.el ends here