[Emacs-diffs] Changes to emacs/lisp/textmodes/page-ext.el

[Miles Bader]

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