diff options
Diffstat (limited to 'chess.el')
| -rw-r--r-- | chess.el | 19 |
1 files changed, 2 insertions, 17 deletions
@@ -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 |