diff options
| author | Markus Rost <[email protected]> | 2003-01-18 03:19:28 +0000 |
|---|---|---|
| committer | Markus Rost <[email protected]> | 2003-01-18 03:19:28 +0000 |
| commit | 2ee398c4c253f33628a7ceed3d428dd5f9e9d872 (patch) | |
| tree | c2adb273f13fdea8e6afdf98c3b2e58807ef598d | |
| parent | da8249b4a93f530830e5bc9ae941e5091de88eba (diff) | |
(customize-changed-options): Undo last doc change.
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/cus-edit.el | 14 |
2 files changed, 9 insertions, 9 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 39961050d1..d6e2c1ed44 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2003-01-18 Markus Rost <[email protected]> + + * cus-edit.el (customize-changed-options): Undo last doc change. + 2003-01-17 Dave Love <[email protected]> * international/ucs-tables.el: Redo 8859-6 change in the right diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index 6a666513e5..5b98c13659 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)) |