home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / epoch / tek-highlight-2.0 / tek-src-highlight-setup.el < prev    next >
Encoding:
Text File  |  1992-08-20  |  1.9 KB  |  52 lines
  1. ;;*****************************************************************************
  2. ;;
  3. ;; Filename:    tek-src-highlight-setup.el
  4. ;;
  5. ;; Copyright (C) 1992  Rod Whitby
  6. ;;
  7. ;; This program is free software; you can redistribute it and/or modify
  8. ;; it under the terms of the GNU General Public License as published by
  9. ;; the Free Software Foundation; either version 1, or (at your option)
  10. ;; any later version.
  11. ;;
  12. ;; This program is distributed in the hope that it will be useful,
  13. ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  14. ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15. ;; GNU General Public License for more details.
  16. ;;
  17. ;; You should have received a copy of the GNU General Public License
  18. ;; along with this program; if not, write to the Free Software
  19. ;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  20. ;;
  21. ;; Modified by:        Rod Whitby, <rwhitby@research.canon.oz.au>
  22. ;; Author:        Ken Wood, <kwood@austek.oz.au>
  23. ;;
  24. ;; Description:    Set up to do comment highlighting in source code buffers.
  25. ;;        Highlighting is updated on find-file and save-buffer.
  26. ;;
  27. ;;        See the INSTALL file that comes with this package for
  28. ;;        installation details.
  29. ;;
  30. ;;*****************************************************************************
  31.  
  32. ;; $Id: tek-src-highlight-setup.el,v 1.5 1992/08/18 04:16:24 rwhitby Rel $
  33.  
  34. (require 'unique-hooks)
  35.  
  36. (if (boundp 'epoch::version)
  37.     (progn
  38.       ;; Update zones when files are loaded or saved.
  39.       (postpend-unique-hook 'find-file-hooks
  40.                'tek-highlight-comments-on-find)
  41.       (postpend-unique-hook 'write-file-hooks
  42.                'tek-highlight-comments-on-write)
  43.  
  44.       ;; Where to find the comment highlighting functions.
  45.       (autoload 'tek-highlight-comments-on-find
  46.         "tek-src-highlight" "autoloadable function" t)
  47.       (autoload 'tek-highlight-comments-on-write
  48.         "tek-src-highlight" "autoloadable function" t)
  49.       ))
  50.  
  51. (provide 'tek-src-highlight-setup)
  52.