Mercurial > emacs
comparison lisp/cus-edit.el @ 21649:840699d18eab
*** empty log message ***
| author | Dan Nicolaescu <done@ece.arizona.edu> |
|---|---|
| date | Sat, 18 Apr 1998 18:20:15 +0000 |
| parents | a49aafe4e242 |
| children | 9861518505cb |
comparison
equal
deleted
inserted
replaced
| 21648:805366038d27 | 21649:840699d18eab |
|---|---|
| 856 (custom-unlispify-tag-name symbol)))) | 856 (custom-unlispify-tag-name symbol)))) |
| 857 | 857 |
| 858 ;;;###autoload | 858 ;;;###autoload |
| 859 (defun customize-changed-options (since-version) | 859 (defun customize-changed-options (since-version) |
| 860 "Customize all user option variables whose default values changed recently. | 860 "Customize all user option variables whose default values changed recently. |
| 861 This means, in other words, variables defined with a `:version' option." | 861 This means, in other words, variables and groups defined with a `:version' |
| 862 option." | |
| 862 (interactive "sCustomize options changed, since version (default all versions): ") | 863 (interactive "sCustomize options changed, since version (default all versions): ") |
| 863 (if (equal since-version "") | 864 (if (equal since-version "") |
| 864 (setq since-version nil)) | 865 (setq since-version nil)) |
| 865 (let ((found nil)) | 866 (let ((found nil)) |
| 866 (mapatoms (lambda (symbol) | 867 (mapatoms (lambda (symbol) |
| 867 (and (boundp symbol) | 868 (and (or (boundp symbol) |
| 869 ;; For groups the previous test fails, this one | |
| 870 ;; could be used to determine if symbol is a | |
| 871 ;; group. Is there a better way for this? | |
| 872 (get symbol 'group-documentation)) | |
| 868 (let ((version (get symbol 'custom-version))) | 873 (let ((version (get symbol 'custom-version))) |
| 869 (and version | 874 (and version |
| 870 (or (null since-version) | 875 (or (null since-version) |
| 871 (customize-version-lessp since-version version)))) | 876 (customize-version-lessp since-version version)))) |
| 872 (setq found | 877 (setq found |
| 873 (cons (list symbol 'custom-variable) found))))) | 878 ;; We have to set the right thing here, |
| 879 ;; depending if we have a group or a | |
| 880 ;; variable. | |
| 881 (if (get symbol 'group-documentation) | |
| 882 (cons (list symbol 'custom-group) found) | |
| 883 (cons (list symbol 'custom-variable) found)))))) | |
| 874 (if (not found) | 884 (if (not found) |
| 875 (error "No user options have changed defaults in recent Emacs versions") | 885 (error "No user options have changed defaults in recent Emacs versions") |
| 876 (custom-buffer-create (custom-sort-items found t nil) | 886 (custom-buffer-create (custom-sort-items found t nil) |
| 877 "*Customize Changed Options*")))) | 887 "*Customize Changed Options*")))) |
| 878 | 888 |