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) |