diff options
| author | Mario Lang <mlang@delysid.org> | 2004-01-20 17:31:06 +0000 |
|---|---|---|
| committer | Mario Lang <mlang@delysid.org> | 2004-01-20 17:31:06 +0000 |
| commit | 2c6e900c22c5203ceebc40fc6baff20689f1512c (patch) | |
| tree | e417b998b09e5fd8cb14ec674469c2e1666a1fc5 | |
| parent | 87bea61c19c57fdc339163b8f56c932815d19c9e (diff) | |
(chess-pos-to-fen): Dont emit a trailing / on rank 8.
| -rw-r--r-- | chess-fen.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/chess-fen.el b/chess-fen.el index b428a5f..c372dc2 100644 --- a/chess-fen.el +++ b/chess-fen.el @@ -101,7 +101,7 @@ If FULL is non-nil, represent trailing spaces as well." (setq str (concat str (char-to-string p)))))) (if (and full (> blank 0)) (setq str (concat str (int-to-string blank)))) - (setq blank 0 str (concat str "/"))) + (if (< rank 7) (setq blank 0 str (concat str "/")))) (setq str (if (chess-pos-side-to-move position) (concat str " w ") (concat str " b "))) |