Index: emacs/lisp/play/gametree.el
diff -c emacs/lisp/play/gametree.el:1.9 emacs/lisp/play/gametree.el:1.10
*** emacs/lisp/play/gametree.el:1.9 Thu May 12 00:45:41 2005
--- emacs/lisp/play/gametree.el Mon May 16 11:17:43 2005
***************
*** 204,215 ****
gametree-half-ply-regexp "\\)"))
(limit (save-excursion (beginning-of-line 1) (point))))
(if (looking-at boundary)
! (+ (* 2 (string-to-int (match-string 1)))
(if (string-match gametree-half-ply-regexp (match-string 2)) 1
0))
(save-excursion
(re-search-backward boundary limit)
(skip-chars-backward "0123456789")
! (1+ (* 2 (string-to-int
(buffer-substring (point) (match-end 1))))))))))
(defun gametree-current-branch-ply ()
--- 204,215 ----
gametree-half-ply-regexp "\\)"))
(limit (save-excursion (beginning-of-line 1) (point))))
(if (looking-at boundary)
! (+ (* 2 (string-to-number (match-string 1)))
(if (string-match gametree-half-ply-regexp (match-string 2)) 1
0))
(save-excursion
(re-search-backward boundary limit)
(skip-chars-backward "0123456789")
! (1+ (* 2 (string-to-number
(buffer-substring (point) (match-end 1))))))))))
(defun gametree-current-branch-ply ()
***************
*** 345,351 ****
"Return score of current variation according to its score tag.
When no score tag is present, use the value of `gametree-default-score'."
(if (looking-at gametree-score-regexp)
! (string-to-int (match-string 3))
gametree-default-score))
(defun gametree-compute-reduced-score ()
--- 345,351 ----
"Return score of current variation according to its score tag.
When no score tag is present, use the value of `gametree-default-score'."
(if (looking-at gametree-score-regexp)
! (string-to-number (match-string 3))
gametree-default-score))
(defun gametree-compute-reduced-score ()
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
