Merge branch 'master' of github.com:leoliu/ggtags

[gnu-emacs-elpa] / packages / gnugo / gnugo.el

diff --git a/packages/gnugo/gnugo.el b/packages/gnugo/gnugo.el
index 17133569e4964869d9130b1bf4d52f3639b96b5b..c25cee3ebd8f412a93c98e46de2a1cb18e719e1a 100644 (file)
--- a/packages/gnugo/gnugo.el
+++ b/packages/gnugo/gnugo.el
@@ -4,9 +4,10 @@
 
 ;; Author: Thien-Thi Nguyen <ttn@gnu.org>
 ;; Maintainer: Thien-Thi Nguyen <ttn@gnu.org>
-;; Version: 2.3.1
+;; Version: 3.0.0
 ;; Package-Requires: ((ascii-art-to-unicode "1.5") (xpm "1.0.1") (cl-lib "0.5"))
 ;; Keywords: games, processes
+;; URL: http://www.gnuvola.org/software/gnugo/
 
 ;; This program is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
@@ -81,13 +82,7 @@
 ;; Meta-Meta-Playing (aka Hacking)
 ;; -------------------------------
 ;;
-;; <http://git.sv.gnu.org/cgit/emacs/elpa.git/tree/packages/gnugo/HACKING>
-;;
-;;
-;; Tip Jar
-;; -------
-;;
-;; <http://www.gnuvola.org/software/gnugo/>
+;; <http://git.sv.gnu.org/cgit/emacs/elpa.git/tree/packages/gnugo/>
 
 ;;; Code:
 
@@ -97,7 +92,7 @@
 ;;;---------------------------------------------------------------------------
 ;;; Political arts
 
-(defconst gnugo-version "2.3.1"
+(defconst gnugo-version "3.0.0"
   "Version of gnugo.el currently loaded.
 This follows a MAJOR.MINOR.PATCH scheme.")
 
@@ -414,7 +409,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))
@@ -1907,7 +1902,7 @@ to the last move, as a comment."
         (cl-flet
             ((yep (pretty moment)
                   (push (format-time-string
-                         (concat pretty ": %Y-%m-%d %H:%M:%S %z\n")
+                         (concat pretty ": %F %T %z\n")
                          moment)
                         blurb)))
           (yep "Game start" beg)
@@ -2279,7 +2274,7 @@ See `gnugo-board-mode' for a full list of commands."
               (when (and (zerop handicap) actually)
                 (setq handicap (string-to-number (cadr actually)))))
             (r! :SZ board-size
-                :DT (format-time-string "%Y-%m-%d")
+                :DT (format-time-string "%F")
                 :RU (if (member "--chinese-rules" args)
                         "Chinese"
                       "Japanese")
@@ -2354,7 +2349,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))