Mercurial > hg > xemacs-beta

comparison lisp/games/gomoku.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents 56c54cf7c5b6
children 54cc21c15cbb
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
115 115
116 (define-key gomoku-mode-map [up] 'gomoku-move-up) 116 (define-key gomoku-mode-map [up] 'gomoku-move-up)
117 (define-key gomoku-mode-map [down] 'gomoku-move-down) 117 (define-key gomoku-mode-map [down] 'gomoku-move-down)
118 (define-key gomoku-mode-map [left] 'gomoku-move-left) 118 (define-key gomoku-mode-map [left] 'gomoku-move-left)
119 (define-key gomoku-mode-map [right] 'gomoku-move-right) 119 (define-key gomoku-mode-map [right] 'gomoku-move-right)
120 (define-key gomoku-mode-map [kp-enter] 'gomoku-human-plays) 120 (define-key gomoku-mode-map [kp_enter] 'gomoku-human-plays)
121 (define-key gomoku-mode-map [button2] 'gomoku-click) 121 (define-key gomoku-mode-map [button2] 'gomoku-click)
122 (define-key gomoku-mode-map [insert] 'gomoku-human-plays)) 122 (define-key gomoku-mode-map [insert] 'gomoku-human-plays))
123 123
124 124
125 (defun gomoku-mode () 125 (defun gomoku-mode ()