;;; 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
" '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