Mercurial > emacs
comparison lisp/play/landmark.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 | 802c948ddb3a |
| children | a33250d752d4 |
comparison
equal
deleted
inserted
replaced
| 39865:8bdfe67d9f16 | 39866:a4570786d40d |
|---|---|
| 943 (if (= i (1- m)) | 943 (if (= i (1- m)) |
| 944 (setq opoint point)) | 944 (setq opoint point)) |
| 945 (insert-char ?\n lm-square-height)) | 945 (insert-char ?\n lm-square-height)) |
| 946 (or (eq (char-after 1) ?.) | 946 (or (eq (char-after 1) ?.) |
| 947 (put-text-property 1 2 'point-entered | 947 (put-text-property 1 2 'point-entered |
| 948 (lambda (x x) (if (bobp) (forward-char))))) | 948 (lambda (x y) (if (bobp) (forward-char))))) |
| 949 (or intangible | 949 (or intangible |
| 950 (put-text-property point (point) 'intangible 2)) | 950 (put-text-property point (point) 'intangible 2)) |
| 951 (put-text-property point (point) 'point-entered | 951 (put-text-property point (point) 'point-entered |
| 952 (lambda (x x) (if (eobp) (backward-char)))) | 952 (lambda (x y) (if (eobp) (backward-char)))) |
| 953 (put-text-property (point-min) (point) 'category 'lm-mode)) | 953 (put-text-property (point-min) (point) 'category 'lm-mode)) |
| 954 (lm-goto-xy (/ (1+ n) 2) (/ (1+ m) 2)) ; center of the board | 954 (lm-goto-xy (/ (1+ n) 2) (/ (1+ m) 2)) ; center of the board |
| 955 (sit-for 0)) ; Display NOW | 955 (sit-for 0)) ; Display NOW |
| 956 | 956 |
| 957 (defun lm-display-statistics () | 957 (defun lm-display-statistics () |