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

Use forward-line and move-to-column.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 26f9b1ad12aae4f14ffb4aba89d819dc0424fd6c..3063fd374add84cacbf361e0df194fb53f997f6e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2002-09-16  Richard M. Stallman  <rms@gnu.org>
 
+       * 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 888dfe34ba03a9410c975ffd9e603c0f3e0ac0be..d2333007fd686647c184e76c669addb534ed410c 100644 (file)
--- 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."