[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/textmodes/page-ext.el
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/textmodes/page-ext.el |
Date: |
Fri, 04 Apr 2003 01:23:07 -0500 |
Index: emacs/lisp/textmodes/page-ext.el
diff -c emacs/lisp/textmodes/page-ext.el:1.26
emacs/lisp/textmodes/page-ext.el:1.27
*** emacs/lisp/textmodes/page-ext.el:1.26 Tue Feb 4 08:30:45 2003
--- emacs/lisp/textmodes/page-ext.el Mon Feb 10 19:44:08 2003
***************
*** 475,490 ****
(defvar pages-target-buffer)
! (defvar pages-directory-map nil
"Keymap for the pages-directory-buffer.")
!
! (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))
(defvar original-page-delimiter "^\f"
"Default page delimiter.")
--- 475,488 ----
(defvar pages-target-buffer)
! (defvar pages-directory-mode-map
! (let ((map (make-sparse-keymap)))
! (define-key map "\C-c\C-c" 'pages-directory-goto)
! (define-key map "\C-c\C-p\C-a" 'add-new-page)
! (define-key map [mouse-2] 'pages-directory-goto-with-mouse)
! map)
"Keymap for the pages-directory-buffer.")
! (defvaralias 'pages-directory-map 'pages-directory-mode-map)
(defvar original-page-delimiter "^\f"
"Default page delimiter.")
***************
*** 703,714 ****
to the same line in the pages buffer."
(kill-all-local-variables)
! (use-local-map pages-directory-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))
(defun pages-directory-goto ()
"Go to the corresponding line in the pages buffer."
--- 701,713 ----
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))
(defun pages-directory-goto ()
"Go to the corresponding line in the pages buffer."
***************
*** 791,812 ****
))
(error "No addresses file found!")))
! (defun pages-directory-address-mode ()
"Mode for handling the Addresses 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."
- (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.
(provide 'page-ext)
-
;;; page-ext.el ends here
--- 790,803 ----
))
(error "No addresses file found!")))
! (define-derived-mode pages-directory-address-mode pages-directory-mode
! "Addresses Directory"
"Mode for handling the Addresses 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."
+ :syntax-table nil)
(provide 'page-ext)
;;; page-ext.el ends here
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/textmodes/page-ext.el,
Miles Bader <=