[elpa] 46/51: [gnugo] New command: ‘ _’ and ‘M-_’ (gnugo-boss-is-near)

[Thien-Thi Nguyen]

ttn pushed a commit to branch master
in repository elpa.

commit 53e70a986071dcc0762f8e441f410d430f0f3076
Author: Thien-Thi Nguyen <address@hidden>
Date:   Sat Feb 22 11:00:38 2014 +0100

    [gnugo] New command: ‘_’ and ‘M-_’ (gnugo-boss-is-near)
    
    * packages/gnugo/gnugo.el (gnugo-boss-is-near): New command.
    (gnugo-board-mode-map): Bind ‘_’ and ‘M-_’ to it.
---
 packages/gnugo/gnugo.el |   10 ++++++++--
 1 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/packages/gnugo/gnugo.el b/packages/gnugo/gnugo.el
index 7fc1e23..dc646ef 100644
--- a/packages/gnugo/gnugo.el
+++ b/packages/gnugo/gnugo.el
@@ -652,6 +652,12 @@ For all other values of RSEL, do nothing and return nil."
        ((eq 'cadr rsel) (next nil) (car (next nil)))
        ((eq 'count rsel) (aref (gnugo-get :monkey) 2))))))
 
+(defun gnugo-boss-is-near ()
+  "Do `bury-buffer' until the current one is not a GNU Board."
+  (interactive)
+  (while (gnugo-board-buffer-p)
+    (bury-buffer)))
+
 (defun gnugo-note (property value &optional movep mogrifyp)
   (when mogrifyp
     (let ((sz (gnugo-treeroot :SZ)))
@@ -1824,8 +1830,8 @@ starting a new one.  See `gnugo-board-mode' documentation 
for more info."
           ("u"        . gnugo-undo-two-moves)
           ("\C-?"     . gnugo-undo-two-moves)
           ("\C-l"     . gnugo-refresh)
-          ("\M-_"     . bury-buffer)
-          ("_"        . bury-buffer)
+          ("\M-_"     . gnugo-boss-is-near)
+          ("_"        . gnugo-boss-is-near)
           ("h"        . gnugo-move-history)
           ("i"        . gnugo-toggle-image-display-command)
           ("w"        . gnugo-worm-stones)