From af77479cf17f24ed1fbb39743af2d180ca64df60 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Thu, 4 Apr 2002 18:49:22 +0000 Subject: bug fixes --- chess-plain.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'chess-plain.el') diff --git a/chess-plain.el b/chess-plain.el index c067664..466ba9b 100644 --- a/chess-plain.el +++ b/chess-plain.el @@ -79,7 +79,7 @@ PERSPECTIVE is t for white or nil for black." (make-string 8 (nth 1 chess-plain-border-chars)) (nth 2 chess-plain-border-chars) ?\n)) (while (if inverted (>= rank 0) (< rank 8)) - (if chess-plain-border-chars + (if chess-plain-draw-border (insert (number-to-string (- 8 rank)) (nth 3 chess-plain-border-chars))) (while (if inverted (>= file 0) (< file 8)) @@ -104,7 +104,8 @@ PERSPECTIVE is t for white or nil for black." (chess-rf-to-index rank file)))) (setq file (if inverted (1- file) (1+ file)))) (if chess-plain-draw-border - (insert (nth 4 chess-plain-border-chars) ?\n)) + (insert (nth 4 chess-plain-border-chars))) + (insert ?\n) (setq file (if inverted 7 0) rank (if inverted (1- rank) (1+ rank)))) (if chess-plain-draw-border -- cgit v1.2.3