Mercurial > emacs

comparison lisp/play/gomoku.el @ 39866:a4570786d40d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
comparison
equal deleted inserted replaced
39865:8bdfe67d9f16 39866:a4570786d40d
1037 (if (= i (1- m)) 1037 (if (= i (1- m))
1038 (setq opoint point)) 1038 (setq opoint point))
1039 (insert-char ?\n gomoku-square-height)) 1039 (insert-char ?\n gomoku-square-height))
1040 (or (eq (char-after 1) ?.) 1040 (or (eq (char-after 1) ?.)
1041 (put-text-property 1 2 'point-entered 1041 (put-text-property 1 2 'point-entered
1042 (lambda (x x) (if (bobp) (forward-char))))) 1042 (lambda (x y) (if (bobp) (forward-char)))))
1043 (or intangible 1043 (or intangible
1044 (put-text-property point (point) 'intangible 2)) 1044 (put-text-property point (point) 'intangible 2))
1045 (put-text-property point (point) 'point-entered 1045 (put-text-property point (point) 'point-entered
1046 (lambda (x x) (if (eobp) (backward-char)))) 1046 (lambda (x y) (if (eobp) (backward-char))))
1047 (put-text-property (point-min) (point) 'category 'gomoku-mode)) 1047 (put-text-property (point-min) (point) 'category 'gomoku-mode))
1048 (gomoku-goto-xy (/ (1+ n) 2) (/ (1+ m) 2)) ; center of the board 1048 (gomoku-goto-xy (/ (1+ n) 2) (/ (1+ m) 2)) ; center of the board
1049 (sit-for 0)) ; Display NOW 1049 (sit-for 0)) ; Display NOW
1050 1050
1051 (defun gomoku-display-statistics () 1051 (defun gomoku-display-statistics ()