diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-16 02:43:19 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-16 02:43:19 +0000 |
| commit | bd0bd1965bbc3a18c0f5a218e417778c295bdd1f (patch) | |
| tree | c58096b7b958fedf501f98b5cf46c88c723861f7 /chess-display.el | |
| parent | 40eddef43dfde4f1f14101e1f3bbc0d4621c8a37 (diff) | |
Major speed improvement and efficiency work. chess-legal-plies is
much more memory conservative now. Reduced recursion in
chess-search-position by a slight bit.
Diffstat (limited to 'chess-display.el')
| -rw-r--r-- | chess-display.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/chess-display.el b/chess-display.el index 8105664..d19a434 100644 --- a/chess-display.el +++ b/chess-display.el @@ -124,8 +124,8 @@ See `mode-line-format' for syntax details." (chess-with-current-buffer display (chess-display-set-index* nil 1) (chess-game-set-plies chess-module-game - (list ply (chess-ply-create - (chess-ply-next-pos ply)))))) + (list ply (chess-ply-create* + (chess-ply-next-pos ply) t))))) (defun chess-display-ply (display) (chess-with-current-buffer display @@ -920,7 +920,7 @@ Clicking once on a piece selects it; then click on the target location." (and (> t-piece ?a) (> s-piece ?a)))) (throw 'message (chess-string 'cannot-mount))) - (unless (setq ply (chess-ply-create position + (unless (setq ply (chess-ply-create position nil (cadr last-sel) coord)) (throw 'message (chess-string 'move-not-legal))) |