# HG changeset patch # User Markus Rost # Date 1042859900 0 # Node ID b99be2b862311a2625a5e0a4aabdb80b31df00ed # Parent c7f492d5cd47ef7bbb15a6728b8a26d2fa3f94a9 (customize-changed-options): Undo last doc change. diff -r c7f492d5cd47 -r b99be2b86231 lisp/cus-edit.el --- a/lisp/cus-edit.el Fri Jan 17 20:35:48 2003 +0000 +++ b/lisp/cus-edit.el Sat Jan 18 03:18:20 2003 +0000 @@ -950,11 +950,7 @@ 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-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 @@ (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))