Mercurial > emacs
changeset 41347:809d8f73caaf
(gomoku-mode): Don't use define-derived-mode.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 21 Nov 2001 11:03:35 +0000 |
| parents | 42d60301f16a |
| children | b46a4ee1a05d |
| files | lisp/play/gomoku.el |
| diffstat | 1 files changed, 9 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/play/gomoku.el Wed Nov 21 11:01:55 2001 +0000 +++ b/lisp/play/gomoku.el Wed Nov 21 11:03:35 2001 +0000 @@ -192,7 +192,7 @@ ;; allow View Mode to be activated in its buffer. (put 'gomoku-mode 'mode-class 'special) -(define-derived-mode gomoku-mode nil "Gomoku" +(defun gomoku-mode () "Major mode for playing Gomoku against Emacs. You and Emacs play in turn by marking a free square. You mark it with X and Emacs marks it with O. The winner is the first to get five contiguous @@ -204,10 +204,15 @@ \\{gomoku-mode-map} Entry to this mode calls the value of `gomoku-mode-hook' if that value is non-nil. One interesting value is `turn-on-font-lock'." + (interactive) + (setq major-mode 'gomoku-mode + mode-name "Gomoku") (gomoku-display-statistics) - (set (make-local-variable 'font-lock-defaults) - '(gomoku-font-lock-keywords t)) - (toggle-read-only t)) + (use-local-map gomoku-mode-map) + (make-local-variable 'font-lock-defaults) + (setq font-lock-defaults '(gomoku-font-lock-keywords t)) + (toggle-read-only t) + (run-hooks 'gomoku-mode-hook)) ;;; ;;; THE BOARD.