diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2016-08-27 14:17:20 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2016-08-27 14:17:20 -0400 |
| commit | 0ca712ca3d0df4d10664d97b5f4ba9f0a21e7a4c (patch) | |
| tree | 8558f152305d1ec4791e821042eda37d19f0fb5d | |
| parent | 223429c09bb457f686693a6280339a4888bbad1c (diff) | |
* lisp/textmodes/page-ext.el (pages-directory-mode): Use special-mode.
| -rw-r--r-- | lisp/textmodes/page-ext.el | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/lisp/textmodes/page-ext.el b/lisp/textmodes/page-ext.el index 4769af5a1d..f67e85e843 100644 --- a/lisp/textmodes/page-ext.el +++ b/lisp/textmodes/page-ext.el @@ -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." |