From 3222b53d942daa404852e5148ba9d3ebb8fe96d0 Mon Sep 17 00:00:00 2001 From: dickmao Date: Mon, 27 Aug 2018 17:00:35 -0400 Subject: Pre-moves To activate, look for Chess Display Allow Pre Moves in: M-x customize-group chess-display Tested via: make test make test24 (requires evim) --- chess-common.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'chess-common.el') diff --git a/chess-common.el b/chess-common.el index 7de9196..ac48c8e 100644 --- a/chess-common.el +++ b/chess-common.el @@ -63,12 +63,15 @@ ((eq event 'initialize) (let* ((name (car args)) (path (intern (concat "chess-" name "-path"))) + (args (intern (concat "chess-" name "-args"))) proc) (chess-message 'starting-engine name) (unless (and (boundp path) (symbol-value path)) (chess-error 'could-not-find-engine name path)) (setq proc (start-process (concat "chess-" name) - (current-buffer) (symbol-value path))) + (current-buffer) (symbol-value path) + (if (and (boundp args) (symbol-value args)) + (substitute-in-file-name (symbol-value args)) ""))) (chess-message 'starting-engine-done name) proc)) -- cgit v1.2.3