summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChong Yidong <cyd@stupidchicken.com>2008-08-19 01:49:04 +0000
committerChong Yidong <cyd@stupidchicken.com>2008-08-19 01:49:04 +0000
commit4d23ce722edccc670a82680615f4defb80867e3e (patch)
tree27a76a559ef1b046da4905da8ebd68a65f771c76
parent5c0558455c3c82488973328a6d48211ea7003452 (diff)
downloademacs-4d23ce722edccc670a82680615f4defb80867e3e.tar.gz
(custom-toggle-hide): Allow hiding only if widget is saved.
-rw-r--r--lisp/cus-edit.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 918f43a9da0..29152e12ce8 100644
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -2244,8 +2244,8 @@ and `face'."
"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