/[emacs]/emacs/lisp/textmodes/page-ext.el
ViewVC logotype

Diff of /emacs/lisp/textmodes/page-ext.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.26 by lektu, Tue Feb 4 13:30:45 2003 UTC revision 1.27 by monnier, Tue Feb 11 00:44:08 2003 UTC
# Line 475  contain matches to the regexp.\)") Line 475  contain matches to the regexp.\)")
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.")
# Line 703  Move point to one of the lines in this b Line 701  Move point to one of the lines in this b
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."
# Line 791  directory." Line 790  directory."
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

Legend:
Removed from v.1.26  
changed lines
  Added in v.1.27

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26