*** no comment ***

diff --git a/TODO b/TODO
index 2397b453114235bbf2b864f1a49991bac9c60666..d13646b03369ec9d0e94b66d3fb228a4b4382db7 100644 (file)
--- a/TODO
+++ b/TODO
@@ -35,6 +35,8 @@
   hook.  Then, if you like the result, it call be a `set' on the
   original board from the copied board.
 
+- Make the mode-line much more informative
+
 ----------------------------------------------------------------------
 
 - Port image display code to XEmacs

diff --git a/chess-engine.el b/chess-engine.el
index 125bccb53e06e98af879d9394a9181d1e7a7cb1b..318c205f9caa2bab7ce5f994e6ded9303afa83fa 100644 (file)
--- a/chess-engine.el
+++ b/chess-engine.el
@@ -65,8 +65,8 @@
     (with-current-buffer (generate-new-buffer " *chess-engine*")
       (setq chess-engine-regexp-alist (symbol-value regexp-alist)
            chess-engine-event-handler handler
-           chess-engine-response-handler (or 'chess-engine-default-handler
-                                             user-handler))
+           chess-engine-response-handler (or user-handler
+                                             'chess-engine-default-handler))
       (let ((proc (apply handler 'initialize args)))
        (when (processp proc)
          (unless (memq (process-status proc) '(run open))

diff --git a/chess-images.el b/chess-images.el
index b7f0cc68bd95a2cd561c0070786acb511088ac8d..97117805dd8e7c1b750237ce8f90a974b1aad69e 100644 (file)
--- a/chess-images.el
+++ b/chess-images.el
@@ -44,8 +44,9 @@
 (defcustom chess-images-directory
   (if (file-directory-p "/usr/share/games/xboard/pixmaps")
       "/usr/share/games/xboard/pixmaps"
-    (expand-file-name "pieces" (file-name-directory
-                               (or load-file-name buffer-file-name))))
+    (expand-file-name "pieces/xboard"
+                     (file-name-directory
+                      (or load-file-name buffer-file-name))))
   "Directory containing the chess piece bitmap images.
 You are free to use your own chess pieces, of any size.  By default, I
 assume you have xboard installed, or can go get the pixmaps that come
@@ -162,6 +163,9 @@ that specialized squares may be used such as marble tiles, etc."
                                  (display-pixel-width)) 20)))))
 
 (defun chess-images-popup-board ()
+  (unless chess-images-size
+    (error "Cannot find any piece images; check `chess-images-directory'"))
+
   (let* ((size (float (+ (* (or chess-images-border-width 0) 8)
                         (* chess-images-size 8))))
         (max-char-height (ceiling (/ size (frame-char-height))))

diff --git a/chess-transport.el b/chess-transport.el
index f4a72d8c36a25a8d6ef1f069cad52f195f12168f..5d9e5b773b77fc6fc822a0f9f015cfa8f0e08932 100644 (file)
--- a/chess-transport.el
+++ b/chess-transport.el
@@ -18,7 +18,9 @@
     ;; Initialize the transport here, if necessary.  Make sure that
     ;; any housekeeping data you use is kept in buffer-local
     ;; variables.  Otherwise, multiple games played using the same
-    ;; kind of transport might collide.
+    ;; kind of transport might collide.  For example:
+    ;;
+    ;; (set (make-local-variable 'chess-transport-data) (car args))
     )
 
    ((eq event 'send)