aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorMarkus Rost2003-01-18 03:19:28 +0000
committerMarkus Rost2003-01-18 03:19:28 +0000
commit2ee398c4c253f33628a7ceed3d428dd5f9e9d872 (patch)
treec2adb273f13fdea8e6afdf98c3b2e58807ef598d /lisp
parentda8249b4a93f530830e5bc9ae941e5091de88eba (diff)
downloademacs-2ee398c4c253f33628a7ceed3d428dd5f9e9d872.tar.gz
emacs-2ee398c4c253f33628a7ceed3d428dd5f9e9d872.zip
(customize-changed-options): Undo last doc change.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/ChangeLog4
-rw-r--r--lisp/cus-edit.el14
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 @@
12003-01-18 Markus Rost <rost@math.ohio-state.edu>
2
3 * cus-edit.el (customize-changed-options): Undo last doc change.
4
12003-01-17 Dave Love <fx@gnu.org> 52003-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
951With argument SINCE-VERSION (a string), customize all user option 951With argument SINCE-VERSION (a string), customize all user option
952variables that were added (or their meanings were changed) since that 952variables that were added (or their meanings were changed) since that
953version. 953version."
954
955Custom version numbers are actually associated to symbols. A symbol
956with version number VERSION will be listed with all its definitions as
957custom 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))