Commit a55d9b3b authored by Dan Nicolaescu's avatar Dan Nicolaescu
Browse files

*** empty log message ***

parent f170ed71
...@@ -858,19 +858,29 @@ are shown; the contents of those subgroups are initially hidden." ...@@ -858,19 +858,29 @@ are shown; the contents of those subgroups are initially hidden."
;;;###autoload ;;;###autoload
(defun customize-changed-options (since-version) (defun customize-changed-options (since-version)
"Customize all user option variables whose default values changed recently. "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): ") (interactive "sCustomize options changed, since version (default all versions): ")
(if (equal since-version "") (if (equal since-version "")
(setq since-version nil)) (setq since-version nil))
(let ((found nil)) (let ((found nil))
(mapatoms (lambda (symbol) (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))) (let ((version (get symbol 'custom-version)))
(and version (and version
(or (null since-version) (or (null since-version)
(customize-version-lessp since-version version)))) (customize-version-lessp since-version version))))
(setq found (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) (if (not found)
(error "No user options have changed defaults in recent Emacs versions") (error "No user options have changed defaults in recent Emacs versions")
(custom-buffer-create (custom-sort-items found t nil) (custom-buffer-create (custom-sort-items found t nil)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment