Mercurial > emacs
comparison lisp/play/solitaire.el @ 62770:93e71f3dcd14
* play/5x5.el (5x5-mode):
* play/decipher.el (decipher-mode, decipher-stats-mode):
* play/gomoku.el (gomoku-mode):
* play/snake.el (snake-mode):
* play/solitaire.el (solitaire-mode):
* play/tetris.el (tetris-mode): Use run-mode-hooks.
* play/landmark.el (lm-mode):
* play/mpuz.el (mpuz-mode): Use kill-all-local-variables and
run-mode-hooks.
| author | Lute Kamstra <lute@gnu.org> |
|---|---|
| date | Thu, 26 May 2005 15:26:09 +0000 |
| parents | 695cf19ef79e |
| children | 18a818a2ee7c 01137c1fdbe9 |
comparison
equal
deleted
inserted
replaced
| 62769:a1fa16a75bde | 62770:93e71f3dcd14 |
|---|---|
| 103 (kill-all-local-variables) | 103 (kill-all-local-variables) |
| 104 (use-local-map solitaire-mode-map) | 104 (use-local-map solitaire-mode-map) |
| 105 (setq truncate-lines t) | 105 (setq truncate-lines t) |
| 106 (setq major-mode 'solitaire-mode) | 106 (setq major-mode 'solitaire-mode) |
| 107 (setq mode-name "Solitaire") | 107 (setq mode-name "Solitaire") |
| 108 (run-hooks 'solitaire-mode-hook)) | 108 (run-mode-hooks 'solitaire-mode-hook)) |
| 109 | 109 |
| 110 (defvar solitaire-stones 0 | 110 (defvar solitaire-stones 0 |
| 111 "Counter for the stones that are still there.") | 111 "Counter for the stones that are still there.") |
| 112 | 112 |
| 113 (defvar solitaire-center nil | 113 (defvar solitaire-center nil |