home *** CD-ROM | disk | FTP | other *** search
/ Education Sampler 1992 [NeXTSTEP] / Education_1992_Sampler.iso / NeXT / GnuSource / emacs-15.0.3 / lisp / version.el < prev    next >
Lisp/Scheme  |  1990-08-16  |  2KB  |  47 lines
  1. ;; Record version number of Emacs.
  2. ;; Copyright (C) 1985 Free Software Foundation, Inc.
  3.  
  4. ;; This file is part of GNU Emacs.
  5.  
  6. ;; GNU Emacs is distributed in the hope that it will be useful,
  7. ;; but WITHOUT ANY WARRANTY.  No author or distributor
  8. ;; accepts responsibility to anyone for the consequences of using it
  9. ;; or for whether it serves any particular purpose or works at all,
  10. ;; unless he says so in writing.  Refer to the GNU Emacs General Public
  11. ;; License for full details.
  12.  
  13. ;; Everyone is granted permission to copy, modify and redistribute
  14. ;; GNU Emacs, but only under the conditions described in the
  15. ;; GNU Emacs General Public License.   A copy of this license is
  16. ;; supposed to have been given to you along with GNU Emacs so you
  17. ;; can know your rights and responsibilities.  It should be in a
  18. ;; file named COPYING.  Among other things, the copyright notice
  19. ;; and this notice must be preserved on all copies.
  20.  
  21.  
  22. ;; The following line is modified automatically
  23. ;; by loading inc-version.el, each time a new Emacs is dumped.
  24. (defconst emacs-version "18.55.118" "\
  25. Version numbers of this version of Emacs.")
  26.  
  27. (defconst emacs-build-time (current-time-string) "\
  28. Time at which Emacs was dumped out.")
  29.  
  30. (defconst emacs-build-system (system-name))
  31.  
  32. (defun emacs-version () "\
  33. Return string describing the version of Emacs that is running."
  34.   (interactive)
  35.   (if (interactive-p)
  36.       (message "%s" (emacs-version))
  37.     (format "GNU Emacs %s of %s %s on %s (%s)"
  38.         emacs-version
  39.         (substring emacs-build-time 0
  40.                (string-match " *[0-9]*:" emacs-build-time))
  41.         (substring emacs-build-time (string-match "[0-9]*$" emacs-build-time))
  42.         emacs-build-system system-type)))
  43.  
  44. ;;Local variables:
  45. ;;version-control: never
  46. ;;End:
  47.