[elpa] 49/51: [gnugo] Rename var to ‘gnugo-inhibit-refresh’.

[Thien-Thi Nguyen]

ttn pushed a commit to branch master
in repository elpa.

commit f8c4bb41ca5fb4e8c55985a9f7e53c9391739796
Author: Thien-Thi Nguyen <address@hidden>
Date:   Mon Feb 24 13:06:53 2014 +0100

    [gnugo] Rename var to ‘gnugo-inhibit-refresh’.
    
    * packages/gnugo/gnugo.el (gnugo-inhibit-refresh): New defvar.
    (gnugo-post-move-hook): Update docstring.
    (gnugo-get-move-insertion-filter, gnugo-move)
    (gnugo-pass): Update refs.
---
 packages/gnugo/gnugo.el |   17 ++++++++++-------
 1 files changed, 10 insertions(+), 7 deletions(-)

diff --git a/packages/gnugo/gnugo.el b/packages/gnugo/gnugo.el
index 1dc73ee..3d41764 100644
--- a/packages/gnugo/gnugo.el
+++ b/packages/gnugo/gnugo.el
@@ -103,10 +103,13 @@ http://www.gnu.org/software/gnugo";)
 (defvar gnugo-board-mode-hook nil
   "Hook run when entering GNUGO Board mode.")
 
+(defvar gnugo-inhibit-refresh nil
+  "Used in `gnugo-post-move-hook'.")
+
 (defvar gnugo-post-move-hook nil
   "Normal hook run after a move and before the board is refreshed.
 Hook functions can prevent the call to `gnugo-refresh' by evaluating:
-  (setq inhibit-gnugo-refresh t)
+  (setq gnugo-inhibit-refresh t)
 Initially, when `run-hooks' is called, the current buffer is the GNUGO
 Board buffer of the game.  Hook functions that switch buffers must take
 care not to call (directly or indirectly through some other function)
@@ -996,9 +999,9 @@ its move."
           (gnugo-put :waitingp nil)
           (gnugo-push-move nil pos-or-pass)
           (let ((buf (current-buffer)))
-            (let (inhibit-gnugo-refresh)
+            (let (gnugo-inhibit-refresh)
               (run-hooks 'gnugo-post-move-hook)
-              (unless inhibit-gnugo-refresh
+              (unless gnugo-inhibit-refresh
                 (with-current-buffer buf
                   (gnugo-refresh))))))))))
 
@@ -1044,9 +1047,9 @@ To start a game try M-x gnugo."
     (unless (= ?= (aref accept 0))
       (user-error "%s" accept))
     (gnugo-push-move t pos)             ; value always nil for non-pass move
-    (let (inhibit-gnugo-refresh)
+    (let (gnugo-inhibit-refresh)
       (run-hooks 'gnugo-post-move-hook)
-      (unless inhibit-gnugo-refresh
+      (unless gnugo-inhibit-refresh
         (with-current-buffer buf
           (gnugo-refresh))))
     (with-current-buffer buf
@@ -1071,9 +1074,9 @@ To start a game try M-x gnugo."
       (user-error "%s" accept)))
   (let ((donep (gnugo-push-move t "PASS"))
         (buf (current-buffer)))
-    (let (inhibit-gnugo-refresh)
+    (let (gnugo-inhibit-refresh)
       (run-hooks 'gnugo-post-move-hook)
-      (unless inhibit-gnugo-refresh
+      (unless gnugo-inhibit-refresh
         (with-current-buffer buf
           (gnugo-refresh))))
     (unless donep