From 36ed41887cc8c103c349afb18b4e263d8fa070af Mon Sep 17 00:00:00 2001 From: Mario Lang Date: Tue, 3 Feb 2004 19:16:54 +0000 Subject: (chess-tutorial): Simplify and add autoload. --- chess-tutorial.el | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) (limited to 'chess-tutorial.el') 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) -- cgit v1.2.3