From fc23f824fa3ea525251cf71b6fc0c277c30ed398 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Thu, 28 Mar 2002 08:29:09 +0000 Subject: Made the display code into part of the core library. --- chess-algebraic.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'chess-algebraic.el') 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)) -- cgit v1.2.3