Mercurial > emacs
diff lisp/play/gomoku.el @ 39866:a4570786d40d
Do not double variables in the lambda-list.
author | Pavel Janík <Pavel@Janik.cz> |
---|---|
date | Sat, 13 Oct 2001 08:10:30 +0000 |
parents | 437623e4fe1c |
children | e1334fb129a2 |
line wrap: on
line diff
--- a/lisp/play/gomoku.el Fri Oct 12 22:39:29 2001 +0000 +++ b/lisp/play/gomoku.el Sat Oct 13 08:10:30 2001 +0000 @@ -1039,11 +1039,11 @@ (insert-char ?\n gomoku-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 'gomoku-mode)) (gomoku-goto-xy (/ (1+ n) 2) (/ (1+ m) 2)) ; center of the board (sit-for 0)) ; Display NOW