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." |