mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-15 17:00:26 +00:00
Code Issues Releases Activity

(Custom-reset-standard): Verify that

Browse Source 
:custom-standard-value prop exists before calling it.

(face): Enclose %t in %{...%}.
This commit is contained in:
Richard M. Stallman 2005-11-16 22:15:07 +00:00
parent 73cae835d8
commit 49698bb717
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/cus-edit.el
View File

@ -799,7 +799,8 @@ making them as if they had never been customized at all."
(interactive)
(let ((children custom-options))
(mapc (lambda (widget)
(and (widget-apply widget :custom-standard-value)
(and (widget-get widget :custom-standard-value)
(widget-apply widget :custom-standard-value)
(if (memq (widget-get widget :custom-state)
'(modified set changed saved rogue))
(widget-apply widget :custom-reset-standard))))
@ -3397,7 +3398,7 @@ restoring it to the state of a face that has never been customized."
(define-widget 'face 'symbol
"A Lisp face name (with sample)."
:format "%t: (%{sample%}) %v"
:format "%{%t%}: (%{sample%}) %v"
:tag "Face"
:value 'default
:sample-face-get 'widget-face-sample-face-get