From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 16 Sep 2002 19:32:53 +0000 (+0000)
Subject: (gomoku-move-up, gomoku-move-down):
X-Git-Tag: ttn-vms-21-2-B4~13146
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=05a841569db3d9f8766749821f65537f0c078655;p=emacs.git

(gomoku-move-up, gomoku-move-down):
Use forward-line and move-to-column.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 26f9b1ad12a..3063fd374ad 100644
--- 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 888dfe34ba0..d2333007fd6 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."