X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/6865473b38579edba55e477536b69d57f3f6b5bc..1169bd863a0a7a8c9a49039e4dd1a9860845cf1d:/lisp/version.el diff --git a/lisp/version.el b/lisp/version.el index ed62ffd4f0..e5c1017a65 100644 --- a/lisp/version.el +++ b/lisp/version.el @@ -1,4 +1,4 @@ -;;; version.el --- record version number of Emacs. +;;; version.el --- record version number of Emacs -*- no-byte-compile: t -*- ;;; Copyright (C) 1985, 1992, 1994, 1995, 1999, 2000, 2001 ;;; Free Software Foundation, Inc. @@ -23,9 +23,11 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: -(defconst emacs-version "21.0.98" "\ +(defconst emacs-version "21.3.50" "\ Version numbers of this version of Emacs.") (defconst emacs-major-version @@ -57,7 +59,8 @@ to the system configuration; look at `system-configuration' instead." "GNU Emacs %s (%s%s%s) of %s on %s") emacs-version system-configuration - (cond ((featurep 'motif) ", Motif") + (cond ((featurep 'motif) + (concat ", " (substring motif-version-string 4))) ((featurep 'x-toolkit) ", X toolkit") (t "")) (if (and (boundp 'x-toolkit-scroll-bars) @@ -73,10 +76,10 @@ to the system configuration; look at `system-configuration' instead." (message "%s" version-string) version-string)))) -;;; We hope that this alias is easier for people to find. +;; We hope that this alias is easier for people to find. (defalias 'version 'emacs-version) -;;; We put version info into the executable in the form that ident(1) uses. +;; We put version info into the executable in the form that `ident' uses. (or (memq system-type '(vax-vms windows-nt)) (purecopy (concat "\n$Id: " (subst-char-in-string ?\n ? (emacs-version)) " $\n")))