diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-04 18:49:22 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-04 18:49:22 +0000 |
| commit | af77479cf17f24ed1fbb39743af2d180ca64df60 (patch) | |
| tree | 6429da77ee5857630e2a960624e111b6b10b0278 /chess-plain.el | |
| parent | c3f24aabda7fdefd4672367641aae1a80789a8f2 (diff) | |
bug fixes
Diffstat (limited to 'chess-plain.el')
| -rw-r--r-- | chess-plain.el | 5 |
1 files changed, 3 insertions, 2 deletions
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 |