Mercurial > emacs
changeset 39886:e1334fb129a2
(gomoku-mode): Use define-derived-mode.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Sat, 13 Oct 2001 18:28:11 +0000 |
| parents | 91b2bb6856b0 |
| children | 93bf2259d04a |
| files | lisp/play/gomoku.el |
| diffstat | 1 files changed, 5 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/play/gomoku.el Sat Oct 13 13:16:33 2001 +0000 +++ b/lisp/play/gomoku.el Sat Oct 13 18:28:11 2001 +0000 @@ -1,6 +1,6 @@ ;;; gomoku.el --- Gomoku game between you and Emacs -;; Copyright (C) 1988, 1994, 1996 Free Software Foundation, Inc. +;; Copyright (C) 1988, 1994, 1996, 2001 Free Software Foundation, Inc. ;; Author: Philippe Schnoebelen <phs@lsv.ens-cachan.fr> ;; Adapted-By: ESR, Daniel Pfeiffer <occitan@esperanto.org> @@ -168,7 +168,7 @@ (put 'gomoku-mode 'rear-nonsticky '(intangible))) (put 'gomoku-mode 'intangible 1) -(defun gomoku-mode () +(define-derived-mode gomoku-mode nil "Gomoku" "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 @@ -180,15 +180,10 @@ \\{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) - (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)) + (set (make-local-variable 'font-lock-defaults) + '(gomoku-font-lock-keywords t)) + (toggle-read-only t)) ;;; ;;; THE BOARD.