Lines Matching defs:move
58 (define-key solitaire-mode-map [return] 'solitaire-move)
68 (define-key solitaire-mode-map [S-right] 'solitaire-move-right)
69 (define-key solitaire-mode-map [S-left] 'solitaire-move-left)
70 (define-key solitaire-mode-map [S-up] 'solitaire-move-up)
71 (define-key solitaire-mode-map [S-down] 'solitaire-move-down)
79 (define-key solitaire-mode-map [S-kp-6] 'solitaire-move-right)
80 (define-key solitaire-mode-map [S-kp-4] 'solitaire-move-left)
81 (define-key solitaire-mode-map [S-kp-8] 'solitaire-move-up)
82 (define-key solitaire-mode-map [S-kp-2] 'solitaire-move-down)
84 (define-key solitaire-mode-map [kp-enter] 'solitaire-move)
101 The usual mnemonic keys move the cursor around the board; in addition,
102 \\[solitaire-move] is a prefix character for actually moving a stone on the board."
146 Move stones using \\[solitaire-move] followed by a direction key.
150 check after each move or undo)
292 (move-to-column c)
295 (move-to-column c)
309 (move-to-column c)
312 (move-to-column c)
323 (defun solitaire-move-right () (interactive) (solitaire-move '[right]))
324 (defun solitaire-move-left () (interactive) (solitaire-move '[left]))
325 (defun solitaire-move-up () (interactive) (solitaire-move '[up]))
326 (defun solitaire-move-down () (interactive) (solitaire-move '[down]))
328 (defun solitaire-possible-move (movesymbol)
329 "Check if a move is possible from current point in the specified direction.
345 "Wrong move!"
349 (defun solitaire-move (dir)
350 "Pseudo-prefix command to move a stone in Solitaire."
352 (let* ((class (solitaire-possible-move (lookup-key solitaire-mode-map dir)))
374 "Undo a move in Solitaire."
405 (if (listp (solitaire-possible-move movesymbol))
419 (message "There is one possible move."))