From 05a841569db3d9f8766749821f65537f0c078655 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 16 Sep 2002 19:32:53 +0000 Subject: [PATCH] (gomoku-move-up, gomoku-move-down): Use forward-line and move-to-column. --- lisp/ChangeLog | 3 +++ lisp/play/gomoku.el | 8 ++++++-- 2 files changed, 9 insertions(+), 2 deletions(-) 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 + * 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." -- 2.39.2