[elpa] master 58d4776 2/4: [gnugo] Move two funcs internal.

[Thien-Thi Nguyen]

branch: master
commit 58d4776259a181a5121becec70df9ae33a94038c
Author: Thien-Thi Nguyen <ttn@gnu.org>
Commit: Thien-Thi Nguyen <ttn@gnu.org>

    [gnugo] Move two funcs internal.
    
    * packages/gnugo/gnugo.el (gnugo-put): Update docstring.
    (gnugo--propertize-board-buffer):
    Rename from ‘gnugo-propertize-board-buffer’.
    (gnugo--merge-showboard-results):
    Rename from ‘gnugo-merge-showboard-results’.
---
 packages/gnugo/gnugo.el | 15 ++++++---------
 1 file changed, 6 insertions(+), 9 deletions(-)

diff --git a/packages/gnugo/gnugo.el b/packages/gnugo/gnugo.el
index b605d9c..cf155da 100644
--- a/packages/gnugo/gnugo.el
+++ b/packages/gnugo/gnugo.el
@@ -267,10 +267,7 @@ you may never really understand to any degree of personal 
satisfaction\".
  :waiting-start
 
  :black-captures -- these are strings since gnugo.el doesn't do anything
- :white-captures    w/ the information besides display it in the mode line;
-                    gory details in functions `gnugo-propertize-board-buffer'
-                    and `gnugo-merge-showboard-results' (almost more effort
-                    than they are worth!)
+ :white-captures    w/ the information besides display it in the mode line
 
  :display-using-images -- XPMs, to be precise; see functions `gnugo-yy',
                           `gnugo-image-display-mode' and `gnugo-refresh',
@@ -576,7 +573,7 @@ Otherwise, use the `car' of YANG.  See `gnugo-yang'."
                               'intangible)
   "Text property that controls intangibility.")
 
-(defun gnugo-propertize-board-buffer ()
+(defun gnugo--propertize-board-buffer ()
   (erase-buffer)
   (insert (substring (gnugo--q "showboard") 3))
   (let* ((grid-props (list 'invisible :nogrid
@@ -662,7 +659,7 @@ Otherwise, use the `car' of YANG.  See `gnugo-yang'."
     (put-text-property (point) (line-end-position)
                        'category %gspc)))
 
-(defun gnugo-merge-showboard-results ()
+(defun gnugo--merge-showboard-results ()
   (let ((aft (substring (gnugo--q "showboard") 3))
         (adj 1)                         ; string to buffer position adjustment
 
@@ -936,7 +933,7 @@ For all other values of RSEL, do nothing and return nil."
     (unless resignp
       (gnugo--q/ue "play %s %s" color move))
     (unless passp
-      (gnugo-merge-showboard-results))
+      (gnugo--merge-showboard-results))
     (gnugo-put :last-mover color)
     (when (if simple
               who
@@ -1085,7 +1082,7 @@ its move."
       (dolist (group (apply #'append (mapcar #'cdr game-over)))
         (gnugo--zonk-ovs (cdar group))
         (setcdr (car group) nil))
-      (gnugo-propertize-board-buffer))
+      (gnugo--propertize-board-buffer))
     ;; last move
     (when move
       (cl-destructuring-bind (l-ov . r-ov) (gnugo-get :paren-ov)
@@ -1681,7 +1678,7 @@ If FILENAME already exists, Emacs confirms that you wish 
to overwrite it."
                 (gnugo--no-worries (gnugo--q "undo")))
       (pop (aref monkey 0))
       (gnugo-put :last-mover (gnugo-current-player))
-      (gnugo-merge-showboard-results)   ; all
+      (gnugo--merge-showboard-results)  ; all
       (gnugo-refresh)                   ; this
       (redisplay))                      ; eye candy
     (let* ((ulastp (string= (gnugo-get :last-mover) user-color))