Mercurial > emacs
comparison lisp/version.el @ 83001:67a56c2e50c6
Add "multi-tty" to emacs-version output.
lisp/version.el (emacs-version): Add multi-tty to output if (featurep
'multi-tty). Suggested by Romain Francoise <romain@orebokech.com>.
git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-41
author | Karoly Lorentey <lorentey@elte.hu> |
---|---|
date | Sat, 03 Jan 2004 16:51:56 +0000 |
parents | 695cf19ef79e |
children | ad01ab3c6f4d |
comparison
equal
deleted
inserted
replaced
83000:77022bc45155 | 83001:67a56c2e50c6 |
---|---|
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%s)\n of %s on %s" |
59 "GNU Emacs %s (%s%s%s) of %s on %s") | 59 "GNU Emacs %s (%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") |
68 (if (and (boundp 'x-toolkit-scroll-bars) | 68 (if (and (boundp 'x-toolkit-scroll-bars) |
69 (memq x-toolkit-scroll-bars '(xaw xaw3d))) | 69 (memq x-toolkit-scroll-bars '(xaw xaw3d))) |
70 (format ", %s scroll bars" | 70 (format ", %s scroll bars" |
71 (capitalize (symbol-name x-toolkit-scroll-bars))) | 71 (capitalize (symbol-name x-toolkit-scroll-bars))) |
72 "") | 72 "") |
73 (if (featurep 'multi-tty) ", multi-tty" "") | |
73 (format-time-string "%Y-%m-%d" emacs-build-time) | 74 (format-time-string "%Y-%m-%d" emacs-build-time) |
74 emacs-build-system))) | 75 emacs-build-system))) |
75 (if here | 76 (if here |
76 (insert version-string) | 77 (insert version-string) |
77 (if (interactive-p) | 78 (if (interactive-p) |