diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-10 01:17:48 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-10 01:17:48 +0000 |
| commit | 0bad9bdd7634f039d5a30cfb19b100bbfe54d18e (patch) | |
| tree | 3582adb2f5cafdd7b54957b019910f852d00f6ba /chess-algebraic.el | |
| parent | 92dd9a7cb23d4ab14102e02a9f45f096fe8fff13 (diff) | |
Support smart killing/yanking
Diffstat (limited to 'chess-algebraic.el')
| -rw-r--r-- | chess-algebraic.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/chess-algebraic.el b/chess-algebraic.el index 7aebdf3..69cb073 100644 --- a/chess-algebraic.el +++ b/chess-algebraic.el @@ -57,6 +57,7 @@ This regexp handles both long and short form.") (error "Cannot parse non-algebraic move notation: %s" move)) (let* ((color (chess-pos-side-to-move position)) (mate (match-string 10 move)) + (promotion (match-string 9 move)) (piece (aref move 0)) (changes (if (eq piece ?O) @@ -96,6 +97,9 @@ This regexp handles both long and short form.") (if (null which) (error "Could not determine which piece to use") (list which target))))))))))) + (if promotion + (nconc changes + (list :promote (aref promotion 0)))) (if mate (nconc changes (list (if (equal mate "#") |