From xemacs-m  Wed Mar  5 00:40:51 1997
Received: from altair.xemacs.org (steve@xemacs.miranova.com [206.190.83.19])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id AAA24668
	for <xemacs-beta@xemacs.org>; Wed, 5 Mar 1997 00:40:46 -0600 (CST)
Received: (from steve@localhost)
	by altair.xemacs.org (8.8.5/8.8.5) id WAA23532;
	Tue, 4 Mar 1997 22:52:18 -0800
Mail-Copies-To: never
To: xemacs-beta@xemacs.org
Subject: Re: (very) little startup screen patch
References: <x2u3mtp12i.fsf@lemcbed.lem.uni-karlsruhe.de>
X-Url: http://www.miranova.com/%7Esteve/
X-Face: #!T9!#9s-3o8)*uHlX{Ug[xW7E7Wr!*L46-OxqMu\xz23v|R9q}lH?cRS{rCNe^'[`^sr5"
 f8*@r4ipO6Jl!:Ccq<xoV[Qz2u8<8-+Vwf2gzJ44lf_/y9OaQ`@#Q65{U4/TC)i2`~/M&QI$X>p:9I
 OSS'2{-)-4wBnVeg0S\O4Al@)uC[pD|+
X-Attribution: sb
From: Steven L Baur <steve@miranova.com>
In-Reply-To: Jens Lautenbacher's message of 03 Mar 1997 14:17:09 +0100
Mime-Version: 1.0 (generated by tm-edit 7.105)
Content-Type: text/plain; charset=US-ASCII
Date: 04 Mar 1997 22:52:15 -0800
Message-ID: <m2afoide5c.fsf@altair.xemacs.org>
Lines: 63
X-Mailer: Gnus v5.4.17/XEmacs 20.1

Jens Lautenbacher writes:

> It rather annoyed me for a very long time that depending on the length
> of your build machines hostname and OS name, and some other things
> like fontsize it could very easily happen that the startup screen gets
> wrapped around which doesn't look that professional (for a startup
> screen) 

I agree with Martin's conclusion, but not with the reasoning behind
it.

A better solution (IMO) would be to knock out the `[Lucid]' (who
cares?  I don't), the CPU/Vendor portion of the system, and the domain
part of the hostname, which all properly configured hosts have.

The transformation in my case would be from:
XEmacs 20.1 [Lucid] (i586-unknown-linux2.0.29, Mule) of Tue Mar  4 1997 on altair.xemacs.org

to:

XEmacs 20.1 (linux2.0.29, Mule) of Tue Mar  4 1997 on altair

Try this instead:
Index: lisp/prim/startup.el
===================================================================
RCS file: /usr/local/xemacs/xemacs-20.0/lisp/prim/startup.el,v
retrieving revision 1.2
diff -u -r1.2 startup.el
--- startup.el	1996/12/28 21:03:07	1.2
+++ startup.el	1997/03/05 06:47:56
@@ -760,9 +760,27 @@
   ;;                       'startup-presentation-hack-help))
   )
 
+(defun splash-hack-version-string ()
+  (save-excursion
+    (save-restriction
+      (goto-char (point-min))
+      (re-search-forward "^XEmacs" nil t)
+      (narrow-to-region (point-at-bol) (point-at-eol))
+      (goto-char (point-min))
+      (when (re-search-forward " \\[Lucid\\]" nil t)
+	(delete-region (match-beginning 0) (match-end 0)))
+      (when (re-search-forward "[^(].*-.*-" nil t)
+	(delete-region (1+ (match-beginning 0)) (match-end 0))
+	(insert "("))
+      (goto-char (point-max))
+      (search-backward " " nil t)
+      (when (search-forward "." nil t)
+	(delete-region (1- (point)) (point-max))))))
+
 (defun splash-frame-present (l)
   (cond ((stringp l)
-         (insert l))
+         (insert l)
+	 (splash-hack-version-string))
         ((eq (car-safe l) 'face)
          ;; (face name string)
          (let ((p (point)))

-- 
steve@miranova.com baur
Unsolicited commercial e-mail will be billed at $250/message.

