home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / epoch / tek-epoch-stuff / epoch-running.el < prev    next >
Encoding:
Text File  |  1991-10-22  |  1.1 KB  |  31 lines
  1. ;*****************************************************************************
  2. ;
  3. ; Filename:    epoch-running.el
  4. ;
  5. ; Description:    Sets a flag to indicate if user is running Epoch or Emacs.
  6. ;
  7. ; Author:    Someone on the net, whose name I forgot.
  8. ;
  9. ; This version by:    Ken Wood, <kwood@austek.oz.au>
  10. ; Organisation:        Austek Microsystems Pty Ltd, Australia.
  11. ;
  12. ;        See the INSTALL file that comes with this package for
  13. ;        installation details.
  14. ;
  15. ;*****************************************************************************
  16.  
  17. ; $Id: epoch-running.el,v 1.3 1991/10/23 02:15:10 kwood Exp $
  18.  
  19. (provide 'epoch-running)
  20.  
  21. ;; epoch-version is an epoch-defined variable whose value is not nil.
  22. ;; By looking at it you can tell if you are running epoch.  But, on
  23. ;; the other hand, it doesnt exist in a regular gnuemacs, so defvar-ing
  24. ;; it to nil here guarantees it will be nil in gnuemacs and non-nil
  25. ;; in epoch
  26. (defvar epoch::version nil)     ;; in epoch this will not set!
  27.  
  28. ;; running-epoch is a better name for the variable that tells us is we are
  29. ;; in epoch or not
  30. (setq running-epoch epoch::version)
  31.