(pages-directory-mode): Undo previous change.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c289d76e7e17d6d5001fbabd9092fa4ccd61f738..d7b5d3347a8d2433df3da0c5d9ef756aef67bc72 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2002-08-09  Richard M. Stallman  <rms@gnu.org>
 
+       * textmodes/page-ext.el (pages-directory-mode): Undo previous change.
+
        * simple.el (set-variable): Give locality status in prompt.
 
 2002-08-09  Benjamin Rutt  <rutt@cis.ohio-state.edu>

diff --git a/lisp/textmodes/page-ext.el b/lisp/textmodes/page-ext.el
index 9bf4588a43b804248f7d93028617ac4fba8f714d..87059d21b0a7d06eefd63895abe33402e4324523 100644 (file)
--- a/lisp/textmodes/page-ext.el
+++ b/lisp/textmodes/page-ext.el
@@ -694,11 +694,16 @@ Used by `pages-directory' function."
       (terpri))
     (end-of-line 1)))
 
-(define-derived-mode pages-directory-mode nil "Pages-Directory"
+(defun pages-directory-mode ()
   "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))