Lines Matching +defs:start +defs:point
77 (define-key solitaire-mode-map [kp-5] 'solitaire-center-point)
117 (defvar solitaire-start nil
120 (defvar solitaire-start-x nil)
121 (defvar solitaire-start-y nil)
215 (goto-char (point-max))
217 (setq buffer-undo-list (list (point)))
248 (setq solitaire-start (point))
249 (setq solitaire-start-x (current-column))
250 (setq solitaire-start-y (solitaire-current-line))
255 (setq solitaire-center (point))
260 (setq solitaire-end (point))
267 (let ((start (point)))
274 (goto-char start))))
278 (let ((start (point)))
285 (goto-char start))))
289 (let ((start (point))
301 (goto-char start)
306 (let ((start (point))
317 (goto-char start))))
319 (defun solitaire-center-point ()
329 "Check if a move is possible from current point in the specified direction.
337 (let ((start (point))
338 (skip (progn (funcall movesymbol) (point)))
339 (target (progn (funcall movesymbol) (point))))
342 (if (or (/= ?o (char-after start))
346 (list start skip target))))
356 (let ((start (car class))
359 (goto-char start)
382 (while (search-backward "o" solitaire-start 'done)
383 (and (>= (current-column) solitaire-start-x)
385 (>= (solitaire-current-line) solitaire-start-y)
398 (while (search-backward "o" solitaire-start 'done)
399 (and (>= (current-column) solitaire-start-x)
401 (>= (solitaire-current-line) solitaire-start-y)
423 "Return the vertical position of point.
425 (+ (count-lines (point-min) (point))
448 (solitaire-center-point)