/[emacs]/emacs/lisp/play/gomoku.el
ViewVC logotype

Diff of /emacs/lisp/play/gomoku.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.35 by lektu, Fri Mar 22 09:43:59 2002 UTC revision 1.36 by rms, Mon Sep 16 19:29:33 2002 UTC
# Line 1156  If the game is finished, this command re Line 1156  If the game is finished, this command re
1156    "Move point down one row on the Gomoku board."    "Move point down one row on the Gomoku board."
1157    (interactive)    (interactive)
1158    (if (< (gomoku-point-y) gomoku-board-height)    (if (< (gomoku-point-y) gomoku-board-height)
1159        (next-line gomoku-square-height)))        (let ((column (current-column)))
1160            (forward-line gomoku-square-height)
1161            (move-to-column column))))
1162    
1163  (defun gomoku-move-up ()  (defun gomoku-move-up ()
1164    "Move point up one row on the Gomoku board."    "Move point up one row on the Gomoku board."
1165    (interactive)    (interactive)
1166    (if (> (gomoku-point-y) 1)    (if (> (gomoku-point-y) 1)
1167        (previous-line gomoku-square-height)))        (let ((column (current-column)))
1168            (forward-line (- 1 gomoku-square-height))
1169            (move-to-column column))))
1170    
1171  (defun gomoku-move-ne ()  (defun gomoku-move-ne ()
1172    "Move point North East on the Gomoku board."    "Move point North East on the Gomoku board."

Legend:
Removed from v.1.35  
changed lines
  Added in v.1.36

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26