diff options
| author | Markus Rost | 2003-01-18 03:19:28 +0000 |
|---|---|---|
| committer | Markus Rost | 2003-01-18 03:19:28 +0000 |
| commit | 2ee398c4c253f33628a7ceed3d428dd5f9e9d872 (patch) | |
| tree | c2adb273f13fdea8e6afdf98c3b2e58807ef598d /lisp | |
| parent | da8249b4a93f530830e5bc9ae941e5091de88eba (diff) | |
| download | emacs-2ee398c4c253f33628a7ceed3d428dd5f9e9d872.tar.gz emacs-2ee398c4c253f33628a7ceed3d428dd5f9e9d872.zip | |
(customize-changed-options): Undo last doc change.
Diffstat (limited to 'lisp')
| -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 39961050d14..d6e2c1ed442 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,7 @@ | |||
| 1 | 2003-01-18 Markus Rost <rost@math.ohio-state.edu> | ||
| 2 | |||
| 3 | * cus-edit.el (customize-changed-options): Undo last doc change. | ||
| 4 | |||
| 1 | 2003-01-17 Dave Love <fx@gnu.org> | 5 | 2003-01-17 Dave Love <fx@gnu.org> |
| 2 | 6 | ||
| 3 | * international/ucs-tables.el: Redo 8859-6 change in the right | 7 | * 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. | |||
| 950 | 950 | ||
| 951 | With argument SINCE-VERSION (a string), customize all user option | 951 | With argument SINCE-VERSION (a string), customize all user option |
| 952 | variables that were added (or their meanings were changed) since that | 952 | variables that were added (or their meanings were changed) since that |
| 953 | version. | 953 | version." |
| 954 | |||
| 955 | Custom version numbers are actually associated to symbols. A symbol | ||
| 956 | with version number VERSION will be listed with all its definitions as | ||
| 957 | custom variable, face, or group." | ||
| 958 | 954 | ||
| 959 | (interactive "sCustomize options changed, since version (default all versions): ") | 955 | (interactive "sCustomize options changed, since version (default all versions): ") |
| 960 | (if (equal since-version "") | 956 | (if (equal since-version "") |
| @@ -970,9 +966,9 @@ custom variable, face, or group." | |||
| 970 | ;; custom-load-symbol for this. | 966 | ;; custom-load-symbol for this. |
| 971 | (put 'custom-versions-load-alist 'custom-loads nil) | 967 | (put 'custom-versions-load-alist 'custom-loads nil) |
| 972 | (dolist (elt custom-versions-load-alist) | 968 | (dolist (elt custom-versions-load-alist) |
| 973 | (if (customize-version-lessp since-version (car elt)) | 969 | (if (customize-version-lessp since-version (car elt)) |
| 974 | (dolist (load (cdr elt)) | 970 | (dolist (load (cdr elt)) |
| 975 | (custom-add-load 'custom-versions-load-alist load)))) | 971 | (custom-add-load 'custom-versions-load-alist load)))) |
| 976 | (custom-load-symbol 'custom-versions-load-alist) | 972 | (custom-load-symbol 'custom-versions-load-alist) |
| 977 | (put 'custom-versions-load-alist 'custom-loads nil) | 973 | (put 'custom-versions-load-alist 'custom-loads nil) |
| 978 | 974 | ||
| @@ -3287,7 +3283,7 @@ If GROUPS-ONLY non-nil, return only those members that are groups." | |||
| 3287 | (defun custom-group-value-create (widget) | 3283 | (defun custom-group-value-create (widget) |
| 3288 | "Insert a customize group for WIDGET in the current buffer." | 3284 | "Insert a customize group for WIDGET in the current buffer." |
| 3289 | (unless (eq (widget-get widget :custom-state) 'hidden) | 3285 | (unless (eq (widget-get widget :custom-state) 'hidden) |
| 3290 | (custom-load-widget widget)) | 3286 | (custom-load-widget widget)) |
| 3291 | (let* ((state (widget-get widget :custom-state)) | 3287 | (let* ((state (widget-get widget :custom-state)) |
| 3292 | (level (widget-get widget :custom-level)) | 3288 | (level (widget-get widget :custom-level)) |
| 3293 | ;; (indent (widget-get widget :indent)) | 3289 | ;; (indent (widget-get widget :indent)) |