Mercurial > emacs
comparison lisp/play/landmark.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 | eaa9acd9122c |
children | 18a818a2ee7c 01137c1fdbe9 |
comparison
equal
deleted
inserted
replaced
62769:a1fa16a75bde | 62770:93e71f3dcd14 |
---|---|
246 Other useful commands: | 246 Other useful commands: |
247 \\{lm-mode-map} | 247 \\{lm-mode-map} |
248 Entry to this mode calls the value of `lm-mode-hook' if that value | 248 Entry to this mode calls the value of `lm-mode-hook' if that value |
249 is non-nil. One interesting value is `turn-on-font-lock'." | 249 is non-nil. One interesting value is `turn-on-font-lock'." |
250 (interactive) | 250 (interactive) |
251 (kill-all-local-variables) | |
251 (setq major-mode 'lm-mode | 252 (setq major-mode 'lm-mode |
252 mode-name "Lm") | 253 mode-name "Lm") |
253 (lm-display-statistics) | 254 (lm-display-statistics) |
254 (use-local-map lm-mode-map) | 255 (use-local-map lm-mode-map) |
255 (make-local-variable 'font-lock-defaults) | 256 (make-local-variable 'font-lock-defaults) |
256 (setq font-lock-defaults '(lm-font-lock-keywords t)) | 257 (setq font-lock-defaults '(lm-font-lock-keywords t)) |
257 (toggle-read-only t) | 258 (toggle-read-only t) |
258 (run-hooks 'lm-mode-hook)) | 259 (run-mode-hooks 'lm-mode-hook)) |
259 | 260 |
260 | 261 |
261 ;;;_ + THE SCORE TABLE. | 262 ;;;_ + THE SCORE TABLE. |
262 | 263 |
263 | 264 |