From 2c6e900c22c5203ceebc40fc6baff20689f1512c Mon Sep 17 00:00:00 2001 From: Mario Lang Date: Tue, 20 Jan 2004 17:31:06 +0000 Subject: (chess-pos-to-fen): Dont emit a trailing / on rank 8. --- chess-fen.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'chess-fen.el') 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 "))) -- cgit v1.2.3