Mercurial > emacs
changeset 47508:8fbfc7c3386c
(gomoku-move-up, gomoku-move-down):
Use forward-line and move-to-column.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 16 Sep 2002 19:29:33 +0000 |
| parents | d03e0c2bb52c |
| children | a51bcb6b4039 |
| files | lisp/play/gomoku.el |
| diffstat | 1 files changed, 6 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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."