(chess-engine-create), (chess-engine-command): Docstrings. (chess-engine-filter): bind case-fold-search to nil.

1 files changed, 5 insertions, 1 deletions

diff --git a/chess-engine.el b/chess-engine.el
index f11787e..1398bb4 100644
--- a/chess-engine.el
+++ b/chess-engine.el
@@ -289,6 +289,8 @@ If conversion fails, this function fired an 'illegal event."
 
 (defun chess-engine-create (module game &optional response-handler
 				 &rest handler-ctor-args)
+  "Create a new chess engine MODULE (a symbol) associated with GAME.
+Optionally supply a new RESPONSE-HANDLER."
   (let* ((engine (apply 'chess-module-create module game nil
 			handler-ctor-args)))
     (when engine
@@ -312,6 +314,7 @@ If conversion fails, this function fired an 'illegal event."
 (defalias 'chess-engine-destroy 'chess-module-destroy)
 
 (defun chess-engine-command (engine event &rest args)
+  "Call the handler of ENGINE with EVENT (a symbol) and ARGS."
   (chess-with-current-buffer engine
     (apply chess-module-event-handler chess-module-game event args)))
 
@@ -426,7 +429,8 @@ event handler can take care of the data."
 	      (goto-char (point-min)))
 	    (unwind-protect
 		(while (not (eobp))
-		  (let ((triggers chess-engine-regexp-alist)
+		  (let ((case-fold-search nil)
+			(triggers chess-engine-regexp-alist)
 			last-trigger result)
 		    (while triggers
 		      ;; this could be accelerated by joining