From 7987c62e7eb9a13cb9098dbd56b950bfa8714c0c Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Mon, 22 Apr 2002 19:28:46 +0000 Subject: bug fixes --- chess.el | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) (limited to 'chess.el') diff --git a/chess.el b/chess.el index 8018a5f..ba87480 100644 --- a/chess.el +++ b/chess.el @@ -206,16 +206,16 @@ available." (defalias 'chess-session 'chess) ;;;###autoload -(defun chess-create-display (perspective &optional display-only) +(defun chess-create-display (perspective &optional modules-too) "Create a display, letting the user's customization decide the style. -If DISPLAY-ONLY is non-nil, then only a display is created, with none -of the usual ancillary modules." - (if display-only - (car (chess-create-modules (list chess-default-display) - 'chess--create-display - (chess-game-create) perspective nil)) - (let ((display (cadr (chess-session 'none)))) - (chess-display-set-perspective* display perspective)))) +If MODULES-TOO is non-nil, also create and associate the modules +listed in `chess-default-modules'." + (if modules-too + (let ((display (cadr (chess-session 'none)))) + (chess-display-set-perspective* display perspective)) + (car (chess-create-modules (list chess-default-display) + 'chess--create-display + (chess-game-create) perspective nil)))) (provide 'chess) -- cgit v1.2.3