home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / lucid / lemacs-19.6 / lisp / version.el < prev    next >
Encoding:
Text File  |  1993-03-22  |  1.7 KB  |  48 lines
  1. ;; Record version number of Emacs.
  2. ;; Copyright (C) 1985-1993 Free Software Foundation, Inc.
  3.  
  4. ;; This file is part of GNU Emacs.
  5.  
  6. ;; GNU Emacs is free software; you can redistribute it and/or modify
  7. ;; it under the terms of the GNU General Public License as published by
  8. ;; the Free Software Foundation; either version 2, or (at your option)
  9. ;; any later version.
  10.  
  11. ;; GNU Emacs is distributed in the hope that it will be useful,
  12. ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  13. ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14. ;; GNU General Public License for more details.
  15.  
  16. ;; You should have received a copy of the GNU General Public License
  17. ;; along with GNU Emacs; see the file COPYING.  If not, write to
  18. ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  19.  
  20.  
  21. ;; The following line is modified automatically
  22. ;; by loading inc-version.el, each time a new Emacs is dumped.
  23. (defconst emacs-version "19.6" "\
  24. Version numbers of this version of Emacs.")
  25.  
  26. (setq emacs-version (purecopy (concat emacs-version " Lucid")))
  27.  
  28. (defconst emacs-build-time (current-time-string) "\
  29. Time at which Emacs was dumped out.")
  30.  
  31. (defconst emacs-build-system (system-name))
  32.  
  33. (defun emacs-version () "\
  34. Return string describing the version of Emacs that is running."
  35.   (interactive)
  36.   (if (interactive-p)
  37.       (message "%s" (emacs-version))
  38.     (format "GNU Emacs %s of %s %s on %s (%s)"
  39.         emacs-version
  40.         (substring emacs-build-time 0
  41.                (string-match " *[0-9]*:" emacs-build-time))
  42.         (substring emacs-build-time (string-match "[0-9]*$" emacs-build-time))
  43.         emacs-build-system system-type)))
  44.  
  45. ;;Local variables:
  46. ;;version-control: never
  47. ;;End:
  48.