Mercurial > emacs

changeset 46847:b1f5929aa675

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(pages-directory-mode): Undo previous change.
author Richard M. Stallman <rms@gnu.org>
date Fri, 09 Aug 2002 16:40:43 +0000
parents 120cf6ced12e
children 0d65796a3488
files lisp/textmodes/page-ext.el
diffstat 1 files changed, 6 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/textmodes/page-ext.el	Fri Aug 09 14:14:32 2002 +0000
+++ b/lisp/textmodes/page-ext.el	Fri Aug 09 16:40:43 2002 +0000
@@ -694,11 +694,16 @@
       (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))