Mercurial > emacs
comparison lisp/textmodes/page-ext.el @ 39895:9c794d6eeb76
* play/gomoku.el (gomoku-mode):
* textmodes/page-ext.el (pages-directory-mode):
* textmodes/scribe.el (scribe-mode): Use define-derived-mode.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Sat, 13 Oct 2001 19:19:01 +0000 |
| parents | a19197c6442f |
| children | b1f5929aa675 |
comparison
equal
deleted
inserted
replaced
| 39894:b27f7112ce6f | 39895:9c794d6eeb76 |
|---|---|
| 692 (insert (format "%3d: " line-count)))) | 692 (insert (format "%3d: " line-count)))) |
| 693 | 693 |
| 694 (terpri)) | 694 (terpri)) |
| 695 (end-of-line 1))) | 695 (end-of-line 1))) |
| 696 | 696 |
| 697 (defun pages-directory-mode () | 697 (define-derived-mode pages-directory-mode nil "Pages-Directory" |
| 698 "Mode for handling the pages-directory buffer. | 698 "Mode for handling the pages-directory buffer. |
| 699 | 699 |
| 700 Move point to one of the lines in this buffer, then use \\[pages-directory-goto] to go | 700 Move point to one of the lines in this buffer, then use \\[pages-directory-goto] to go |
| 701 to the same line in the pages buffer." | 701 to the same line in the pages buffer." |
| 702 | |
| 703 (kill-all-local-variables) | |
| 704 (use-local-map pages-directory-map) | |
| 705 (setq major-mode 'pages-directory-mode) | |
| 706 (setq mode-name "Pages-Directory") | |
| 707 (make-local-variable 'pages-buffer) | 702 (make-local-variable 'pages-buffer) |
| 708 (make-local-variable 'pages-pos-list) | 703 (make-local-variable 'pages-pos-list) |
| 709 (make-local-variable 'pages-directory-buffer-narrowing-p)) | 704 (make-local-variable 'pages-directory-buffer-narrowing-p)) |
| 710 | 705 |
| 711 (defun pages-directory-goto () | 706 (defun pages-directory-goto () |