home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / epoch / tek-epoch-stuff / tek-src-hilite-setup.el < prev    next >
Encoding:
Text File  |  1991-10-22  |  1.9 KB  |  53 lines
  1. ;*****************************************************************************
  2. ;
  3. ; Filename:    tek-src-hilite-setup.el
  4. ;
  5. ; Copyright (C) 1991  Ken Wood
  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. ; Author:        Ken Wood, <kwood@austek.oz.au>
  22. ; Organisation:        Austek Microsystems Pty Ltd, Australia.
  23. ; Released with permission from Austek Microsystems.
  24. ;
  25. ; Description:    Set up to do comment highlighting in source code buffers.
  26. ;        Highlighting is updated on find-file and save-buffer.
  27. ;
  28. ;        See the INSTALL file that comes with this package for
  29. ;        installation details.
  30. ;
  31. ;*****************************************************************************
  32.  
  33. ; $Id: tek-src-hilite-setup.el,v 1.3 1991/10/23 02:15:10 kwood Exp $
  34.  
  35. (require 'maclib-toolbox)
  36. (require 'epoch-running)
  37. (provide 'tek-src-hilite-setup)
  38.  
  39. (if running-epoch
  40.     (progn
  41.       ; Update buttons when files are loaded or saved.
  42.       (postpend-unique-hook 'find-file-hooks
  43.                'tek-highlight-comments-on-find)
  44.       (postpend-unique-hook 'write-file-hooks
  45.                'tek-highlight-comments-on-write)
  46.  
  47.       ; Where to find the comment highlighting functions.
  48.       (autoload 'tek-highlight-comments-on-find
  49.         "tek-src-hilite" "autoloadable function" t)
  50.       (autoload 'tek-highlight-comments-on-write
  51.         "tek-src-hilite" "autoloadable function" t)
  52.       ))
  53.