(insert-char ?\n landmark-square-height))
(or (eq (char-after 1) ?.)
(put-text-property 1 2 'point-entered
- (lambda (x y) (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 y) (if (eobp) (backward-char))))
+ (lambda (_x _y) (if (eobp) (backward-char))))
(put-text-property (point-min) (point) 'category 'landmark-mode))
(landmark-goto-xy (/ (1+ n) 2) (/ (1+ m) 2)) ; center of the board
(sit-for 0)) ; Display NOW
(t x)))
(defun landmark-y (direction)
- (let ((noise (put direction 'noise (landmark-noise))))
- (put direction 'y_t
- (if (> (get direction 's) 0.0)
- 1.0
- 0.0))))
+ (put direction 'noise (landmark-noise))
+ (put direction 'y_t
+ (if (> (get direction 's) 0.0)
+ 1.0
+ 0.0)))
(defun landmark-update-normal-weights (direction)
(mapc (lambda (target-direction)
landmark-directions))
(defun landmark-update-naught-weights (direction)
- (mapc (lambda (target-direction)
+ (mapc (lambda (_target-direction)
(put direction 'w0
(landmark-f
(+
((not landmark-game-in-progress)
(landmark-prompt-for-other-game))
(t
- (let (square score)
+ (let (square)
(setq square (landmark-point-square))
(cond ((null square)
(error "Your point is not on a square. Retry!"))