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-info-setup.el < prev    next >
Encoding:
Text File  |  1991-12-11  |  1.9 KB  |  57 lines
  1. ;*****************************************************************************
  2. ;
  3. ; Filename:    tek-info-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 use Dave Gillespie's "kitchen sink" info browser
  26. ;        under epoch. Provides highlighting and mouse bindings.
  27. ;
  28. ;        See the INSTALL file that comes with this package for
  29. ;        installation details.
  30. ;
  31. ;*****************************************************************************
  32.  
  33. ; $Id: tek-info-setup.el,v 1.6 1991/12/12 05:38:50 kwood Exp $
  34.  
  35. (require 'epoch-running)
  36. (require 'maclib-toolbox)
  37. (provide 'tek-info-setup)
  38.  
  39. (if (fboundp 'info)
  40.     (fmakunbound 'info))
  41.  
  42. (if running-epoch
  43.     (progn
  44.       
  45.       (defun tek-info-init-for-epoch ()
  46.     "Initialise the info browser for use under epoch."
  47.     (require 'tek-info-buttons))
  48.  
  49.  
  50.       (prepend-unique-hook 'Info-load-hook 'tek-info-init-for-epoch)
  51.       (prepend-unique-hook 'Info-mode-hook 'Info-setup-mouse-map)
  52.       (prepend-unique-hook 'Info-select-hook 'Info-setup-buttons)
  53.       ))
  54.  
  55. ; Load emacs-based info
  56. (autoload 'info "tek-info" "autoloadable function" t)
  57.