From 6f110781e4567fcec153991ad00cd17b07adc80d Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sat, 21 Jun 2014 14:21:46 -0700 Subject: [PATCH] Fix landmark, broken since Emacs 23.1 * play/landmark.el (landmark-move-down, landmark-move-up): Fix 2007-10-20 change - preserve horizontal position. --- lisp/ChangeLog | 5 +++++ lisp/play/landmark.el | 8 ++++++-- 2 files changed, 11 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3cd4b070298..88a85c3bda6 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2014-06-21 Glenn Morris + + * play/landmark.el (landmark-move-down, landmark-move-up): + Fix 2007-10-20 change - preserve horizontal position. + 2014-06-21 Fabián Ezequiel Gallina Fix completion retrieval parsing (bug#17209). diff --git a/lisp/play/landmark.el b/lisp/play/landmark.el index 5c516e70f99..8025f14b28e 100644 --- a/lisp/play/landmark.el +++ b/lisp/play/landmark.el @@ -1040,13 +1040,17 @@ mouse-1: get robot moving, mouse-2: play on this square"))) "Move point down one row on the Landmark board." (interactive) (if (< (landmark-point-y) landmark-board-height) - (forward-line 1)));;; landmark-square-height))) + (let ((col (current-column))) + (forward-line 1) ;;; landmark-square-height + (move-to-column col)))) (defun landmark-move-up () "Move point up one row on the Landmark board." (interactive) (if (> (landmark-point-y) 1) - (forward-line (- landmark-square-height)))) + (let ((col (current-column))) + (forward-line (- landmark-square-height)) + (move-to-column col)))) (defun landmark-move-ne () "Move point North East on the Landmark board." -- 2.39.5