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 /chess-input.el | |
| parent | 6383bff886da38052b04c0168b431673b930a8a6 (diff) | |
`last-command-char' is gone in Emacs24, it is `last-command-event' now.
Diffstat (limited to 'chess-input.el')
| -rw-r--r-- | chess-input.el | 9 |
1 files changed, 5 insertions, 4 deletions
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 |