[elpa] 03/03: [gnugo int] Move some prop ja mming to ‘gnugo-board-mode’.

[Thien-Thi Nguyen]

ttn pushed a commit to branch master
in repository elpa.

commit 554c401019c25b0579969372e618d97567e7dd98
Author: Thien-Thi Nguyen <address@hidden>
Date:   Fri Apr 18 13:34:25 2014 +0200

    [gnugo int] Move some prop jamming to ‘gnugo-board-mode’.
    
    * packages/gnugo/gnugo.el (gnugo-board-mode):
    Move to here the setting of properties
    :default-highlight-last-move-spec,
    :highlight-last-move-spec, :paren-ov, :mul...
    (gnugo): ...from here.
---
 packages/gnugo/gnugo.el |   14 +++++++-------
 1 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/packages/gnugo/gnugo.el b/packages/gnugo/gnugo.el
index c44d17e..1063ebd 100644
--- a/packages/gnugo/gnugo.el
+++ b/packages/gnugo/gnugo.el
@@ -2387,6 +2387,13 @@ In this mode, keys do not self insert.
   (add-hook 'kill-buffer-hook 'gnugo-cleanup nil t)
   (set (make-local-variable 'gnugo-state)
        (gnugo--mkht :size (1- 42)))
+  (gnugo-put :highlight-last-move-spec
+    (gnugo-put :default-highlight-last-move-spec '("(" -1 nil)))
+  (gnugo-put :paren-ov (cons (make-overlay 1 1)
+                             (let ((ov (make-overlay 1 1)))
+                               (overlay-put ov 'display ")")
+                               ov)))
+  (gnugo-put :mul '(1 . 1))
   (add-to-invisibility-spec :nogrid))
 
 ;;;---------------------------------------------------------------------------
@@ -2471,12 +2478,6 @@ starting a new one.  See `gnugo-board-mode' 
documentation for more info."
                 do (set prop (string-to-number (gnugo-query q)))))
         (gnugo-put :diamond (substring (process-name proc) 5))
         (gnugo-put :gnugo-color (gnugo-other user-color))
-        (gnugo-put :highlight-last-move-spec
-          (gnugo-put :default-highlight-last-move-spec '("(" -1 nil)))
-        (gnugo-put :paren-ov (cons (make-overlay 1 1)
-                                   (let ((ov (make-overlay 1 1)))
-                                     (overlay-put ov 'display ")")
-                                     ov)))
         (gnugo--SZ! board-size)
         (let ((root (gnugo--root-node
                      (gnugo--plant-and-climb
@@ -2505,7 +2506,6 @@ starting a new one.  See `gnugo-board-mode' documentation 
for more info."
                               (gnugo-lsquery "fixed_handicap %d"
                                              handicap)))))))
       (gnugo-put :waiting-start (current-time))
-      (gnugo-put :mul '(1 . 1))
       (gnugo-refresh t)
       (let ((half (truncate (1+ (gnugo-get :SZ)) 2)))
         (gnugo-goto-pos (format "A%d" half))