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
b8919739
Commit
b8919739
authored
Jan 02, 2006
by
Richard M. Stallman
Browse files
Fix previous change.
parent
107736a2
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
15 additions
and
16 deletions
+15
-16
lisp/ChangeLog
lisp/ChangeLog
+1
-1
lisp/cus-edit.el
lisp/cus-edit.el
+14
-15
No files found.
lisp/ChangeLog
View file @
b8919739
...
...
@@ -2,7 +2,7 @@
* cus-edit.el (Custom-set, Custom-save): Ask for confirmation.
(Custom-reset-current, Custom-reset-saved): Likewise.
(Custom-reset-standard):
Likewise
.
(Custom-reset-standard):
Show message if aborted
.
(custom-mode): Doc fix, describing those commands.
* mouse.el (mouse-drag-region-1): When following link via mouse-2,
...
...
lisp/cus-edit.el
View file @
b8919739
...
...
@@ -815,21 +815,20 @@ The immediate result is to restore them to their standard values.
This operation eliminates any saved values for the group members,
making them as if they had never been customized at all."
(
interactive
)
(
if
(
yes-or-no-p
"Eliminate saved values for all settings in this buffer? "
)
(
let
((
children
custom-options
))
(
when
(
or
(
and
(
=
1
(
length
children
))
(
memq
(
widget-type
(
car
children
))
'
(
custom-variable
custom-face
)))
(
yes-or-no-p
"Really erase all customizations in this buffer? "
))
(
mapc
(
lambda
(
widget
)
(
and
(
if
(
widget-get
widget
:custom-standard-value
)
(
widget-apply
widget
:custom-standard-value
)
t
)
(
memq
(
widget-get
widget
:custom-state
)
'
(
modified
set
changed
saved
rogue
))
(
widget-apply
widget
:custom-reset-standard
)))
children
)))
(
message
"Aborted"
)))
(
let
((
children
custom-options
))
(
if
(
or
(
and
(
=
1
(
length
children
))
(
memq
(
widget-type
(
car
children
))
'
(
custom-variable
custom-face
)))
(
yes-or-no-p
"Really erase all customizations in this buffer? "
))
(
mapc
(
lambda
(
widget
)
(
and
(
if
(
widget-get
widget
:custom-standard-value
)
(
widget-apply
widget
:custom-standard-value
)
t
)
(
memq
(
widget-get
widget
:custom-state
)
'
(
modified
set
changed
saved
rogue
))
(
widget-apply
widget
:custom-reset-standard
)))
children
)
(
message
"Aborted"
))))
;;; The Customize Commands
...
...
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