# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1032204573 0
# Node ID 8fbfc7c3386c2b9845356eaf33f255303d726e00
# Parent  d03e0c2bb52ca55fbf718fb37a1ff318d814f79c
(gomoku-move-up, gomoku-move-down):
Use forward-line and move-to-column.

diff -r d03e0c2bb52c -r 8fbfc7c3386c lisp/play/gomoku.el
--- a/lisp/play/gomoku.el	Mon Sep 16 17:13:16 2002 +0000
+++ b/lisp/play/gomoku.el	Mon Sep 16 19:29:33 2002 +0000
@@ -1156,13 +1156,17 @@
   "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."