/[emacs]/emacs/lisp/cus-edit.el
ViewVC logotype

Diff of /emacs/lisp/cus-edit.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.239 by teirllm, Wed Nov 16 02:02:03 2005 UTC revision 1.240 by rms, Wed Nov 16 22:15:07 2005 UTC
# Line 799  making them as if they had never been cu Line 799  making them as if they had never been cu
799    (interactive)    (interactive)
800    (let ((children custom-options))    (let ((children custom-options))
801      (mapc (lambda (widget)      (mapc (lambda (widget)
802              (and (widget-apply widget :custom-standard-value)              (and (widget-get widget :custom-standard-value)
803                     (widget-apply widget :custom-standard-value)
804                   (if (memq (widget-get widget :custom-state)                   (if (memq (widget-get widget :custom-state)
805                             '(modified set changed saved rogue))                             '(modified set changed saved rogue))
806                       (widget-apply widget :custom-reset-standard))))                       (widget-apply widget :custom-reset-standard))))
# Line 3397  restoring it to the state of a face that Line 3398  restoring it to the state of a face that
3398    
3399  (define-widget 'face 'symbol  (define-widget 'face 'symbol
3400    "A Lisp face name (with sample)."    "A Lisp face name (with sample)."
3401    :format "%t: (%{sample%}) %v"    :format "%{%t%}: (%{sample%}) %v"
3402    :tag "Face"    :tag "Face"
3403    :value 'default    :value 'default
3404    :sample-face-get 'widget-face-sample-face-get    :sample-face-get 'widget-face-sample-face-get

Legend:
Removed from v.1.239  
changed lines
  Added in v.1.240

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26