Commit 0ca712ca authored by Stefan Monnier's avatar Stefan Monnier

* lisp/textmodes/page-ext.el (pages-directory-mode): Use special-mode.

parent 223429c0
......@@ -694,20 +694,14 @@ Used by `pages-directory' function."
(terpri))
(end-of-line 1)))
(defun pages-directory-mode ()
(define-derived-mode pages-directory-mode special-mode "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-mode-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)
(run-mode-hooks 'pages-directory-mode-hook))
(make-local-variable 'pages-directory-buffer-narrowing-p))
(defun pages-directory-goto ()
"Go to the corresponding line in the pages buffer."
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment