Lines Matching +defs:left +defs:right
54 (define-key solitaire-mode-map "\C-f" 'solitaire-right)
55 (define-key solitaire-mode-map "\C-b" 'solitaire-left)
63 (define-key solitaire-mode-map [right] 'solitaire-right)
64 (define-key solitaire-mode-map [left] 'solitaire-left)
68 (define-key solitaire-mode-map [S-right] 'solitaire-move-right)
69 (define-key solitaire-mode-map [S-left] 'solitaire-move-left)
73 (define-key solitaire-mode-map [kp-6] 'solitaire-right)
74 (define-key solitaire-mode-map [kp-4] 'solitaire-left)
79 (define-key solitaire-mode-map [S-kp-6] 'solitaire-move-right)
80 (define-key solitaire-mode-map [S-kp-4] 'solitaire-move-left)
118 "Upper left corner of the board.")
124 "Lower right 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)
265 (defun solitaire-right ()
276 (defun solitaire-left ()
323 (defun solitaire-move-right () (interactive) (solitaire-move '[right]))
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))