[elpa] 200/255: refresh the go board

[Eric Schulte]

eschulte pushed a commit to branch go
in repository elpa.

commit 15d9aa451e33850b84e4a7db93770b57d08a1738
Author: Eric Schulte <address@hidden>
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)