[Emacs-diffs] Changes to emacs/lisp/play/gametree.el

[Juanma Barranquero]

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 ()