diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-14 23:48:50 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-14 23:48:50 +0000 |
| commit | e15c5ad70e32debce094a3c53caf875afb648338 (patch) | |
| tree | dd9fae690a589921781943cfc05474ebf01dfb3d /chess-database.el | |
| parent | 4f7271d9ea4f82eb316b05a54bac9030d1127c8e (diff) | |
*** no comment ***
Diffstat (limited to 'chess-database.el')
| -rw-r--r-- | chess-database.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/chess-database.el b/chess-database.el index c7a27c4..2f2655b 100644 --- a/chess-database.el +++ b/chess-database.el @@ -37,13 +37,13 @@ (apply 'chess-database-event-handler nil (current-buffer) event args))) -(defun chess-database-close (database) +(defun chess-database-close (&optional database) (let ((buf (or database (current-buffer)))) (when (buffer-live-p buf) + (with-current-buffer buf + (remove-hook 'kill-buffer-hook 'chess-database-close t)) (chess-database-command buf 'save) (chess-database-command buf 'close) - (with-current-buffer buf - (remove-hook 'kill-buffer-hook 'chess-database-quit t)) (kill-buffer buf)))) (defun chess-database-save (database) |