From d123dde58b908d0f06a8b07fc99d48fbea1512b2 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Mon, 15 Apr 2002 03:25:50 +0000 Subject: *** no comment *** --- chess.el | 19 ++----------------- 1 file changed, 2 insertions(+), 17 deletions(-) (limited to 'chess.el') diff --git a/chess.el b/chess.el index f4c71cc..5e1ffb7 100644 --- a/chess.el +++ b/chess.el @@ -88,7 +88,8 @@ (defcustom chess-default-displays '((chess-images chess-ics1 chess-plain) - (chess-sound chess-announce)) + (chess-sound chess-announce) + chess-autosave) "Default displays to be used when starting a chess session. This is a list of display modules, all of which will be invoked. If any entry is itself a list, then it specifies a series of alternatives @@ -250,22 +251,6 @@ making it easy to go on to the next puzzle once you've solved one." (chess-game-set-data chess-display-game key (chess-game-data next-game key)))))) -(defun chess-write-game (game file) - "Write a chess GAME to FILE as raw Lisp." - (let ((game-copy (copy-alist game))) - (chess-game-set-hooks game-copy nil) - (chess-game-set-data-alist game-copy nil) - (with-current-buffer (find-file-noselect) - (erase-buffer) - (prin1 game) - (save-buffer)))) - -(defun chess-read-game (file) - "Read a chess game as raw Lisp from FILE." - (with-current-buffer (find-file-noselect) - (goto-char (point-min)) - (read))) - (provide 'chess) ;;; chess.el ends here -- cgit v1.2.3