From 6b148f8d5cb39ee047db85fb5788abe8c9cd7f2b Mon Sep 17 00:00:00 2001
From: Mario Lang <mlang@delysid.org>
Date: Mon, 24 Mar 2014 14:44:39 +0100
Subject: Parse UCI long algebraic moves correctly.

---
 chess-glaurung.el | 13 ++-----------
 1 file changed, 2 insertions(+), 11 deletions(-)

(limited to 'chess-glaurung.el')

diff --git a/chess-glaurung.el b/chess-glaurung.el
index 5ce6042..f3ff03e 100644
--- a/chess-glaurung.el
+++ b/chess-glaurung.el
@@ -34,17 +34,8 @@
   :type 'file
   :group 'chess-glaurung)
 
-(defvar chess-glaurung-regexp-alist
-  (list
-   (cons (concat "^bestmove\\s-+\\(" chess-algebraic-regexp "\\)")
-	 (function
-	  (lambda ()
-	    (funcall chess-engine-response-handler 'move
-		     (chess-engine-convert-algebraic (match-string 1) t)))))
-   (cons "^id\\s-+name\\s-+\\(.+\\)$"
-	 (function
-	  (lambda ()
-	    (setq-local chess-engine-opponent-name (match-string 1)))))))
+(defvar chess-glaurung-regexp-alist chess-uci-regexp-alist
+  "Patterns used to match engine output.")
 
 (defun chess-glaurung-handler (game event &rest args)
   (unless chess-engine-handling-event
-- 
cgit v1.2.3