diff options
| -rw-r--r-- | chess-common.el | 2 | ||||
| -rw-r--r-- | chess.el | 8 |
2 files changed, 6 insertions, 4 deletions
diff --git a/chess-common.el b/chess-common.el index f32dcc5..0b258e4 100644 --- a/chess-common.el +++ b/chess-common.el @@ -40,7 +40,7 @@ (path (intern (concat "chess-" name "-path"))) proc) (chess-message 'starting-engine name) - (unless (boundp path) + (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))) @@ -156,7 +156,9 @@ If an element of MODULE-LIST is a sublist, treat it as alternatives." ;; this module is actually a list, which means keep trying ;; until we find one that works (while module - (if (setq object (apply create-func (car module) args)) + (if (setq object (condition-case nil + (apply create-func (car module) args) + ((error nil)))) (progn (push object objects) (setq module nil)) @@ -209,8 +211,8 @@ Otherwise use `chess-default-engine' to determine the engine." 'chess--create-engine game engine-response-handler engine-ctor-args) - ;(error nil)) - )) + ; (error nil)) + )) objects) (unless (car objects) |