*** empty log message ***

1 files 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)