From a55d9b3b1357840e9e1d3663b598434bc608523e Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Sat, 18 Apr 1998 18:20:15 +0000 Subject: [PATCH] *** empty log message *** --- lisp/cus-edit.el | 16 +++++++++++++--- 1 file changed, 13 insertions(+), 3 deletions(-) diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index aa9b88c0ee5..f35a075456d 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -858,19 +858,29 @@ are shown; the contents of those subgroups are initially hidden." ;;;###autoload (defun customize-changed-options (since-version) "Customize all user option variables whose default values changed recently. -This means, in other words, variables defined with a `:version' option." +This means, in other words, variables and groups defined with a `:version' +option." (interactive "sCustomize options changed, since version (default all versions): ") (if (equal since-version "") (setq since-version nil)) (let ((found nil)) (mapatoms (lambda (symbol) - (and (boundp symbol) + (and (or (boundp symbol) + ;; For groups the previous test fails, this one + ;; could be used to determine if symbol is a + ;; group. Is there a better way for this? + (get symbol 'group-documentation)) (let ((version (get symbol 'custom-version))) (and version (or (null since-version) (customize-version-lessp since-version version)))) (setq found - (cons (list symbol 'custom-variable) found))))) + ;; We have to set the right thing here, + ;; depending if we have a group or a + ;; variable. + (if (get symbol 'group-documentation) + (cons (list symbol 'custom-group) found) + (cons (list symbol 'custom-variable) found)))))) (if (not found) (error "No user options have changed defaults in recent Emacs versions") (custom-buffer-create (custom-sort-items found t nil) -- 2.39.2