diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-15 05:40:38 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-15 05:40:38 +0000 |
| commit | 6fbcc92505250d896b5d408483822b115bc614c7 (patch) | |
| tree | bd360156e0855b1ee5a113a4d86e892ae23a8365 /chess-display.el | |
| parent | 82a87e7216f16f2c8336a2c0625c214f3e0834cc (diff) | |
*** no comment ***
Diffstat (limited to 'chess-display.el')
| -rw-r--r-- | chess-display.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/chess-display.el b/chess-display.el index 86a01a4..7d6356f 100644 --- a/chess-display.el +++ b/chess-display.el @@ -326,12 +326,12 @@ See `chess-display-type' for the different kinds of displays." (define-key map [(control ?y)] 'chess-display-yank-board) (dolist (key '(?a ?b ?c ?d ?e ?f ?g ?h - ?1 ?2 ?3 ?4 ?5 ?6 ?7 ?8 - ?r ?n ?b ?q ?k ?o - ?R ?N ?B ?Q ?K ?O)) + ?1 ?2 ?3 ?4 ?5 ?6 ?7 ?8 + ?r ?n ?b ?q ?k + ?R ?N ?B ?Q ?K + ?o ?O ?x)) (define-key map (vector key) 'chess-keyboard-shortcut)) (define-key map [backspace] 'chess-keyboard-shortcut-delete) - (define-key map [?x] 'ignore) (define-key map [(control ?m)] 'chess-display-select-piece) (define-key map [return] 'chess-display-select-piece) @@ -804,7 +804,8 @@ to the end or beginning." (while (and (< i l) (< x xl)) (let ((move-char (aref move i)) (entry-char (aref chess-move-string x))) - (if (= move-char ?x) + (if (and (= move-char ?x) + (/= entry-char ?x)) (setq i (1+ i)) (if (/= entry-char (if (< entry-char ?a) move-char |