diff options
| author | Chong Yidong | 2008-08-19 01:49:04 +0000 |
|---|---|---|
| committer | Chong Yidong | 2008-08-19 01:49:04 +0000 |
| commit | fdbdd068b181f9b0981eca9ea189e5b7629a6f00 (patch) | |
| tree | cb565a2f2a5989acfc1a4d8e5381a7e642322152 | |
| parent | ca40134198aa708f9707869f6948138b2292c4f2 (diff) | |
| download | emacs-fdbdd068b181f9b0981eca9ea189e5b7629a6f00.tar.gz emacs-fdbdd068b181f9b0981eca9ea189e5b7629a6f00.zip | |
(custom-toggle-hide): Allow hiding only if widget is saved.
| -rw-r--r-- | lisp/cus-edit.el | 4 |
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'." | |||
| 2244 | "Toggle visibility of WIDGET." | 2244 | "Toggle visibility of WIDGET." |
| 2245 | (custom-load-widget widget) | 2245 | (custom-load-widget widget) |
| 2246 | (let ((state (widget-get widget :custom-state))) | 2246 | (let ((state (widget-get widget :custom-state))) |
| 2247 | (cond ((memq state '(invalid modified)) | 2247 | (cond ((memq state '(invalid modified set)) |
| 2248 | (error "There are unset changes")) | 2248 | (error "There are unsaved changes")) |
| 2249 | ((eq state 'hidden) | 2249 | ((eq state 'hidden) |
| 2250 | (widget-put widget :custom-state 'unknown)) | 2250 | (widget-put widget :custom-state 'unknown)) |
| 2251 | (t | 2251 | (t |