From 0e811560c1a7f374ea1eccb878b0b64adf54675d Mon Sep 17 00:00:00 2001 From: Mario Lang Date: Mon, 24 Mar 2014 10:03:22 +0100 Subject: Make engine searching work again. --- chess-common.el | 2 +- 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))) diff --git a/chess.el b/chess.el index 4d24771..da0a452 100644 --- a/chess.el +++ b/chess.el @@ -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) -- cgit v1.2.3