diff options
| author | Karoly Lorentey | 2004-01-03 16:51:56 +0000 |
|---|---|---|
| committer | Karoly Lorentey | 2004-01-03 16:51:56 +0000 |
| commit | f0e2c284732f28a4ab09fbc8a7eaeebc81f72d18 (patch) | |
| tree | 1c41b72bf6b59716c10d5e2a5717dd462a270ca1 | |
| parent | fa013bcef8a23770cec7a4bc0c5bfae665242399 (diff) | |
| download | emacs-f0e2c284732f28a4ab09fbc8a7eaeebc81f72d18.tar.gz emacs-f0e2c284732f28a4ab09fbc8a7eaeebc81f72d18.zip | |
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
| -rw-r--r-- | lisp/version.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/version.el b/lisp/version.el index 42dbb3f9c25..6c99d8de1d6 100644 --- a/lisp/version.el +++ b/lisp/version.el | |||
| @@ -55,8 +55,8 @@ 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) |
| @@ -70,6 +70,7 @@ to the system configuration; look at `system-configuration' instead." | |||
| 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 |