Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
a55d9b3b
Commit
a55d9b3b
authored
Apr 18, 1998
by
Dan Nicolaescu
Browse files
*** empty log message ***
parent
f170ed71
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
13 additions
and
3 deletions
+13
-3
lisp/cus-edit.el
lisp/cus-edit.el
+13
-3
No files found.
lisp/cus-edit.el
View file @
a55d9b3b
...
...
@@ -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
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment