(gomoku-move-up, gomoku-move-down):

Use forward-line and move-to-column.

2 files changed, 9 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 26f9b1ad12..3063fd374a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2002-09-16  Richard M. Stallman  <[email protected]>
 
+	* play/gomoku.el (gomoku-move-up, gomoku-move-down):
+	Use forward-line and move-to-column.
+
 	* cus-edit.el (custom-variable-backup-value): New function.
 	(custom-variable-reset-backup): New function.
 	(custom-variable-menu): Add item for custom-variable-reset-backup.
diff --git a/lisp/play/gomoku.el b/lisp/play/gomoku.el
index 888dfe34ba..d2333007fd 100644
--- a/lisp/play/gomoku.el
+++ b/lisp/play/gomoku.el
@@ -1156,13 +1156,17 @@ If the game is finished, this command requests for another game."
   "Move point down one row on the Gomoku board."
   (interactive)
   (if (< (gomoku-point-y) gomoku-board-height)
-      (next-line gomoku-square-height)))
+      (let ((column (current-column)))
+	(forward-line gomoku-square-height)
+	(move-to-column column))))
 
 (defun gomoku-move-up ()
   "Move point up one row on the Gomoku board."
   (interactive)
   (if (> (gomoku-point-y) 1)
-      (previous-line gomoku-square-height)))
+      (let ((column (current-column)))
+	(forward-line (- 1 gomoku-square-height))
+	(move-to-column column))))
 
 (defun gomoku-move-ne ()
   "Move point North East on the Gomoku board."