Mercurial > hg > xemacs-beta

diff lisp/cus-edit.el @ 476:6a8b2ec80a19

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2001-04-18 18:18:46 by didierv] Custom-reset-standard fix
author didierv
date Wed, 18 Apr 2001 18:18:48 +0000
parents e7ef97881643
children e07227fed94e
line wrap: on
line diff
--- a/lisp/cus-edit.el	Wed Apr 18 17:17:55 2001 +0000
+++ b/lisp/cus-edit.el	Wed Apr 18 18:18:48 2001 +0000
@@ -304,7 +304,7 @@
 		obarray (lambda (symbol)
 			  (and (boundp symbol)
 			       (or (get symbol 'custom-type)
-				   (user-variable-p symbol)))) 
+				   (user-variable-p symbol))))
                 t nil nil (and v (symbol-name v))))
      (list (if (equal val "")
 	       (if (symbolp v) v nil)
@@ -612,7 +612,7 @@
   (interactive)
   (let ((children custom-options))
     (mapc (lambda (child)
-	    (when (eq (widget-get child :custom-state) 'modified)
+	    (when (memq (widget-get child :custom-state) '(modified set saved))
 	      (widget-apply child :custom-reset-standard)))
 	  children)))