(auto-insert-alist): Add `provide' to elisp skeleton.

[gnu-emacs] / lisp / cus-dep.el

diff --git a/lisp/cus-dep.el b/lisp/cus-dep.el
index 7674599b705f8d169bf536830e632921490eec0b..466f9b5be0b36260b7bb4f33e38c6cb93d6c09c4 100644 (file)
--- a/lisp/cus-dep.el
+++ b/lisp/cus-dep.el
@@ -24,7 +24,7 @@
 
 ;;; Code:
 
-(require 'cl)
+(eval-when-compile (require 'cl))
 (require 'widget)
 (require 'cus-face)
 (require 'autoload)
@@ -103,7 +103,7 @@ Usage: emacs -batch -l ./cus-dep.el -f custom-make-dependencies DIRS"
 ;;; 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
@@ -116,7 +116,7 @@ Usage: emacs -batch -l ./cus-dep.el -f custom-make-dependencies DIRS"
 ;;; 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)))
 
@@ -137,7 +137,7 @@ Usage: emacs -batch -l ./cus-dep.el -f custom-make-dependencies DIRS"
                              " 'custom-version ")
                      (prin1 version (current-buffer))
                      (insert ")\n")
-                     (insert "(put '" (symbol-name symbol))
+                     (insert "(custom-put-if-not '" (symbol-name symbol))
                      (if (get symbol 'standard-value)
                          ;; This means it's a variable
                          (progn
@@ -162,10 +162,16 @@ Usage: emacs -batch -l ./cus-dep.el -f custom-make-dependencies DIRS"
 
 \(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