Mercurial > emacs

comparison lisp/version.el @ 34870:6c2c536e15aa

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(emacs-version): Print X scroll bar information.
author Gerd Moellmann <gerd@gnu.org>
date Wed, 27 Dec 2000 14:34:09 +0000
parents 2e93437356ad
children f9654fb1f220
comparison
equal deleted inserted replaced
34869:1d671133e618 34870:6c2c536e15aa
51 Don't use this function in programs to choose actions according 51 Don't use this function in programs to choose actions according
52 to the system configuration; look at `system-configuration' instead." 52 to the system configuration; look at `system-configuration' instead."
53 (interactive "P") 53 (interactive "P")
54 (let ((version-string 54 (let ((version-string
55 (format (if (not (interactive-p)) 55 (format (if (not (interactive-p))
56 "GNU Emacs %s (%s%s)\n of %s on %s" 56 "GNU Emacs %s (%s%s%s)\n of %s on %s"
57 "GNU Emacs %s (%s%s) of %s on %s") 57 "GNU Emacs %s (%s%s%s) of %s on %s")
58 emacs-version 58 emacs-version
59 system-configuration 59 system-configuration
60 (cond ((featurep 'motif) ", Motif") 60 (cond ((featurep 'motif) ", Motif")
61 ((featurep 'x-toolkit) ", X toolkit") 61 ((featurep 'x-toolkit) ", X toolkit")
62 (t "")) 62 (t ""))
63 (if (and (boundp 'x-toolkit-scroll-bars)
64 (memq x-toolkit-scroll-bars '(xaw xaw3d)))
65 (format ", %s scroll bars"
66 (capitalize (symbol-name x-toolkit-scroll-bars)))
67 "")
63 (format-time-string "%Y-%m-%d" emacs-build-time) 68 (format-time-string "%Y-%m-%d" emacs-build-time)
64 emacs-build-system))) 69 emacs-build-system)))
65 (if here 70 (if here
66 (insert version-string) 71 (insert version-string)
67 (if (interactive-p) 72 (if (interactive-p)