diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-11 01:36:27 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-11 01:36:27 +0000 |
| commit | 899d559886410a9dca43ae793496c6384e381b43 (patch) | |
| tree | 7e2bf3f21ef6151f93f671b1fa2a45cb1f72a101 /chess-algebraic.el | |
| parent | b95fa9f2840a8006b149e5a957228c91d3284dcf (diff) | |
*** no comment ***
Diffstat (limited to 'chess-algebraic.el')
| -rw-r--r-- | chess-algebraic.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/chess-algebraic.el b/chess-algebraic.el index f014a26..25b13a4 100644 --- a/chess-algebraic.el +++ b/chess-algebraic.el @@ -114,7 +114,9 @@ This regexp handles both long and short form.") (defun chess-ply-to-algebraic (ply &optional long) "Convert the given PLY to algebraic notation. If LONG is non-nil, render the move into long notation." - (if (null (car (chess-ply-changes ply))) + (if (let ((first (car (chess-ply-changes ply)))) + (or (null first) + (symbolp first))) "" (let* ((pos (chess-ply-pos ply)) (changes (chess-ply-changes ply)) |