diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-06 01:14:33 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-06 01:14:33 +0000 |
| commit | b148d84be1c3bd781c4fd11dd0a928fbeeda28fd (patch) | |
| tree | 7354cd5a84bb662aa34344a503c3654414f70a77 | |
| parent | 750eea1bd35c6d832296461f4e01b9bf8a5b1d27 (diff) | |
A workaround fix for a bug that prevents the RTL from building.
| -rw-r--r-- | chess-ics1.el | 10 |
1 files changed, 9 insertions, 1 deletions
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) |