From 3ed03518354e263e5406590a303bedac230155fc Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sat, 13 Oct 2001 18:28:11 +0000 Subject: [PATCH] (gomoku-mode): Use define-derived-mode. --- lisp/play/gomoku.el | 15 +++++---------- 1 file changed, 5 insertions(+), 10 deletions(-) diff --git a/lisp/play/gomoku.el b/lisp/play/gomoku.el index f08d934459a..67e193ae416 100644 --- a/lisp/play/gomoku.el +++ b/lisp/play/gomoku.el @@ -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 ;; Adapted-By: ESR, Daniel Pfeiffer @@ -168,7 +168,7 @@ One useful value to include is `turn-on-font-lock' to highlight the pieces." (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 @@ 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)) + (set (make-local-variable 'font-lock-defaults) + '(gomoku-font-lock-keywords t)) + (toggle-read-only t)) ;;; ;;; THE BOARD. -- 2.39.2