home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / unix / volume11 / templates / part05 / pascal.el < prev    next >
Lisp/Scheme  |  1987-10-04  |  727b  |  32 lines
  1. ;;; pascal.el -- Pascal mode for Gnuemacs
  2. ;;; Copyright (C) 1987 Mark A. Ardis.
  3.  
  4. (provide 'pascal)
  5.  
  6. ;;;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  7.  
  8. (defvar pascal-mode-map nil
  9.   "Keymap for Pascal Mode."
  10.   ) ; pascal-mode-map
  11.  
  12. ;;;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  13.  
  14. (defun pascal-mode ()
  15.   "Fundamental mode plus Pascal templates:
  16. \\{pascal-mode-map}
  17. "
  18.   (interactive)
  19.                     ; Local Variables
  20.   (let ()
  21.                     ; Body
  22.     (setq major-mode 'pascal-mode)
  23.     (setq mode-name "Pascal")
  24.     (template-mode)
  25.     (setq pascal-mode-map (current-local-map))
  26.     ) ; let
  27.   ) ; defun pascal-mode
  28.  
  29. ;;;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  30.  
  31. ;;; end of pascal.el
  32.