changeset 97546:57c9b0f7df3e

(custom-toggle-hide): Allow hiding only if widget is saved.
author Chong Yidong <cyd@stupidchicken.com>
date Tue, 19 Aug 2008 01:49:04 +0000
parents b24a1581ac16
children 1c58e58f90a5
files lisp/cus-edit.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/cus-edit.el	Tue Aug 19 01:48:39 2008 +0000
+++ b/lisp/cus-edit.el	Tue Aug 19 01:49:04 2008 +0000
@@ -2244,8 +2244,8 @@
   "Toggle visibility of WIDGET."
   (custom-load-widget widget)
   (let ((state (widget-get widget :custom-state)))
-    (cond ((memq state '(invalid modified))
-	   (error "There are unset changes"))
+    (cond ((memq state '(invalid modified set))
+	   (error "There are unsaved changes"))
 	  ((eq state 'hidden)
 	   (widget-put widget :custom-state 'unknown))
 	  (t