[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] 01/01: * chess-game.el (chess-game-add-ply): Fix docstring.
From: |
Mario Lang |
Subject: |
[elpa] 01/01: * chess-game.el (chess-game-add-ply): Fix docstring. |
Date: |
Sun, 08 Jun 2014 10:20:03 +0000 |
mlang pushed a commit to branch externals/chess
in repository elpa.
commit 05e12b7b9f70229a43d733df393a47e19a86a966
Author: Mario Lang <address@hidden>
Date: Sun Jun 8 12:19:53 2014 +0200
* chess-game.el (chess-game-add-ply): Fix docstring.
---
chess-game.el | 4 +---
1 files changed, 1 insertions(+), 3 deletions(-)
diff --git a/chess-game.el b/chess-game.el
index aace91b..a61438a 100644
--- a/chess-game.el
+++ b/chess-game.el
@@ -230,7 +230,7 @@ If INDEX is non-nil, the last played ply is returned."
(car (last (chess-game-plies game)))))
(defun chess-game-add-ply (game ply)
- "Return the position related to GAME's INDEX position."
+ "Add PLY to the main variation of GAME."
(cl-assert game)
(cl-check-type ply listp)
(let ((plies (chess-game-plies game)))
@@ -253,7 +253,6 @@ If INDEX is non-nil, the last played ply is returned."
(chess-game-set-plies game (nbutlast (chess-game-plies game) count)))
(chess-game-run-hooks game 'post-undo count))
-
(defun chess-game-strip-annotations (game)
"Strip all annotations from the given GAME."
(cl-assert game)
@@ -261,7 +260,6 @@ If INDEX is non-nil, the last played ply is returned."
(let ((position (chess-game-pos game i)))
(chess-pos-set-annotations position nil))))
-
(defsubst chess-game-over-p (game)
"Return non-nil if GAME is at a final positionn."
(cl-assert game)