diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6028276f6df..f8836078458 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2008-01-11  Martin Rudalics  <rudalics@gmx.at>
+
+	* cus-start.el (all): Add missing version entries.
+
 2008-01-11  Glenn Morris  <rgm@gnu.org>
 
 	* language/china-util.el (big5-to-flat-code, flat-code-to-big5)
diff --git a/lisp/cus-start.el b/lisp/cus-start.el
index 7c0d538e735..2e49f5e8a73 100644
--- a/lisp/cus-start.el
+++ b/lisp/cus-start.el
@@ -95,7 +95,8 @@ Leaving \"Default\" unchecked is equivalent with specifying a default of
 	     (scroll-down-aggressively windows
 				       (choice (const :tag "off" nil) number)
 				       "21.1")
-	     (line-spacing display (choice (const :tag "none" nil) integer))
+	     (line-spacing display (choice (const :tag "none" nil) integer)
+			   "22.1")
 	     ;; callint.c
 	     (mark-even-if-inactive editing-basics boolean)
 	     ;; callproc.c
@@ -125,7 +126,7 @@ Leaving \"Default\" unchecked is equivalent with specifying a default of
 			     :match (lambda (widget value)
 				      (and value (not (functionp value)))))
 			    (function :value ignore))))
-	     (selection-coding-system mule coding-system)
+	     (selection-coding-system mule coding-system "22.1")
 	     ;; dired.c
 	     (completion-ignored-extensions dired
 					    (repeat (string :format "%v")))
@@ -141,7 +142,7 @@ Leaving \"Default\" unchecked is equivalent with specifying a default of
 	     (max-lisp-eval-depth limits integer)
 	     (max-mini-window-height limits
 				     (choice (const :tag "quarter screen" nil)
-					     number))
+					     number) "23.1")
 	     (stack-trace-on-error debug
 				   (choice (const :tag "off")
 					   (repeat :menu-tag "When"
@@ -175,7 +176,8 @@ Leaving \"Default\" unchecked is equivalent with specifying a default of
 			     (sexp :tag "Value"))))
 	     (mouse-highlight mouse (choice (const :tag "disabled" nil)
 					    (const :tag "always shown" t)
-					    (other :tag "hidden by keypress" 1)))
+					    (other :tag "hidden by keypress" 1))
+			      "22.1")
 	     ;; fringe.c
 	     (overflow-newline-into-fringe fringe boolean)
 	     ;; indent.c
@@ -189,7 +191,7 @@ Leaving \"Default\" unchecked is equivalent with specifying a default of
 	     (polling-period keyboard integer)
 	     (double-click-time mouse (restricted-sexp
 				       :match-alternatives (integerp 'nil 't)))
-	     (double-click-fuzz mouse integer)
+	     (double-click-fuzz mouse integer "22.1")
 	     (inhibit-local-menu-bar-menus menu boolean)
 	     (help-char keyboard character)
 	     (help-event-list keyboard (repeat (sexp :format "%v")))
@@ -247,9 +249,9 @@ Leaving \"Default\" unchecked is equivalent with specifying a default of
 	     (completion-auto-help minibuffer boolean)
 	     (enable-recursive-minibuffers minibuffer boolean)
 	     (history-length minibuffer
-			     (choice (const :tag "Infinite" t)
-				     integer))
-	     (history-delete-duplicates minibuffer boolean)
+			     (choice (const :tag "Infinite" t) integer)
+			     "22.1")
+	     (history-delete-duplicates minibuffer boolean "22.1")
 	     (minibuffer-prompt-properties
 	      minibuffer
 	      (list
@@ -348,14 +350,15 @@ since it could result in memory overflow and make Emacs crash."
                       ;; and shape of the window.
                       (const :tag "horizontally"
                              (lambda (window)
-                               (split-window window nil 'horiz)))))
+                               (split-window window nil 'horiz))))
+	      "23.1")
 	     (window-min-height windows integer)
 	     (window-min-width windows integer)
  	     (scroll-preserve-screen-position
  	      windows (choice
  		       (const :tag "Off (nil)" :value nil)
  		       (const :tag "Full screen (t)" :value t)
- 		       (other :tag "Always" 1)))
+ 		       (other :tag "Always" 1)) "22.1")
 	     (display-buffer-reuse-frames windows boolean "21.1")
 	     ;; xdisp.c
 	     (scroll-step windows integer)
@@ -369,7 +372,7 @@ since it could result in memory overflow and make Emacs crash."
 	     (line-number-display-limit display
 					(choice integer
 						(const :tag "No limit" nil)))
-	     (line-number-display-limit-width display integer)
+	     (line-number-display-limit-width display integer "22.1")
 	     (highlight-nonselected-windows display boolean)
 	     (message-log-max debug (choice (const :tag "Disable" nil)
 					    (integer :menu-tag "lines"
@@ -384,7 +387,7 @@ since it could result in memory overflow and make Emacs crash."
 		       (const :tag "Immediate" :value t)
 		       (number :tag "Delay by secs" :value 0.5)) "22.1")
 	     ;; xfaces.c
-	     (scalable-fonts-allowed display boolean)
+	     (scalable-fonts-allowed display boolean "22.1")
 	     ;; xfns.c
 	     (x-bitmap-file-path installation
 				 (repeat (directory :format "%v")))