Mercurial > emacs

comparison lisp/version.el @ 83545:034f67f59091

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merged from emacs@sv.gnu.org. Patches applied: * emacs@sv.gnu.org/emacs--devo--0--patch-479 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-480 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-481 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-482 Merge from gnus--rel--5.10 * emacs@sv.gnu.org/emacs--devo--0--patch-483 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-484 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-485 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-153 Merge from emacs--devo--0 * emacs@sv.gnu.org/gnus--rel--5.10--patch-154 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-155 Update from CVS git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-585
author Karoly Lorentey <lorentey@elte.hu>
date Sun, 03 Dec 2006 12:25:18 +0000
parents b98066f4aa10 16133e335cb5
children c71725faff1a
comparison
equal deleted inserted replaced
83544:58cf725f5330 83545:034f67f59091
25 25
26 ;;; Commentary: 26 ;;; Commentary:
27 27
28 ;;; Code: 28 ;;; Code:
29 29
30 (defconst emacs-version "22.0.51" "\ 30 (defconst emacs-version "22.0.91" "\
31 Version numbers of this version of Emacs.") 31 Version numbers of this version of Emacs.")
32 32
33 (defconst emacs-major-version 33 (defconst emacs-major-version
34 (progn (string-match "^[0-9]+" emacs-version) 34 (progn (string-match "^[0-9]+" emacs-version)
35 (string-to-int (match-string 0 emacs-version))) 35 (string-to-int (match-string 0 emacs-version)))
62 (cond ((featurep 'motif) 62 (cond ((featurep 'motif)
63 (concat ", " (substring motif-version-string 4))) 63 (concat ", " (substring motif-version-string 4)))
64 ((featurep 'gtk) 64 ((featurep 'gtk)
65 (concat ", GTK+ Version " gtk-version-string)) 65 (concat ", GTK+ Version " gtk-version-string))
66 ((featurep 'x-toolkit) ", X toolkit") 66 ((featurep 'x-toolkit) ", X toolkit")
67 ((boundp 'mac-carbon-version-string)
68 (concat ", Carbon Version " mac-carbon-version-string))
67 (t "")) 69 (t ""))
68 (if (and (boundp 'x-toolkit-scroll-bars) 70 (if (and (boundp 'x-toolkit-scroll-bars)
69 (memq x-toolkit-scroll-bars '(xaw xaw3d))) 71 (memq x-toolkit-scroll-bars '(xaw xaw3d)))
70 (format ", %s scroll bars" 72 (format ", %s scroll bars"
71 (capitalize (symbol-name x-toolkit-scroll-bars))) 73 (capitalize (symbol-name x-toolkit-scroll-bars)))