diff options
| author | Pavel Janík <Pavel@Janik.cz> | 2001-10-13 08:10:30 +0000 |
|---|---|---|
| committer | Pavel Janík <Pavel@Janik.cz> | 2001-10-13 08:10:30 +0000 |
| commit | 906f211e1be9a7cc2759f63069e56bce312650c7 (patch) | |
| tree | 70cdeab9f8a9fcd265a1433ae9a8d4eec56b930c /lisp/play/landmark.el | |
| parent | 5a1373f32a3e515f0f5cf132e44997f5819a2395 (diff) | |
| download | emacs-906f211e1be9a7cc2759f63069e56bce312650c7.tar.gz | |
Do not double variables in the lambda-list.
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 1680a4fec88..33acb70b0ee 100644 --- a/lisp/play/landmark.el +++ b/lisp/play/landmark.el @@ -945,11 +945,11 @@ mouse-1: get robot moving, mouse-2: play on this square"))) (insert-char ?\n lm-square-height)) (or (eq (char-after 1) ?.) (put-text-property 1 2 'point-entered - (lambda (x x) (if (bobp) (forward-char))))) + (lambda (x y) (if (bobp) (forward-char))))) (or intangible (put-text-property point (point) 'intangible 2)) (put-text-property point (point) 'point-entered - (lambda (x x) (if (eobp) (backward-char)))) + (lambda (x y) (if (eobp) (backward-char)))) (put-text-property (point-min) (point) 'category 'lm-mode)) (lm-goto-xy (/ (1+ n) 2) (/ (1+ m) 2)) ; center of the board (sit-for 0)) ; Display NOW |