From 9d1e1415d59adc63655c7c6759db2deb91e1a141 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Mon, 15 Apr 2002 05:59:20 +0000 Subject: *** no comment *** --- chess-scid.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'chess-scid.el') diff --git a/chess-scid.el b/chess-scid.el index 965673c..2bdb8e5 100644 --- a/chess-scid.el +++ b/chess-scid.el @@ -48,7 +48,7 @@ (string-to-int (chess-scid-get-result "sc_base numGames\n"))) ((eq event 'read) - (let ((here (point-max))) + (let ((here (point-max)) game) (process-send-string chess-scid-process (format "sc_game load %d\nsc_game pgn\n" (car args))) @@ -56,7 +56,7 @@ (goto-char here) (when (setq game (chess-pgn-to-game)) (chess-game-set-data game 'database (current-buffer)) - (chess-game-set-data game 'database-index index) + (chess-game-set-data game 'database-index (car args)) (chess-game-set-data game 'database-count (chess-scid-handler 'count)) game))) @@ -70,7 +70,8 @@ (process-send-string chess-scid-process (format "sc_game import \"%s\"\n" (chess-game-to-string (cadr args)))) - (process-send-string chess-scid-process "sc_game save %d\n" index))))) + (process-send-string chess-scid-process + (format "sc_game save %d\n" index)))))) (provide 'chess-scid) -- cgit v1.2.3