diff options
| author | Mario Lang <mlang@delysid.org> | 2004-02-03 19:16:54 +0000 |
|---|---|---|
| committer | Mario Lang <mlang@delysid.org> | 2004-02-03 19:16:54 +0000 |
| commit | 36ed41887cc8c103c349afb18b4e263d8fa070af (patch) | |
| tree | ac2f69c191cb41857b2393b950d6845bbc1a7fdd /chess-tutorial.el | |
| parent | 49009415e3df8ca24405c0410f8a4eeee4f193d7 (diff) | |
(chess-tutorial): Simplify and add autoload.
Diffstat (limited to 'chess-tutorial.el')
| -rw-r--r-- | chess-tutorial.el | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/chess-tutorial.el b/chess-tutorial.el index 5a25113..cfa0a01 100644 --- a/chess-tutorial.el +++ b/chess-tutorial.el @@ -27,17 +27,17 @@ (chess-game-undo game 1)) (chess-error 'cannot-take-queen))))))) +;;;###autoload (defun chess-tutorial () + "A simple chess training display." (interactive) - (let* (chess-default-modules - (display (chess-create-display t))) - (with-current-buffer display - (chess-module-set-leader nil) - (chess-display-set-from-fen "8/3p1p/2p3p/4q/2p3p/3p1p/8/N w - -") - (chess-game-add-hook (chess-display-game nil) 'chess-tutorial-knight-1) - (setq chess-pos-always-white t) - (chess-display-popup nil) - (chess-message 'knight-1-done)))) + (with-current-buffer (chess-create-display t) + (chess-module-set-leader nil) + (chess-display-set-from-fen "8/3p1p/2p3p/4q/2p3p/3p1p/8/N w - -") + (chess-game-add-hook (chess-display-game nil) 'chess-tutorial-knight-1) + (setq chess-pos-always-white t) + (chess-display-popup nil) + (chess-message 'knight-1-done))) (provide 'chess-tutorial) |