diff options
| author | Richard M. Stallman <rms@gnu.org> | 2002-08-09 16:41:01 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2002-08-09 16:41:01 +0000 |
| commit | f8da45ad01dd996e2beacdcd0f3820e19870399f (patch) | |
| tree | 852abddd082ef5526e9dfbd66b980a95a5a2f29b /lisp/textmodes | |
| parent | 16236388b2396a28deb625c9ecc98978b8065f96 (diff) | |
| download | emacs-f8da45ad01dd996e2beacdcd0f3820e19870399f.tar.gz | |
(pages-directory-mode): Undo previous change.
Diffstat (limited to 'lisp/textmodes')
| -rw-r--r-- | lisp/textmodes/page-ext.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/textmodes/page-ext.el b/lisp/textmodes/page-ext.el index 9bf4588a43b..87059d21b0a 100644 --- 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)) |