From b148d84be1c3bd781c4fd11dd0a928fbeeda28fd Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Sat, 6 Apr 2002 01:14:33 +0000 Subject: A workaround fix for a bug that prevents the RTL from building. --- chess-ics1.el | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/chess-ics1.el b/chess-ics1.el index 33e0a75..e086772 100644 --- a/chess-ics1.el +++ b/chess-ics1.el @@ -8,6 +8,13 @@ ;;; Code: +(defun chess-display-position (&optional position) + "This is a debugging function, and not meant from general use." + (interactive) + (let ((pos (or position (chess-engine-position nil)))) + (with-current-buffer (get-buffer-create "*scratch*") + (chess-ics1-draw pos)))) + (defun chess-ics1-draw (&optional disppos) "Draw the given POSITION from PERSPECTIVE's point of view. PERSPECTIVE is t for white or nil for black." @@ -17,7 +24,8 @@ PERSPECTIVE is t for white or nil for black." (pos (point))) (erase-buffer) (let* ((position (or disppos (chess-display-position nil))) - (inverted (null (chess-display-perspective nil))) + (inverted (and (null disppos) + (null (chess-display-perspective nil)))) (rank (if inverted 7 0)) (file (if inverted 7 0)) beg) -- cgit v1.2.3