From: Glenn Morris <rgm@gnu.org>
Date: Sat, 21 Jun 2014 21:21:46 +0000 (-0700)
Subject: Fix landmark, broken since Emacs 23.1
X-Git-Tag: emacs-24.3.92~36
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6f110781e4567fcec153991ad00cd17b07adc80d;p=emacs.git

Fix landmark, broken since Emacs 23.1

* play/landmark.el (landmark-move-down, landmark-move-up):
Fix 2007-10-20 change - preserve horizontal position.
---

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  <rgm@gnu.org>
+
+	* play/landmark.el (landmark-move-down, landmark-move-up):
+	Fix 2007-10-20 change - preserve horizontal position.
+
 2014-06-21  Fabián Ezequiel Gallina  <fgallina@gnu.org>
 
 	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."