[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 0ca712c: * lisp/textmodes/page-ext.el (pages-direct
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] master 0ca712c: * lisp/textmodes/page-ext.el (pages-directory-mode): Use special-mode. |
Date: |
Sat, 27 Aug 2016 18:14:21 +0000 (UTC) |
branch: master
commit 0ca712ca3d0df4d10664d97b5f4ba9f0a21e7a4c
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>
* lisp/textmodes/page-ext.el (pages-directory-mode): Use special-mode.
---
lisp/textmodes/page-ext.el | 10 ++--------
1 file changed, 2 insertions(+), 8 deletions(-)
diff --git a/lisp/textmodes/page-ext.el b/lisp/textmodes/page-ext.el
index 4769af5..f67e85e 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."
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 0ca712c: * lisp/textmodes/page-ext.el (pages-directory-mode): Use special-mode.,
Stefan Monnier <=