248 |
Entry to this mode calls the value of `lm-mode-hook' if that value |
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'." |
is non-nil. One interesting value is `turn-on-font-lock'." |
250 |
(interactive) |
(interactive) |
251 |
|
(kill-all-local-variables) |
252 |
(setq major-mode 'lm-mode |
(setq major-mode 'lm-mode |
253 |
mode-name "Lm") |
mode-name "Lm") |
254 |
(lm-display-statistics) |
(lm-display-statistics) |
256 |
(make-local-variable 'font-lock-defaults) |
(make-local-variable 'font-lock-defaults) |
257 |
(setq font-lock-defaults '(lm-font-lock-keywords t)) |
(setq font-lock-defaults '(lm-font-lock-keywords t)) |
258 |
(toggle-read-only t) |
(toggle-read-only t) |
259 |
(run-hooks 'lm-mode-hook)) |
(run-mode-hooks 'lm-mode-hook)) |
260 |
|
|
261 |
|
|
262 |
;;;_ + THE SCORE TABLE. |
;;;_ + THE SCORE TABLE. |