Mercurial > emacs

comparison lisp/play/gomoku.el @ 11663:08ad51d6c210

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(gomoku-human-plays): Change to C-c C-p. (gomoku-human-takes-back): Change to C-c C-b. (gomoku-human-resigns): Change to C-c C-r. (gomoku-emacs-plays): Change to C-c C-e.
author Karl Heuer <kwzh@gnu.org>
date Tue, 02 May 1995 23:52:13 +0000
parents d90395d3b0ad
children d6e417df288b
comparison
equal deleted inserted replaced
11662:fc93b587543c 11663:08ad51d6c210
101 ;; Key bindings for entering Human moves. 101 ;; Key bindings for entering Human moves.
102 ;; If you have a mouse, you may also bind some mouse click ... 102 ;; If you have a mouse, you may also bind some mouse click ...
103 (define-key gomoku-mode-map "X" 'gomoku-human-plays) ; X 103 (define-key gomoku-mode-map "X" 'gomoku-human-plays) ; X
104 (define-key gomoku-mode-map "x" 'gomoku-human-plays) ; x 104 (define-key gomoku-mode-map "x" 'gomoku-human-plays) ; x
105 (define-key gomoku-mode-map "\C-m" 'gomoku-human-plays) ; RET 105 (define-key gomoku-mode-map "\C-m" 'gomoku-human-plays) ; RET
106 (define-key gomoku-mode-map "\C-cp" 'gomoku-human-plays) ; C-C P 106 (define-key gomoku-mode-map "\C-c\C-p" 'gomoku-human-plays) ; C-C C-P
107 (define-key gomoku-mode-map "\C-cb" 'gomoku-human-takes-back) ; C-C B 107 (define-key gomoku-mode-map "\C-c\C-b" 'gomoku-human-takes-back) ; C-C C-B
108 (define-key gomoku-mode-map "\C-cr" 'gomoku-human-resigns) ; C-C R 108 (define-key gomoku-mode-map "\C-c\C-r" 'gomoku-human-resigns) ; C-C C-R
109 (define-key gomoku-mode-map "\C-ce" 'gomoku-emacs-plays) ; C-C E 109 (define-key gomoku-mode-map "\C-c\C-e" 'gomoku-emacs-plays) ; C-C C-E
110 110
111 (define-key gomoku-mode-map [up] 'gomoku-move-up) 111 (define-key gomoku-mode-map [up] 'gomoku-move-up)
112 (define-key gomoku-mode-map [down] 'gomoku-move-down) 112 (define-key gomoku-mode-map [down] 'gomoku-move-down)
113 (define-key gomoku-mode-map [left] 'gomoku-move-left) 113 (define-key gomoku-mode-map [left] 'gomoku-move-left)
114 (define-key gomoku-mode-map [right] 'gomoku-move-right) 114 (define-key gomoku-mode-map [right] 'gomoku-move-right)