*** no comment ***

6 files changed, 15 insertions, 14 deletions

diff --git a/Makefile b/Makefile
index efa00cd..6880566 100644
--- a/Makefile
+++ b/Makefile
@@ -58,7 +58,9 @@ CAT=$(shell echo $(VERSION) | perl -ne 'print $$1 if /[-0-9]+([ab])[0-9]+/;')
 SUB=$(shell echo $(VERSION) | perl -ne 'print $$1 if /[-0-9]+[ab]([0-9]+)/;')
 NEXT=$(shell expr $(SUB) + 1)
 
-update: dist fullclean
+update: dist
 	cvs tag chess-$(TAG)
 	perl -i -pe 's/(chess-version.*)"([0-9.]+)[ab][0-9]+"/$$1"$$2$(CAT)$(NEXT)"/;' chess.el
 	cvs commit -m "bumped minor rev" chess.el
+	make fullclean
+	sitecopy
diff --git a/chess-clock.el b/chess-clock.el
index 3c8208a..3ded9a9 100644
--- a/chess-clock.el
+++ b/chess-clock.el
@@ -35,9 +35,9 @@
   (cond
    ((eq event 'initialize)
     (unless (chess-game-data game 'white-remaining)
-      (chess-game-set-data game 'white-remaining (float (car args))))
+      (chess-game-set-data game 'white-remaining (float (or (car args) 0))))
     (unless (chess-game-data game 'black-remaining)
-      (chess-game-set-data game 'black-remaining (float (car args))))
+      (chess-game-set-data game 'black-remaining (float (or (car args) 0))))
     (setq chess-clock-timer
 	  (run-with-timer 0 1 'chess-clock-tick-tock (current-buffer)))
     t)
diff --git a/chess-display.el b/chess-display.el
index 6c1e6d1..8c0444d 100644
--- a/chess-display.el
+++ b/chess-display.el
@@ -63,8 +63,8 @@
 					 'black-remaining)))
 	     (if (and white black)
 		 (format "   W %02d:%02d B %02d:%02d"
-			 (/ (floor white) 60) (% (floor white) 60)
-			 (/ (floor black) 60) (% (floor black) 60))))))
+			 (/ (floor white) 60) (% (abs (floor white)) 60)
+			 (/ (floor black) 60) (% (abs (floor black)) 60))))))
   "The format of a chess display's modeline.
 See `mode-line-format' for syntax details."
   :type 'sexp
diff --git a/chess.el b/chess.el
index e99e697..6b93822 100644
--- a/chess.el
+++ b/chess.el
@@ -83,7 +83,7 @@
   "An Emacs chess playing program."
   :group 'games)
 
-(defconst chess-version "2.0a8"
+(defconst chess-version "2.0a9"
   "The version of the Emacs chess program.")
 
 (defcustom chess-default-display
@@ -101,7 +101,7 @@ not available."
 A sublist indicates a series of alternatives, if the first is not
 available.
 These can do just about anything."
-  :type '(choice symbol (repeat symbol))
+  :type '(repeat (choice symbol (repeat symbol)))
   :group 'chess)
 
 (defcustom chess-default-engine
diff --git a/chess.texi b/chess.texi
index 340378f..6e5df36 100644
--- a/chess.texi
+++ b/chess.texi
@@ -368,7 +368,7 @@ object.
 
 @c lispfun chess-display-create
 
-@c lispfun chess-display-destroy
+@c lispfun/c chess-display-destroy
 
 @chapter Chessboard displays
 
@@ -376,8 +376,6 @@ object.
 
 @c lispfun chess-display-clear-board
 
-@c lispfun chess-display-detach-game
-
 @c lispfun chess-display-game
 
 @c lispfun chess-display-highlight
@@ -428,7 +426,7 @@ object.
 
 @c lispfun chess-engine-option
 
-@c lispfun chess-engine-destroy
+@c lispfun/c chess-engine-destroy
 
 @c lispfun chess-engine-set-position
 
@@ -444,8 +442,6 @@ object.
 
 @c lispfun chess-engine-command
 
-@c lispfun chess-engine-detach-game
-
 @c lispfun chess-engine-send
 
 @unnumbered Concept Index
diff --git a/lispdoc.el b/lispdoc.el
index ba5fdfd..31da3b9 100644
--- a/lispdoc.el
+++ b/lispdoc.el
@@ -15,7 +15,10 @@
 	    (delete-region begin end))
 	(let* ((sym (or (intern-soft name)
 			(error "'%s' is not a function!" name)))
-	       (data (symbol-function sym))
+	       (data (let ((func (symbol-function sym)))
+		       (while (symbolp func)
+			 (setq func (symbol-function func)))
+		       func))
 	       (args (pp-to-string (if (listp data)
 				       (cadr data)
 				     (aref data 0))))