diff options
| author | Glenn Morris <rgm@gnu.org> | 2014-06-21 14:21:46 -0700 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2014-06-21 14:21:46 -0700 |
| commit | 6f110781e4567fcec153991ad00cd17b07adc80d (patch) | |
| tree | bd06d27c7876e451afb16b961479b439851b2598 | |
| parent | 6263354fc6c8723edbe282ee90a0c0c43fba3223 (diff) | |
| download | emacs-6f110781e4567fcec153991ad00cd17b07adc80d.tar.gz | |
Fix landmark, broken since Emacs 23.1
* play/landmark.el (landmark-move-down, landmark-move-up):
Fix 2007-10-20 change - preserve horizontal position.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | 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 <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." |