--- a/lisp/custom.el	Mon Aug 13 10:10:03 2007 +0200
+++ b/lisp/custom.el	Mon Aug 13 10:10:54 2007 +0200
@@ -322,6 +322,8 @@
 Fourth argument TYPE is the custom option type."
   (cond ((eq keyword :group)
 	 (custom-add-to-group value symbol type))
+	((eq keyword :version)
+	 (custom-add-version symbol value))
 	((eq keyword :link)
 	 (custom-add-link symbol value))
 	((eq keyword :load)
@@ -346,9 +348,14 @@
     (unless (member widget links)
       (put symbol 'custom-links (cons widget links)))))
 
+(defun custom-add-version (symbol version)
+  "To the custom option SYMBOL add the version VERSION."
+  (put symbol 'custom-version version))
+
 (defun custom-add-load (symbol load)
   "To the custom option SYMBOL add the dependency LOAD.
 LOAD should be either a library file name, or a feature name."
+  (puthash symbol t custom-group-hash-table)
   (let ((loads (get symbol 'custom-loads)))
     (unless (member load loads)
       (put symbol 'custom-loads (cons load loads)))))