[Emacs-diffs] Changes to emacs/lisp/cus-edit.el

[Richard M . Stallman]

Index: emacs/lisp/cus-edit.el
diff -c emacs/lisp/cus-edit.el:1.239 emacs/lisp/cus-edit.el:1.240
*** emacs/lisp/cus-edit.el:1.239        Wed Nov 16 02:02:03 2005
--- emacs/lisp/cus-edit.el      Wed Nov 16 22:15:07 2005
***************
*** 799,805 ****
    (interactive)
    (let ((children custom-options))
      (mapc (lambda (widget)
!           (and (widget-apply widget :custom-standard-value)
                 (if (memq (widget-get widget :custom-state)
                           '(modified set changed saved rogue))
                     (widget-apply widget :custom-reset-standard))))
--- 799,806 ----
    (interactive)
    (let ((children custom-options))
      (mapc (lambda (widget)
!           (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,3403 ****
  
  (define-widget 'face 'symbol
    "A Lisp face name (with sample)."
!   :format "%t: (%{sample%}) %v"
    :tag "Face"
    :value 'default
    :sample-face-get 'widget-face-sample-face-get
--- 3398,3404 ----
  
  (define-widget 'face 'symbol
    "A Lisp face name (with sample)."
!   :format "%{%t%}: (%{sample%}) %v"
    :tag "Face"
    :value 'default
    :sample-face-get 'widget-face-sample-face-get