eschulte pushed a commit to branch go
in repository elpa.
commit 15d9aa451e33850b84e4a7db93770b57d08a1738
Author: Eric Schulte <[email protected]>
Date: Mon May 20 18:58:30 2013 -0600
refresh the go board
---
go-board.el | 7 ++++++-
1 files changed, 6 insertions(+), 1 deletions(-)
diff --git a/go-board.el b/go-board.el
index 402a4d3..cec8b21 100644
--- a/go-board.el
+++ b/go-board.el
@@ -380,6 +380,10 @@
(apply-turn-to-board (list move)))
(when *autoplay* (go-board-next)))
+(defun go-board-refresh ()
+ (interactive)
+ (update-display (current-buffer)))
+
(defun go-board-resign ()
(interactive)
(with-backends back (go-reset back)))
@@ -452,7 +456,8 @@
(let ((map (make-sparse-keymap)))
(define-key map (kbd "<mouse-1>") 'go-board-mouse-move)
(define-key map (kbd "m") 'go-board-move)
- (define-key map (kbd "r") 'go-board-resign)
+ (define-key map (kbd "r") 'go-board-refresh)
+ (define-key map (kbd "R") 'go-board-resign)
(define-key map (kbd "u") 'go-board-undo)
(define-key map (kbd "c") 'go-board-comment)
(define-key map (kbd "l") 'go-board-level)
