From 77d9af8ba59288c5a95a0982170404dd657d1506 Mon Sep 17 00:00:00 2001 From: Mario Lang Date: Mon, 24 Mar 2014 20:23:50 +0100 Subject: chess-pgn-insert-and-show-position --- chess-pgn.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) 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 -- cgit v1.2.3