*** no comment ***

1 files changed, 7 insertions, 0 deletions

diff --git a/chess-display.el b/chess-display.el
index c90f180..2faf4b3 100644
--- a/chess-display.el
+++ b/chess-display.el
@@ -527,6 +527,7 @@ See `chess-display-type' for the different kinds of displays."
     (define-key map [?\{] 'chess-display-annotate)
     (define-key map [?\"] 'chess-display-chat)
     (define-key map [?\'] 'chess-display-chat)
+    (define-key map [?\~] 'chess-display-check-autosave)
 
     (define-key map [(control ?r)] 'chess-display-search-backward)
     (define-key map [(control ?s)] 'chess-display-search-forward)
@@ -830,6 +831,12 @@ Basically, it means we are playing, not editing or reviewing."
       (chess-game-run-hooks chess-module-game 'force)
     (ding)))
 
+(defun chess-display-check-autosave ()
+  (interactive)
+  (if (chess-display-active-p)
+      (chess-game-run-hooks chess-module-game 'check-autosave)
+    (ding)))
+
 (defun chess-display-resign ()
   "Resign the current game."
   (interactive)