Lines Matching defs:left
55 (define-key solitaire-mode-map "\C-b" 'solitaire-left)
64 (define-key solitaire-mode-map [left] 'solitaire-left)
69 (define-key solitaire-mode-map [S-left] 'solitaire-move-left)
74 (define-key solitaire-mode-map [kp-4] 'solitaire-left)
80 (define-key solitaire-mode-map [S-kp-4] 'solitaire-move-left)
118 "Upper left corner of the board.")
137 '(solitaire-left solitaire-right solitaire-up solitaire-down))
182 horizontally or vertically, up, down, left or right, which look like
224 (format "--> There are %d stones left <--" solitaire-stones)
276 (defun solitaire-left ()
324 (defun solitaire-move-left () (interactive) (solitaire-move '[left]))
415 (message "Yeah! You made it! Only the King is left!"))
432 ... stops with five stones left ;)"
434 (let ((allmoves [up up S-down up left left S-right up up left S-down
435 up up right right S-left down down down S-up up
436 S-down down down down S-up left left down
437 S-right left left up up S-down right right right
438 S-left left S-right right right right S-left
439 right down down S-up down down left left S-right
441 right right S-left down right right down S-up
442 left left left S-right right S-left down down
443 left S-right S-up S-left S-left S-down S-right
444 up S-right left left])
445 ;; down down S-up left S-right
446 ;; right S-left
450 (if (memq op '(S-left S-right S-up S-down))
453 (if (memq op '(S-left S-right S-up S-down))