diff options
author | Paul Eggert <eggert@cs.ucla.edu> | 2014-01-15 22:24:06 -0800 |
---|---|---|
committer | Paul Eggert <eggert@cs.ucla.edu> | 2014-01-15 22:24:06 -0800 |
commit | c91c771dbe242cd942c00a0a57c18c1482e59fa0 (patch) | |
tree | abb6fcaf49f4bda5eda2443fb5a6f7531a8a2a74 /lisp/play/gametree.el | |
parent | 7da02a6769e84cd0a9df8b1bc18ac78df1c0b058 (diff) | |
download | emacs-c91c771dbe242cd942c00a0a57c18c1482e59fa0.tar.gz |
Spelling fixes.
Diffstat (limited to 'lisp/play/gametree.el')
-rw-r--r-- | lisp/play/gametree.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/play/gametree.el b/lisp/play/gametree.el index 62dd56e3ba6..5bb3ca94afc 100644 --- a/lisp/play/gametree.el +++ b/lisp/play/gametree.el @@ -399,23 +399,23 @@ depth AT-DEPTH or smaller is found." (error (goto-char (point-max)) (if (not (bolp)) (insert "\n")))) - (let ((starting-plys + (let ((starting-plies (if (> (gametree-current-branch-depth) parent-depth) (gametree-current-branch-ply) (save-excursion (forward-line -1) (gametree-current-branch-ply))))) (goto-char (1- (point))) (insert "\n") - (insert (format (if (= 0 (mod starting-plys 2)) + (insert (format (if (= 0 (mod starting-plies 2)) gametree-full-ply-format gametree-half-ply-format) - (/ starting-plys 2)))))) + (/ starting-plies 2)))))) (defun gametree-break-line-here (&optional at-move) "Split the variation node at the point position. This command works whether the current variation node is a leaf, or is already branching at its end. The new node is created at a level that -reflects the number of game plys between the beginning of the current +reflects the number of game plies between the beginning of the current variation and the breaking point. With a numerical argument AT-MOVE, split the variation before @@ -436,7 +436,7 @@ only work of Black's moves are explicitly numbered, for instance (goto-char (match-beginning 0)))) (gametree-transpose-following-leaves) (let* ((pt (point-marker)) - (plys (gametree-current-branch-ply)) + (plies (gametree-current-branch-ply)) (depth (gametree-current-branch-depth)) (old-depth depth)) (if (= depth 0) @@ -451,7 +451,7 @@ only work of Black's moves are explicitly numbered, for instance (if (zerop old-branch-ply) (1+ (gametree-current-branch-depth)) (+ (gametree-current-branch-depth) - (- plys old-branch-ply)))))) + (- plies old-branch-ply)))))) (save-excursion (beginning-of-line 1) (funcall gametree-make-heading-function depth) @@ -471,7 +471,7 @@ only work of Black's moves are explicitly numbered, for instance (insert "\n") (if (not (= 0 old-depth)) (funcall gametree-make-heading-function - (+ depth (- (gametree-current-branch-ply) plys)))) + (+ depth (- (gametree-current-branch-ply) plies)))) (gametree-prettify-heading)))) (defun gametree-merge-line () |