[Emacs-diffs] Changes to emacs/lisp/play/gomoku.el

[Richard M. Stallman]

Index: emacs/lisp/play/gomoku.el
diff -c emacs/lisp/play/gomoku.el:1.35 emacs/lisp/play/gomoku.el:1.36
*** emacs/lisp/play/gomoku.el:1.35      Fri Mar 22 04:43:59 2002
--- emacs/lisp/play/gomoku.el   Mon Sep 16 15:29:33 2002
***************
*** 1156,1168 ****
    "Move point down one row on the Gomoku board."
    (interactive)
    (if (< (gomoku-point-y) gomoku-board-height)
!       (next-line gomoku-square-height)))
  
  (defun gomoku-move-up ()
    "Move point up one row on the Gomoku board."
    (interactive)
    (if (> (gomoku-point-y) 1)
!       (previous-line gomoku-square-height)))
  
  (defun gomoku-move-ne ()
    "Move point North East on the Gomoku board."
--- 1156,1172 ----
    "Move point down one row on the Gomoku board."
    (interactive)
    (if (< (gomoku-point-y) gomoku-board-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)
!       (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."