chess-pgn-insert-and-show-position

1 files changed, 6 insertions, 1 deletions

diff --git a/chess-pgn.el b/chess-pgn.el
index 662d156..da1aa62 100644
--- a/chess-pgn.el
+++ b/chess-pgn.el
@@ -264,7 +264,7 @@ PGN text."
 
     ;;(define-key map [(control ?m)] 'chess-pgn-move)
     ;;(define-key map [space] 'chess-pgn-move)
-    ;;(define-key map [? ] 'chess-pgn-move)
+    (define-key map [? ] 'chess-pgn-insert-and-show-position)
 
     (when (require 'pcomplete nil t)
       (setq pcomplete-default-completion-function 'chess-pgn-completions)
@@ -416,6 +416,11 @@ This does not require that the buffer be in PGN mode."
     (goto-char (posn-point (event-start event))))
   (chess-pgn-show-position))
 
+(defun chess-pgn-insert-and-show-position ()
+  (interactive)
+  (self-insert-command 1)
+  (chess-pgn-show-position))
+
 (provide 'chess-pgn)
 
 ;;; chess-pgn.el ends here