From c171394743d2a10cfe872ce076c5a8f7269d7b2b Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Wed, 17 Apr 2002 08:34:35 +0000 Subject: More general bug fixing, efficiency improvements, etc. --- chess-algebraic.el | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'chess-algebraic.el') diff --git a/chess-algebraic.el b/chess-algebraic.el index b84bf7d..0bdcac8 100644 --- a/chess-algebraic.el +++ b/chess-algebraic.el @@ -148,8 +148,7 @@ If LONG is non-nil, render the move into long notation." ((= rank 1) (setq differentiator (+ (- 7 from-rank) ?1))) (t (chess-error 'could-not-diff))) - (nconc (chess-ply-changes ply) - (list :which differentiator))))) + (chess-ply-set-keyword ply :which differentiator)))) (concat (unless (= (upcase from-piece) ?P) (char-to-string (upcase from-piece))) -- cgit v1.2.3