diff options
Diffstat (limited to 'chess-scid.el')
| -rw-r--r-- | chess-scid.el | 35 |
1 files changed, 18 insertions, 17 deletions
diff --git a/chess-scid.el b/chess-scid.el index bf16b03..ce526d9 100644 --- a/chess-scid.el +++ b/chess-scid.el @@ -22,23 +22,24 @@ (defun chess-scid-handler (event &rest args) (cond ((eq event 'open) - (let* ((buffer (generate-new-buffer " *chess-scid*")) - (proc (start-process "*chess-scid*" buffer - (executable-find "tcscid")))) - (if (and proc (eq (process-status proc) 'run)) - (with-current-buffer buffer - (accept-process-output proc) - (setq chess-scid-process proc) - (if (= 1 (string-to-int - (chess-scid-get-result - (format "sc_base open %s\n" - (expand-file-name (car args)))))) - buffer - (kill-process proc) - (kill-buffer buffer) - nil)) - (kill-buffer buffer) - nil))) + (if (file-readable-p (concat (car args) ".sg3")) + (let* ((buffer (generate-new-buffer " *chess-scid*")) + (proc (start-process "*chess-scid*" buffer + (executable-find "tcscid")))) + (if (and proc (eq (process-status proc) 'run)) + (with-current-buffer buffer + (accept-process-output proc) + (setq chess-scid-process proc) + (if (= 1 (string-to-int + (chess-scid-get-result + (format "sc_base open %s\n" + (expand-file-name (car args)))))) + buffer + (kill-process proc) + (kill-buffer buffer) + nil)) + (kill-buffer buffer) + nil)))) ((eq event 'close) (process-send-string chess-scid-process "sc_base close\nexit\n")) |