`last-command-char' is gone in Emacs24, it is `last-command-event' now.

2 files changed, 7 insertions, 6 deletions

diff --git a/chess-display.el b/chess-display.el
index 4957f82..bcdc12e 100644
--- a/chess-display.el
+++ b/chess-display.el
@@ -121,7 +121,7 @@ of the board, if non-nil, the board is viewed from White's perspective."
       (let* ((chess-display-style style)
 	     (display (chess-module-create 'chess-display game "*Chessboard*"
 			     perspective)))
-	(if (not (or executing-kbd-macro noninteractive))
+	(if (called-interactively-p 'any)
 	    (progn
 	      (chess-display-update display)
 	      (chess-display-popup display))
@@ -955,7 +955,7 @@ Basically, it means we are playing, not editing or reviewing."
 	      (ibuffer-maybe-show-regexps nil))
 	  (fset 'buffer-list
 		(function
-		 (lambda ()
+		 (lambda (&optional frame)
 		   (delq nil
 			 (mapcar (function
 				  (lambda (cell)
diff --git a/chess-input.el b/chess-input.el
index 382c8b9..200b272 100644
--- a/chess-input.el
+++ b/chess-input.el
@@ -72,13 +72,14 @@
     (unless display-only
       (setq chess-input-move-string
 	    (concat chess-input-move-string
-		    (char-to-string last-command-char))))
+		    (char-to-string last-command-event))))
     (unless (and chess-input-moves
 		 (eq position chess-input-moves-pos)
 		 (or (> (length chess-input-move-string) 1)
-		     (eq (car chess-input-moves) last-command-char)))
-      (setq char (if (eq (downcase last-command-char) ?o) ?k
-		   last-command-char))
+		     (eq (car chess-input-moves) last-command-event)))
+      (setq char (if (eq (downcase last-command-event) ?o)
+		     ?k
+		   last-command-event))
       (if (or (memq (upcase char) '(?K ?Q ?N ?B ?R ?P))
 	      (and (>= char ?a) (<= char ?h)))
 	  (setq chess-input-moves-pos position