diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-17 08:34:35 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-17 08:34:35 +0000 |
| commit | c171394743d2a10cfe872ce076c5a8f7269d7b2b (patch) | |
| tree | 0906d6eb3a7d9e6367e22d32ea1158db2d759f53 /chess-algebraic.el | |
| parent | 4d1c4c72b5a9c2c0180531246389a452fc034bc8 (diff) | |
More general bug fixing, efficiency improvements, etc.
Diffstat (limited to 'chess-algebraic.el')
| -rw-r--r-- | chess-algebraic.el | 3 |
1 files changed, 1 insertions, 2 deletions
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))) |