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