Mercurial > emacs
comparison lisp/version.el @ 49597:e88404e8f2cf
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 |