53 |
Don't use this function in programs to choose actions according |
Don't use this function in programs to choose actions according |
54 |
to the system configuration; look at `system-configuration' instead." |
to the system configuration; look at `system-configuration' instead." |
55 |
(interactive "P") |
(interactive "P") |
56 |
(let ((version-string |
(let ((version-string |
57 |
(format (if (not (interactive-p)) |
(format (if (not (interactive-p)) |
58 |
"GNU Emacs %s (%s%s%s)\n of %s on %s" |
"GNU Emacs %s (%s%s%s)\n of %s on %s" |
59 |
"GNU Emacs %s (%s%s%s) of %s on %s") |
"GNU Emacs %s (%s%s%s) of %s on %s") |
60 |
emacs-version |
emacs-version |
61 |
system-configuration |
system-configuration |
62 |
(cond ((featurep 'motif) |
(cond ((featurep 'motif) |
63 |
(concat ", " (substring motif-version-string 4))) |
(concat ", " (substring motif-version-string 4))) |
64 |
((featurep 'x-toolkit) ", X toolkit") |
((featurep 'x-toolkit) ", X toolkit") |
65 |
(t "")) |
(t "")) |
70 |
"") |
"") |
71 |
(format-time-string "%Y-%m-%d" emacs-build-time) |
(format-time-string "%Y-%m-%d" emacs-build-time) |
72 |
emacs-build-system))) |
emacs-build-system))) |
73 |
(if here |
(if here |
74 |
(insert version-string) |
(insert version-string) |
75 |
(if (interactive-p) |
(if (interactive-p) |
76 |
(message "%s" version-string) |
(message "%s" version-string) |