diff options
| -rw-r--r-- | lisp/ChangeLog | 3 | ||||
| -rw-r--r-- | 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 <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." |