[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] 46/51: [gnugo] New command: ‘ _’ and ‘M-_’ (gnugo-boss-is-near)
From: |
Thien-Thi Nguyen |
Subject: |
[elpa] 46/51: [gnugo] New command: ‘ _’ and ‘M-_’ (gnugo-boss-is-near) |
Date: |
Mon, 24 Feb 2014 12:30:28 +0000 |
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)
- [elpa] 39/51: [gnugo] Don't show underscore in group-animation message., (continued)
- [elpa] 39/51: [gnugo] Don't show underscore in group-animation message., Thien-Thi Nguyen, 2014/02/24
- [elpa] 36/51: [gnugo int] Revamp gnugo-{put, get} doc / indentation decl., Thien-Thi Nguyen, 2014/02/24
- [elpa] 37/51: [gnugo maint] Update "next" in HACKING; nfc., Thien-Thi Nguyen, 2014/02/24
- [elpa] 32/51: [gnugo] Use ‘user-erro r’., Thien-Thi Nguyen, 2014/02/24
- [elpa] 02/51: Import gnugo.el from ttn-pers-elisp 1.59., Thien-Thi Nguyen, 2014/02/24
- [elpa] 40/51: [gnugo] Use special constructs for keybindings in docstrings., Thien-Thi Nguyen, 2014/02/24
- [elpa] 21/51: [gnugo gtp int] Use :post-thunk instead of :post-hook., Thien-Thi Nguyen, 2014/02/24
- [elpa] 31/51: [gnugo int] Add abstraction: gnugo--unclose-game, Thien-Thi Nguyen, 2014/02/24
- [elpa] 45/51: [gnugo] New command: ‘ A’ (gnugo-switch-to-another), Thien-Thi Nguyen, 2014/02/24
- [elpa] 42/51: [gnugo int] Use internal macros more., Thien-Thi Nguyen, 2014/02/24
- [elpa] 46/51: [gnugo] New command: ‘ _’ and ‘M-_’ (gnugo-boss-is-near),
Thien-Thi Nguyen <=
- [elpa] 43/51: [gnugo maint] Update HACKING; nfc., Thien-Thi Nguyen, 2014/02/24
- [elpa] 50/51: [gnugo maint] Update NEWS, HACKING; nfc., Thien-Thi Nguyen, 2014/02/24
- [elpa] 41/51: [gnugo] Make proc-status change mode-line elem more informative., Thien-Thi Nguyen, 2014/02/24
- [elpa] 47/51: [gnugo maint] Update NEWS; nfc., Thien-Thi Nguyen, 2014/02/24
- [elpa] 48/51: [gnugo] Fix bug: Compute grid spacing using offset math., Thien-Thi Nguyen, 2014/02/24
- [elpa] 49/51: [gnugo] Rename var to ‘gnugo-inhibit-refresh’., Thien-Thi Nguyen, 2014/02/24
- [elpa] 51/51: [gnugo] Release: 2.3.0, Thien-Thi Nguyen, 2014/02/24
- [elpa] 44/51: [gnugo] Bind ‘DEL’ t o ‘gnugo-undo-two-moves’., Thien-Thi Nguyen, 2014/02/24