[Emacs-diffs] emacs-24 r117282: Fix landmark, broken since Emacs 23.1

[Glenn Morris]

------------------------------------------------------------
revno: 117282
revision-id: address@hidden
parent: address@hidden
committer: Glenn Morris <address@hidden>
branch nick: emacs-24
timestamp: Sat 2014-06-21 14:21:46 -0700
message:
  Fix landmark, broken since Emacs 23.1
  
  * play/landmark.el (landmark-move-down, landmark-move-up):
  Fix 2007-10-20 change - preserve horizontal position.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/play/landmark.el          
landmark.el-20091113204419-o5vbwnq5f7feedwu-1175

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-06-21 19:46:57 +0000
+++ b/lisp/ChangeLog    2014-06-21 21:21:46 +0000
@@ -1,3 +1,8 @@
+2014-06-21  Glenn Morris  <address@hidden>
+
+       * play/landmark.el (landmark-move-down, landmark-move-up):
+       Fix 2007-10-20 change - preserve horizontal position.
+
 2014-06-21  Fabián Ezequiel Gallina  <address@hidden>
 
        Fix completion retrieval parsing (bug#17209).

=== modified file 'lisp/play/landmark.el'
--- a/lisp/play/landmark.el     2014-01-01 07:43:34 +0000
+++ b/lisp/play/landmark.el     2014-06-21 21:21:46 +0000
@@ -1040,13 +1040,17 @@
   "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."