Added chess-log.el, as an aid to debugging.

1 files changed, 20 insertions, 0 deletions

diff --git a/chess-log.el b/chess-log.el
new file mode 100644
index 0000000..383da10
--- /dev/null
+++ b/chess-log.el
@@ -0,0 +1,20 @@
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;
+;; Log chess events, as an aid to debugging
+;;
+
+;;; Commentary:
+
+(require 'chess-module)
+
+(defgroup chess-log nil
+  "Code for logging chess events."
+  :group 'chess)
+
+(defun chess-log (&rest args)
+  (with-current-buffer (get-buffer-create "*Chess Log*")
+    (insert (apply 'format args) ?\n)))
+
+(provide 'chess-log)
+
+;;; chess-log.el ends here