diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-03-28 08:29:09 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-03-28 08:29:09 +0000 |
| commit | fc23f824fa3ea525251cf71b6fc0c277c30ed398 (patch) | |
| tree | da6d8bceff255867821c1a57fbcbcdc4a3aa3b69 /chess-algebraic.el | |
| parent | 871e9bb270b35c621265fc56ec582bdd39900e2a (diff) | |
Made the display code into part of the core library.
Diffstat (limited to 'chess-algebraic.el')
| -rw-r--r-- | chess-algebraic.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/chess-algebraic.el b/chess-algebraic.el index d32bbbb..bee9731 100644 --- a/chess-algebraic.el +++ b/chess-algebraic.el @@ -76,7 +76,8 @@ This regexp handles both long and short form.") ;; move, to determine which piece is meant by the ;; piece indicator (when (setq candidates - (funcall (or search-func chess-standard-search) + (funcall (or search-func + 'chess-standard-search-position) position target (if color piece (downcase piece)))) (if (= (length candidates) 1) @@ -119,9 +120,9 @@ If LONG is non-nil, render the move into long notation." (if (= to (chess-rf-to-index (if color 7 0) 2)) "O-O-O")))) str - (let ((candidates - (funcall (or search-func chess-standard-search) - pos to from-piece)) + (let ((candidates (funcall (or search-func + 'chess-standard-search-position) + pos to from-piece)) (rank 0) (file 0) (from-rank (/ from 8)) (from-file (mod from 8)) |