diff options
author | Dan Nicolaescu <dann@ics.uci.edu> | 2007-10-20 06:30:18 +0000 |
---|---|---|
committer | Dan Nicolaescu <dann@ics.uci.edu> | 2007-10-20 06:30:18 +0000 |
commit | 975460179e149d602524496a58ecf4702f12f8ba (patch) | |
tree | ef9858e76ed34d0d534313f4107ae564aa143bdf /lisp/play/landmark.el | |
parent | fbd80e28b7dfdd0a59e63b4a742392e0ca9dab88 (diff) | |
download | emacs-975460179e149d602524496a58ecf4702f12f8ba.tar.gz |
* term/x-win.el (x-gtk-stock-map, icon-map-list)
(x-gtk-map-stock): Delete duplicated definitions from merge.
* progmodes/octave-mod.el: Require octave-inf at compile time
* progmodes/compile.el (compilation-skip-to-next-location)
(compilation-skip-threshold, compilation-skip-visited): Move
definitions earlier.
* play/zone.el (zone-fall-through-ws):
* play/landmark.el (lm-move-down, lm-move-up):
* play/handwrite.el (handwrite):
* mail/mspools.el (mspools-visit-spool):
* wdired.el (wdired-next-line, wdired-previous-line):
* tar-mode.el (tar-subfile-save-buffer):
* scroll-lock.el (scroll-lock-next-line)
(scroll-lock-previous-line):
* image-dired.el (image-dired-next-line)
(image-dired-previous-line):
* ediff-help.el (ediff-help-message-line-length): Use
forward-line.
* smerge-mode.el (smerge-auto-refine):
* diff-mode.el (diff-auto-refine): Add :group.
* play/yow.el: Require doctor at compile time.
* vmsproc.el: Provide vmsproc.
(command-send-input): Use forward-line.
* vms-patch.el: Require ps-print and vmsproc at compile time.
* vc-mtn.el (log-view-message-re, log-view-file-re)
(log-view-font-lock-keywords): Pacify byte-compiler.
* vc-hg.el: Require log-view at compile time.
Diffstat (limited to 'lisp/play/landmark.el')
-rw-r--r-- | lisp/play/landmark.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/play/landmark.el b/lisp/play/landmark.el index 1eb8df8d58c..ca5aa1d6089 100644 --- a/lisp/play/landmark.el +++ b/lisp/play/landmark.el @@ -1052,13 +1052,13 @@ mouse-1: get robot moving, mouse-2: play on this square"))) "Move point down one row on the Lm board." (interactive) (if (< (lm-point-y) lm-board-height) - (next-line 1)));;; lm-square-height))) + (forward-line 1)));;; lm-square-height))) (defun lm-move-up () "Move point up one row on the Lm board." (interactive) (if (> (lm-point-y) 1) - (previous-line lm-square-height))) + (forward-line (- lm-square-height)))) (defun lm-move-ne () "Move point North East on the Lm board." |