diff options
| author | dickmao <dick.r.chiang@gmail.com> | 2018-08-27 17:00:35 -0400 |
|---|---|---|
| committer | dickmao <dick.r.chiang@gmail.com> | 2018-09-06 09:24:10 -0400 |
| commit | 3222b53d942daa404852e5148ba9d3ebb8fe96d0 (patch) | |
| tree | 37e2af6242423e57adbbc1238433f58c92ac9bd0 /chess-common.el | |
| parent | 67339d896aa65d75272b80134a8128276c8c6a0f (diff) | |
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)
Diffstat (limited to 'chess-common.el')
| -rw-r--r-- | chess-common.el | 5 |
1 files changed, 4 insertions, 1 deletions
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)) |