-;;; cus-dep.el --- Find customization dependencies.
+;;; cus-dep.el --- find customization dependencies
;;
;; Copyright (C) 1997 Free Software Foundation, Inc.
;;
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
+;;; Commentary:
+
;;; Code:
-(require 'cl)
+(eval-when-compile (require 'cl))
(require 'widget)
(require 'cus-face)
(require 'autoload)
;;; information so `custom-changed-variables' could do its job.
;;; For both groups and variables we have to set `custom-version'.
;;; For variables we also set the `standard-value' and for groups
-;;; `group-documentation' (which is shown in the customize buffer, so
+;;; `group-documentation' (which is shown in the customize buffer), so
;;; we don't have to load the file containing the group.
;;; `custom-versions-load-alist' is an alist that has as car a version
;;; variables and groups if it's already set. (We don't know when
;;; cus-load.el is going to be loaded and at that time some of the
;;; files might be loaded and some others might not).
-(defmacro custom-put-if-not (symbol propname value)
+\(defmacro custom-put-if-not (symbol propname value)
`(unless (get ,symbol ,propname)
(put ,symbol ,propname ,value)))
\(provide 'cus-load)
+;;; Local Variables:
+;;; version-control: never
+;;; no-byte-compile: t
+;;; no-update-autoloads: t
+;;; End:
;;; cus-load.el ends here\n")
(let ((kept-new-versions 10000000))
(save-buffer))
(message "Generating cus-load.el...done")
(kill-emacs))
+\f
;;; cus-dep.el ends here