From f0e2c284732f28a4ab09fbc8a7eaeebc81f72d18 Mon Sep 17 00:00:00 2001 From: Karoly Lorentey Date: Sat, 3 Jan 2004 16:51:56 +0000 Subject: [PATCH] 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 . git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-41 --- lisp/version.el | 5 +++-- 1 file 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." (interactive "P") (let ((version-string (format (if (not (interactive-p)) - "GNU Emacs %s (%s%s%s)\n of %s on %s" - "GNU Emacs %s (%s%s%s) of %s on %s") + "GNU Emacs %s (%s%s%s%s)\n of %s on %s" + "GNU Emacs %s (%s%s%s%s) of %s on %s") emacs-version system-configuration (cond ((featurep 'motif) @@ -70,6 +70,7 @@ to the system configuration; look at `system-configuration' instead." (format ", %s scroll bars" (capitalize (symbol-name x-toolkit-scroll-bars))) "") + (if (featurep 'multi-tty) ", multi-tty" "") (format-time-string "%Y-%m-%d" emacs-build-time) emacs-build-system))) (if here