diff options
| author | Mario Lang <mlang@delysid.org> | 2014-03-03 01:04:02 +0100 |
|---|---|---|
| committer | Mario Lang <mlang@delysid.org> | 2014-03-03 01:04:02 +0100 |
| commit | 6383bff886da38052b04c0168b431673b930a8a6 (patch) | |
| tree | 68357df0d30e0ca48d2d7d3bd0de97db534ec25a /chess-display.el | |
| parent | 63a0eac02cf782a5cf4cd402984d47ff9414c106 (diff) | |
Fix (some) Emacs24 compatibility issues.
Diffstat (limited to 'chess-display.el')
| -rw-r--r-- | chess-display.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/chess-display.el b/chess-display.el index 2807a82..4957f82 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 (interactive-p) + (if (not (or executing-kbd-macro noninteractive)) (progn (chess-display-update display) (chess-display-popup display)) @@ -1100,9 +1100,9 @@ to the end or beginning." (if (or (null piece) (characterp piece)) (let ((index (get-text-property (point) 'chess-coord))) (chess-pos-set-piece chess-display-edit-position index - (or piece last-command-char)) + (or piece last-command-event)) (funcall chess-display-event-handler 'draw-square - (point) (or piece last-command-char) index)))) + (point) (or piece last-command-event) index)))) (unless (fboundp 'event-window) (defalias 'event-point 'ignore)) |