mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-23 10:34:07 +00:00
Code Issues Releases Activity

(customize-changed-options): Undo last doc change.

Browse Source
This commit is contained in:
Markus Rost 2003-01-18 03:19:28 +00:00
parent da8249b4a9
commit 2ee398c4c2
2 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,3 +1,7 @@
2003-01-18 Markus Rost <rost@math.ohio-state.edu>
* cus-edit.el (customize-changed-options): Undo last doc change.
2003-01-17 Dave Love <fx@gnu.org>
* international/ucs-tables.el: Redo 8859-6 change in the right

14
lisp/cus-edit.el
View File

@ -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))