diff options
| author | Mario Lang <mlang@delysid.org> | 2014-03-03 10:20:47 +0100 |
|---|---|---|
| committer | Mario Lang <mlang@delysid.org> | 2014-03-03 10:20:47 +0100 |
| commit | dd40131722c72b17f8e1480aa284c534f2607b83 (patch) | |
| tree | 7ed3eb638db431aac4aa7e2a24a0dbd072f5a24e | |
| parent | 6383bff886da38052b04c0168b431673b930a8a6 (diff) | |
`last-command-char' is gone in Emacs24, it is `last-command-event' now.
| -rw-r--r-- | chess-display.el | 4 | ||||
| -rw-r--r-- | chess-input.el | 9 |
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 |