From: Markus Rost <rost@math.uni-bielefeld.de>
Date: Sat, 18 Jan 2003 03:19:28 +0000 (+0000)
Subject: (customize-changed-options): Undo last doc change.
X-Git-Tag: ttn-vms-21-2-B4~11603
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2ee398c4c253f33628a7ceed3d428dd5f9e9d872;p=emacs.git

(customize-changed-options): Undo last doc change.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 39961050d14..d6e2c1ed442 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2003-01-18  Markus Rost  <rost@math.ohio-state.edu>
+
+	* cus-edit.el (customize-changed-options): Undo last doc change.
+
 2003-01-17  Dave Love  <fx@gnu.org>
 
 	* international/ucs-tables.el: Redo 8859-6 change in the right
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 6a666513e5c..5b98c13659b 100644
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -950,11 +950,7 @@ values have changed since the previous major Emacs release.
 
 With argument SINCE-VERSION (a string), customize all user option
 variables that were added (or their meanings were changed) since that
-version.
-
-Custom version numbers are actually associated to symbols. A symbol
-with version number VERSION will be listed with all its definitions as
-custom variable, face, or group."
+version."
 
   (interactive "sCustomize options changed, since version (default all versions): ")
   (if (equal since-version "")
@@ -970,9 +966,9 @@ custom variable, face, or group."
   ;; custom-load-symbol for this.
   (put 'custom-versions-load-alist 'custom-loads nil)
   (dolist (elt custom-versions-load-alist)
-     (if (customize-version-lessp since-version (car elt))
-	 (dolist (load (cdr elt))
-	   (custom-add-load 'custom-versions-load-alist load))))
+    (if (customize-version-lessp since-version (car elt))
+	(dolist (load (cdr elt))
+	  (custom-add-load 'custom-versions-load-alist load))))
   (custom-load-symbol 'custom-versions-load-alist)
   (put 'custom-versions-load-alist 'custom-loads nil)
 
@@ -3287,7 +3283,7 @@ If GROUPS-ONLY non-nil, return only those members that are groups."
 (defun custom-group-value-create (widget)
   "Insert a customize group for WIDGET in the current buffer."
   (unless (eq (widget-get widget :custom-state) 'hidden)
-      (custom-load-widget widget))
+    (custom-load-widget widget))
   (let* ((state (widget-get widget :custom-state))
 	 (level (widget-get widget :custom-level))
 	 ;; (indent (widget-get widget :indent))