475 |
|
|
476 |
(defvar pages-target-buffer) |
(defvar pages-target-buffer) |
477 |
|
|
478 |
(defvar pages-directory-map nil |
(defvar pages-directory-mode-map |
479 |
|
(let ((map (make-sparse-keymap))) |
480 |
|
(define-key map "\C-c\C-c" 'pages-directory-goto) |
481 |
|
(define-key map "\C-c\C-p\C-a" 'add-new-page) |
482 |
|
(define-key map [mouse-2] 'pages-directory-goto-with-mouse) |
483 |
|
map) |
484 |
"Keymap for the pages-directory-buffer.") |
"Keymap for the pages-directory-buffer.") |
485 |
|
(defvaralias 'pages-directory-map 'pages-directory-mode-map) |
|
(if pages-directory-map |
|
|
() |
|
|
(setq pages-directory-map (make-sparse-keymap)) |
|
|
(define-key pages-directory-map "\C-c\C-c" |
|
|
'pages-directory-goto) |
|
|
(define-key pages-directory-map "\C-c\C-p\C-a" 'add-new-page) |
|
|
(define-key pages-directory-map [mouse-2] 'pages-directory-goto-with-mouse)) |
|
486 |
|
|
487 |
(defvar original-page-delimiter "^\f" |
(defvar original-page-delimiter "^\f" |
488 |
"Default page delimiter.") |
"Default page delimiter.") |
701 |
to the same line in the pages buffer." |
to the same line in the pages buffer." |
702 |
|
|
703 |
(kill-all-local-variables) |
(kill-all-local-variables) |
704 |
(use-local-map pages-directory-map) |
(use-local-map pages-directory-mode-map) |
705 |
(setq major-mode 'pages-directory-mode) |
(setq major-mode 'pages-directory-mode) |
706 |
(setq mode-name "Pages-Directory") |
(setq mode-name "Pages-Directory") |
707 |
(make-local-variable 'pages-buffer) |
(make-local-variable 'pages-buffer) |
708 |
(make-local-variable 'pages-pos-list) |
(make-local-variable 'pages-pos-list) |
709 |
(make-local-variable 'pages-directory-buffer-narrowing-p)) |
(make-local-variable 'pages-directory-buffer-narrowing-p) |
710 |
|
(run-mode-hooks 'pages-directory-mode-hook)) |
711 |
|
|
712 |
(defun pages-directory-goto () |
(defun pages-directory-goto () |
713 |
"Go to the corresponding line in the pages buffer." |
"Go to the corresponding line in the pages buffer." |
790 |
)) |
)) |
791 |
(error "No addresses file found!"))) |
(error "No addresses file found!"))) |
792 |
|
|
793 |
(defun pages-directory-address-mode () |
(define-derived-mode pages-directory-address-mode pages-directory-mode |
794 |
|
"Addresses Directory" |
795 |
"Mode for handling the Addresses Directory buffer. |
"Mode for handling the Addresses Directory buffer. |
796 |
|
|
797 |
Move point to one of the lines in this buffer, |
Move point to one of the lines in this buffer, |
798 |
then use \\[pages-directory-goto] to go |
then use \\[pages-directory-goto] to go |
799 |
to the same line in the pages buffer." |
to the same line in the pages buffer." |
800 |
|
:syntax-table nil) |
801 |
|
|
|
(use-local-map pages-directory-map) |
|
|
(setq major-mode 'pages-directory-address-mode) |
|
|
(setq mode-name "Addresses Directory") |
|
|
(make-local-variable 'pages-buffer) |
|
|
(make-local-variable 'pages-pos-list) |
|
|
(make-local-variable 'pages-directory-buffer-narrowing-p)) |
|
|
|
|
|
|
|
|
;;; Place `provide' at end of file. |
|
802 |
(provide 'page-ext) |
(provide 'page-ext) |
|
|
|
803 |
;;; page-ext.el ends here |
;;; page-ext.el ends here |