[elpa] 01/01: [gnugo int] Use idiomatic ‘re-search-forward’ BOUND.

[Thien-Thi Nguyen]

ttn pushed a commit to branch master
in repository elpa.

commit 731ee86112be428017fcd91d8b8ac0d4fcf6d37c
Author: Thien-Thi Nguyen <address@hidden>
Date:   Mon Jul 21 07:45:05 2014 +0200

    [gnugo int] Use idiomatic ‘re-search-forward’ BOUND.
    
    * packages/gnugo/gnugo.el (gnugo-describe-internal-properties)
    (:gnugo-gtp-command-spec help): Specify ‘nil’ for
    for re-search-forward 2nd arg instead of ‘(point-max)’.
---
 packages/gnugo/gnugo.el |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/packages/gnugo/gnugo.el b/packages/gnugo/gnugo.el
index 71164e5..59d60df 100644
--- a/packages/gnugo/gnugo.el
+++ b/packages/gnugo/gnugo.el
@@ -414,7 +414,7 @@ Handle the big, slow-to-render, and/or uninteresting ones 
specially."
                         (if (string= "" d)
                             ".+\n"
                           ""))))
-        (while (re-search-forward rx (point-max) t)
+        (while (re-search-forward rx nil t)
           (let ((pos (get-text-property (string-to-number (match-string 1))
                                         'gnugo-position buf)))
             (delete-region (+ 2 (match-beginning 0)) (point))
@@ -2354,7 +2354,7 @@ See `gnugo-board-mode' for a full list of commands."
             (goto-char (point-min))
             (save-excursion
               (while (re-search-forward "^ *[*] \\([a-zA-Z_]+\\)\\(:.*\\)*\n"
-                                        (point-max) t)
+                                        nil t)
                 (unless pad
                   (setq pad (make-string (- (match-beginning 1)
                                             (match-beginning 0))