Mercurial > emacs
changeset 21649:840699d18eab
*** empty log message ***
| author | Dan Nicolaescu <done@ece.arizona.edu> |
|---|---|
| date | Sat, 18 Apr 1998 18:20:15 +0000 |
| parents | 805366038d27 |
| children | 69bdeef5e927 |
| files | lisp/cus-edit.el |
| diffstat | 1 files changed, 13 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/cus-edit.el Sat Apr 18 18:12:35 1998 +0000 +++ b/lisp/cus-edit.el Sat Apr 18 18:20:15 1998 +0000 @@ -858,19 +858,29 @@ ;;;###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)