From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sat, 27 Aug 2016 18:17:20 +0000 (-0400)
Subject: * lisp/textmodes/page-ext.el (pages-directory-mode): Use special-mode.
X-Git-Tag: emacs-26.0.90~1688
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0ca712ca3d0df4d10664d97b5f4ba9f0a21e7a4c;p=emacs.git

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

diff --git a/lisp/textmodes/page-ext.el b/lisp/textmodes/page-ext.el
index 4769af5a1d1..f67e85e8432 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."