From e32c98000f00d9fe688c50be6e507218be1f570f Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Mon, 8 Apr 2002 11:38:06 +0000 Subject: *** no comment *** --- chess-engine.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'chess-engine.el') diff --git a/chess-engine.el b/chess-engine.el index 4c6c259..125bccb 100644 --- a/chess-engine.el +++ b/chess-engine.el @@ -58,7 +58,7 @@ ((eq event 'move) (chess-engine-do-move (car args))))) -(defun chess-engine-create (module &optional user-handler) +(defun chess-engine-create (module &optional user-handler &rest args) (let ((regexp-alist (intern-soft (concat (symbol-name module) "-regexp-alist"))) (handler (intern-soft (concat (symbol-name module) "-handler")))) @@ -67,7 +67,7 @@ chess-engine-event-handler handler chess-engine-response-handler (or 'chess-engine-default-handler user-handler)) - (let ((proc (funcall handler 'initialize))) + (let ((proc (apply handler 'initialize args))) (when (processp proc) (unless (memq (process-status proc) '(run open)) (error "Failed to start chess engine process")) -- cgit v1.2.3