# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1003000741 0
# Node ID 9c794d6eeb76be35020636eb7b0939620f443761
# Parent  b27f7112ce6f38e220fbe3475ea03472c096ebfb
* play/gomoku.el (gomoku-mode):
* textmodes/page-ext.el (pages-directory-mode):
* textmodes/scribe.el (scribe-mode): Use define-derived-mode.

diff -r b27f7112ce6f -r 9c794d6eeb76 lisp/textmodes/page-ext.el
--- a/lisp/textmodes/page-ext.el	Sat Oct 13 19:16:56 2001 +0000
+++ b/lisp/textmodes/page-ext.el	Sat Oct 13 19:19:01 2001 +0000
@@ -694,16 +694,11 @@
       (terpri))
     (end-of-line 1)))
 
-(defun pages-directory-mode ()
+(define-derived-mode pages-directory-mode nil "Pages-Directory"
   "Mode for handling the pages-directory buffer.
 
 Move point to one of the lines in this buffer, then use \\[pages-directory-goto] to go
 to the same line in the pages buffer."
-
-  (kill-all-local-variables)
-  (use-local-map pages-directory-map)
-  (setq major-mode 'pages-directory-mode)
-  (setq mode-name "Pages-Directory")
   (make-local-variable 'pages-buffer)
   (make-local-variable 'pages-pos-list)
   (make-local-variable 'pages-directory-buffer-narrowing-p))