Mercurial > emacs

comparison lisp/version.el @ 49597:e88404e8f2cf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Trailing whitespace deleted.
author Juanma Barranquero <lekktu@gmail.com>
date Tue, 04 Feb 2003 12:29:42 +0000
parents 33d53d287ee4
children 2f148721b4f0 d7ddb3e565de
comparison
equal deleted inserted replaced
49596:b06535145619 49597:e88404e8f2cf
51 Return string describing the version of Emacs that is running. 51 Return string describing the version of Emacs that is running.
52 If optional argument HERE is non-nil, insert string at point. 52 If optional argument HERE is non-nil, insert string at point.
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)\n of %s on %s"
59 "GNU Emacs %s (%s%s%s) of %s on %s") 59 "GNU Emacs %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 'x-toolkit) ", X toolkit") 64 ((featurep 'x-toolkit) ", X toolkit")
65 (t "")) 65 (t ""))
66 (if (and (boundp 'x-toolkit-scroll-bars) 66 (if (and (boundp 'x-toolkit-scroll-bars)
67 (memq x-toolkit-scroll-bars '(xaw xaw3d))) 67 (memq x-toolkit-scroll-bars '(xaw xaw3d)))
68 (format ", %s scroll bars" 68 (format ", %s scroll bars"
69 (capitalize (symbol-name x-toolkit-scroll-bars))) 69 (capitalize (symbol-name x-toolkit-scroll-bars)))
70 "") 70 "")
71 (format-time-string "%Y-%m-%d" emacs-build-time) 71 (format-time-string "%Y-%m-%d" emacs-build-time)
72 emacs-build-system))) 72 emacs-build-system)))
73 (if here 73 (if here
74 (insert version-string) 74 (insert version-string)
75 (if (interactive-p) 75 (if (interactive-p)
76 (message "%s" version-string) 76 (message "%s" version-string)
77 version-string)))) 77 version-string))))
78 78