home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / emacs-18.59-src.tgz / emacs-18.59-src.tar / fsf / emacs18 / lisp / version.el < prev    next >
Lisp/Scheme  |  1996-09-28  |  2KB  |  46 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 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 1, 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 "18.59.0" "\
  24. Version numbers of this version of Emacs.")
  25.  
  26. (defconst emacs-build-time (current-time-string) "\
  27. Time at which Emacs was dumped out.")
  28.  
  29. (defconst emacs-build-system (system-name))
  30.  
  31. (defun emacs-version () "\
  32. Return string describing the version of Emacs that is running."
  33.   (interactive)
  34.   (if (interactive-p)
  35.       (message "%s" (emacs-version))
  36.     (format "GNU Emacs %s of %s %s on %s (%s)"
  37.         emacs-version
  38.         (substring emacs-build-time 0
  39.                (string-match " *[0-9]*:" emacs-build-time))
  40.         (substring emacs-build-time (string-match "[0-9]*$" emacs-build-time))
  41.         emacs-build-system system-type)))
  42.  
  43. ;;Local variables:
  44. ;;version-control: never
  45. ;;End:
  46.