comparison lisp/play/gomoku.el @ 39886:e1334fb129a2

(gomoku-mode): Use define-derived-mode.

39885:91b2bb6856b0

;;; gomoku.el --- Gomoku game between you and Emacs

;; Copyright (C) 1988, 1994, 1996 Free Software Foundation, Inc.

;; Author: Philippe Schnoebelen <[e-mail]>
;; Adapted-By: ESR, Daniel Pfeiffer <[e-mail]>
;; Keywords: games

(put 'gomoku-mode 'front-sticky
     (put 'gomoku-mode 'rear-nonsticky '(intangible)))
(put 'gomoku-mode 'intangible 1)

(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
marks horizontally, vertically or in diagonal.

Other useful commands:
\\{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))

;;;
;;; THE BOARD.
;;;

39886:e1334fb129a2

;;; gomoku.el --- Gomoku game between you and Emacs

;; Copyright (C) 1988, 1994, 1996, 2001 Free Software Foundation, Inc.

;; Author: Philippe Schnoebelen <[e-mail]>
;; Adapted-By: ESR, Daniel Pfeiffer <[e-mail]>
;; Keywords: games

(put 'gomoku-mode 'front-sticky
     (put 'gomoku-mode 'rear-nonsticky '(intangible)))
(put 'gomoku-mode 'intangible 1)

(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
marks horizontally, vertically or in diagonal.

Other useful commands:
\\{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'."
  (gomoku-display-statistics)
  (set (make-local-variable 'font-lock-defaults)
       '(gomoku-font-lock-keywords t))
  (toggle-read-only t))

;;;
;;; THE BOARD.
;;;