Mercurial > emacs
comparison lisp/version.el @ 84362:c4b3ecda1e21
(emacs-version): Revert 2007-08-29 change: no need to say if multi-tty
is present.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Fri, 07 Sep 2007 04:37:52 +0000 |
parents | e0bf475f2eb9 |
children | 30d07f600825 14c4a6aac623 |
comparison
equal
deleted
inserted
replaced
84361:c05c0eff3e11 | 84362:c4b3ecda1e21 |
---|---|
56 Don't use this function in programs to choose actions according | 56 Don't use this function in programs to choose actions according |
57 to the system configuration; look at `system-configuration' instead." | 57 to the system configuration; look at `system-configuration' instead." |
58 (interactive "P") | 58 (interactive "P") |
59 (let ((version-string | 59 (let ((version-string |
60 (format (if (not (interactive-p)) | 60 (format (if (not (interactive-p)) |
61 "GNU Emacs %s (%s%s%s%s)\n of %s on %s" | 61 "GNU Emacs %s (%s%s%s)\n of %s on %s" |
62 "GNU Emacs %s (%s%s%s%s) of %s on %s") | 62 "GNU Emacs %s (%s%s%s) of %s on %s") |
63 emacs-version | 63 emacs-version |
64 system-configuration | 64 system-configuration |
65 (cond ((featurep 'motif) | 65 (cond ((featurep 'motif) |
66 (concat ", " (substring motif-version-string 4))) | 66 (concat ", " (substring motif-version-string 4))) |
67 ((featurep 'gtk) | 67 ((featurep 'gtk) |
73 (if (and (boundp 'x-toolkit-scroll-bars) | 73 (if (and (boundp 'x-toolkit-scroll-bars) |
74 (memq x-toolkit-scroll-bars '(xaw xaw3d))) | 74 (memq x-toolkit-scroll-bars '(xaw xaw3d))) |
75 (format ", %s scroll bars" | 75 (format ", %s scroll bars" |
76 (capitalize (symbol-name x-toolkit-scroll-bars))) | 76 (capitalize (symbol-name x-toolkit-scroll-bars))) |
77 "") | 77 "") |
78 (if (featurep 'multi-tty) ", multi-tty" "") | |
79 (format-time-string "%Y-%m-%d" emacs-build-time) | 78 (format-time-string "%Y-%m-%d" emacs-build-time) |
80 emacs-build-system))) | 79 emacs-build-system))) |
81 (if here | 80 (if here |
82 (insert version-string) | 81 (insert version-string) |
83 (if (interactive-p) | 82 (if (interactive-p) |