(titdic-convert): Force files be

[gnu-emacs] / lisp / version.el

diff --git a/lisp/version.el b/lisp/version.el
index 05fdde95221a96ec5a2f5430d2378f48bef876d9..f6ab6c4c913034a0499068933ccc64e98e840a24 100644 (file)
--- a/lisp/version.el
+++ b/lisp/version.el
@@ -1,7 +1,7 @@
 ;;; version.el --- record version number of Emacs -*- no-byte-compile: t -*-
 
-;;; Copyright (C) 1985, 1992, 1994, 1995, 1999, 2000, 2001
-;;;   Free Software Foundation, Inc.
+;; Copyright (C) 1985, 1992, 1994, 1995, 1999, 2000, 2001, 2002,
+;;   2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc.
 
 ;; Maintainer: FSF
 ;; Keywords: internal
@@ -27,7 +27,7 @@
 
 ;;; Code:
 
-(defconst emacs-version "22.0.50" "\
+(defconst emacs-version "22.0.93" "\
 Version numbers of this version of Emacs.")
 
 (defconst emacs-major-version
@@ -47,7 +47,7 @@ Time at which Emacs was dumped out.")
 
 (defconst emacs-build-system (system-name))
 
-(defun emacs-version  (&optional here) "\
+(defun emacs-version (&optional here) "\
 Return string describing the version of Emacs that is running.
 If optional argument HERE is non-nil, insert string at point.
 Don't use this function in programs to choose actions according
@@ -64,6 +64,8 @@ to the system configuration; look at `system-configuration' instead."
                       ((featurep 'gtk)
                        (concat ", GTK+ Version " gtk-version-string))
                       ((featurep 'x-toolkit) ", X toolkit")
+                      ((boundp 'mac-carbon-version-string)
+                       (concat ", Carbon Version " mac-carbon-version-string))
                       (t ""))
                 (if (and (boundp 'x-toolkit-scroll-bars)
                          (memq x-toolkit-scroll-bars '(xaw xaw3d)))
@@ -83,7 +85,7 @@ to the system configuration; look at `system-configuration' instead."
 
 ;; 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))
+    (purecopy (concat "\n$Id: " (subst-char-in-string ?\n ?\s (emacs-version))
                      " $\n")))
 
 ;;Local variables: