[elpa] externals/gnugo 6573d16 065/357: [gnugo int] Add abstraction: gnugo--compare-strings

[Stefan Monnier]

branch: externals/gnugo
commit 6573d1670b86ea5c8ab9f0b591b4bb08d57094d9
Author: Thien-Thi Nguyen <ttn@gnu.org>
Commit: Thien-Thi Nguyen <ttn@gnu.org>

    [gnugo int] Add abstraction: gnugo--compare-strings
    
    * packages/gnugo/gungo.el (gnugo--compare-strings): New defsubst.
    (gnugo--q, gnugo-merge-showboard-results): Use it.
---
 gnugo.el | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/gnugo.el b/gnugo.el
index 917579c..578fc81 100644
--- a/gnugo.el
+++ b/gnugo.el
@@ -173,6 +173,9 @@ For ~t, the value is a snapshot, use `gnugo-refresh' to 
update it.")
 ;;;---------------------------------------------------------------------------
 ;;; Support functions
 
+(defsubst gnugo--compare-strings (s1 beg1 s2 beg2)
+  (compare-strings s1 beg1 nil s2 beg2 nil))
+
 (defun gnugo-put (key value)
   "Associate move/game/board-specific property KEY with VALUE.
 
@@ -343,11 +346,10 @@ status of the command.  See also `gnugo-query'."
                (let ((full (concat (process-get proc :srs)
                                    string)))
                  (process-put proc :srs full)
-                 (unless (numberp (compare-strings
+                 (unless (numberp (gnugo--compare-strings
                                    full (max 0 (- (length full)
                                                   2))
-                                   nil
-                                   "\n\n" nil nil))
+                                   "\n\n" nil))
                    (process-put proc :incomplete nil))))
       (if (null args)
           fmt
@@ -563,8 +565,9 @@ when you are sure the command cannot fail."
         (bef-start 0) (bef-idx 0)
         (aft-start 0) (aft-idx 0)
         aft-sync-backtrack mis inc cut new very-strange)
-    (while (numberp (setq mis (compare-strings bef bef-start nil
-                                               aft aft-start nil)))
+    (while (numberp (setq mis (gnugo--compare-strings
+                               bef bef-start
+                               aft aft-start)))
       (setq aft-sync-backtrack nil
             inc (if (cl-minusp mis)
                     (- (+ 1 mis))