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