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-vm-hilite-setup.el < prev    next >
Encoding:
Text File  |  1991-10-22  |  1.5 KB  |  47 lines
  1. ;*****************************************************************************
  2. ;
  3. ; Filename:    tek-vm-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 highlighting under VM if running epoch.
  26. ;
  27. ;        See the INSTALL file that comes with this package for
  28. ;        installation details.
  29. ;
  30. ;*****************************************************************************
  31.  
  32. ; $Id: tek-vm-hilite-setup.el,v 1.3 1991/10/23 02:15:10 kwood Exp $
  33.  
  34. (require 'maclib-toolbox)
  35. (require 'epoch-running)
  36. (provide 'tek-vm-hilite-setup)
  37.  
  38. (if running-epoch
  39.     (progn
  40.  
  41.       (defun tek-init-vm-hiliting ()
  42.     (require 'tek-vm-hilite)
  43.     nil)
  44.  
  45.       (prepend-unique-hook 'vm-mode-hooks 'tek-init-vm-hiliting)
  46.       ))
  47.