From 986af48943f06c660b935551c1be38ec2153fe32 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Wed, 1 May 2002 06:07:25 +0000 Subject: *** no comment *** --- chess-autosave.el | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) (limited to 'chess-autosave.el') diff --git a/chess-autosave.el b/chess-autosave.el index 03c7574..efb90df 100644 --- a/chess-autosave.el +++ b/chess-autosave.el @@ -15,9 +15,10 @@ :group 'chess-autosave) (chess-message-catalog 'english - '((chess-read-autosave . "There is a chess autosave file, read it? ") - (chess-delete-autosave . "Delete the autosave file? ") - (chess-disable-autosave . "Disable autosaving for this game? "))) + '((chess-read-autosave . "There is a chess autosave file, read it? ") + (chess-delete-autosave . "Delete the autosave file? ") + (chess-disable-autosave . "Disable autosaving for this game? ") + (autosave-available . "There is an autosave file; type ~ after connecting to read it"))) (defun chess-autosave-handler (game event &rest args) (cond @@ -39,6 +40,10 @@ (if (y-or-n-p (chess-string 'chess-disable-autosave)) (chess-autosave-handler game 'disable-autosave)))))) + ((eq event 'announce-autosave) + (if (file-readable-p chess-autosave-file) + (chess-message 'autosave-available))) + ((eq event 'disable-autosave) (chess-autosave-handler game 'destroy) (chess-module-destroy (current-buffer))) -- cgit v1.2.3