diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-15 05:59:20 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-15 05:59:20 +0000 |
| commit | 9d1e1415d59adc63655c7c6759db2deb91e1a141 (patch) | |
| tree | ac24536a381580e599cd9323439a3fff3f6e83eb /chess-scid.el | |
| parent | ef7c29d679c6aaf8dda55772e65800097c46f163 (diff) | |
*** no comment ***
Diffstat (limited to 'chess-scid.el')
| -rw-r--r-- | chess-scid.el | 7 |
1 files changed, 4 insertions, 3 deletions
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) |