From 2ee398c4c253f33628a7ceed3d428dd5f9e9d872 Mon Sep 17 00:00:00 2001 From: Markus Rost Date: Sat, 18 Jan 2003 03:19:28 +0000 Subject: (customize-changed-options): Undo last doc change. --- lisp/cus-edit.el | 14 +++++--------- 1 file changed, 5 insertions(+), 9 deletions(-) (limited to 'lisp/cus-edit.el') 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)) -- cgit v1.2.1