Mercurial > emacs

comparison lisp/version.el @ 83566:ddc474387d53

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import arch branch emacs@sv.gnu.org/emacs--multi-tty--0
author Miles Bader <miles@gnu.org>
date Sun, 13 May 2007 13:26:57 +0000
parents f12b62910def edf631bdbb7a
children cc587bfd19ca
comparison
equal deleted inserted replaced
80895:776cb0a1bb24 83566:ddc474387d53
25 25
26 ;;; Commentary: 26 ;;; Commentary:
27 27
28 ;;; Code: 28 ;;; Code:
29 29
30 (defconst emacs-version "22.1.50" "\ 30 (defconst emacs-version "23.0.51" "\
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-number (match-string 0 emacs-version))) 35 (string-to-number (match-string 0 emacs-version)))
53 Don't use this function in programs to choose actions according 53 Don't use this function in programs to choose actions according
54 to the system configuration; look at `system-configuration' instead." 54 to the system configuration; look at `system-configuration' instead."
55 (interactive "P") 55 (interactive "P")
56 (let ((version-string 56 (let ((version-string
57 (format (if (not (interactive-p)) 57 (format (if (not (interactive-p))
58 "GNU Emacs %s (%s%s%s)\n of %s on %s" 58 "GNU Emacs %s (%s%s%s%s)\n of %s on %s"
59 "GNU Emacs %s (%s%s%s) of %s on %s") 59 "GNU Emacs %s (%s%s%s%s) of %s on %s")
60 emacs-version 60 emacs-version
61 system-configuration 61 system-configuration
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)
70 (if (and (boundp 'x-toolkit-scroll-bars) 70 (if (and (boundp 'x-toolkit-scroll-bars)
71 (memq x-toolkit-scroll-bars '(xaw xaw3d))) 71 (memq x-toolkit-scroll-bars '(xaw xaw3d)))
72 (format ", %s scroll bars" 72 (format ", %s scroll bars"
73 (capitalize (symbol-name x-toolkit-scroll-bars))) 73 (capitalize (symbol-name x-toolkit-scroll-bars)))
74 "") 74 "")
75 (if (featurep 'multi-tty) ", multi-tty" "")
75 (format-time-string "%Y-%m-%d" emacs-build-time) 76 (format-time-string "%Y-%m-%d" emacs-build-time)
76 emacs-build-system))) 77 emacs-build-system)))
77 (if here 78 (if here
78 (insert version-string) 79 (insert version-string)
79 (if (interactive-p) 80 (if (interactive-p)