From xemacs-m  Mon Mar  3 07:15:39 1997
Received: from lemcbed.lem.uni-karlsruhe.de (lemcbed.lem.uni-karlsruhe.de [129.13.103.197])
	by xemacs.org (8.8.5/8.8.5) with SMTP id HAA18278
	for <xemacs-beta@xemacs.org>; Mon, 3 Mar 1997 07:15:38 -0600 (CST)
Received: by lemcbed.lem.uni-karlsruhe.de; id AA23563; Mon, 3 Mar 1997 14:17:14 +0100
To: xemacs-beta@xemacs.org
Subject: (very) little startup screen patch
X-Face: Z[@OB)("ZvE?ev~1b+b!0ZUB.$%rh.9qE>dVf>q}Q/V?%d`J3gd!LR\aAZ8<Hwi]xTA(:*c;i3,?K?+rCy*^b$)a,}E?eo},}x2]5LlJysyoUOK"o[>K)'\Ulb7y-7*.If^;rHl['oa)n_M7E6w+LDKMs"G8_`c)uOS1^}.1|8Ill]7X68X-paeUOpBhz<F`B0?~^2Et~GYfw~/0]H]nx4~C_E/_mp#^7Ixc:
Reply-To: jens@lemcbed.lem.uni-karlsruhe.de
Mime-Version: 1.0 (generated by tm-edit 7.105)
Content-Type: multipart/mixed;
 boundary="Multipart_Mon_Mar__3_14:17:09_1997-1"
Content-Transfer-Encoding: 7bit
From: Jens Lautenbacher <jens@lemcbed.lem.uni-karlsruhe.de>
Date: 03 Mar 1997 14:17:09 +0100
Message-Id: <x2u3mtp12i.fsf@lemcbed.lem.uni-karlsruhe.de>
Lines: 52
X-Mailer: Gnus v5.4.16/XEmacs 19.15

--Multipart_Mon_Mar__3_14:17:09_1997-1
Content-Type: text/plain; charset=US-ASCII



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) 

This fixes one line and sets truncate-line to t for this
buffer. Incomplete lines at least look better than wrapped ones (on
astartup screen I have to repeat.)


--Multipart_Mon_Mar__3_14:17:09_1997-1
Content-Type: application/octet-stream; type=patch
Content-Disposition: attachment; filename="startup.patch"
Content-Transfer-Encoding: 7bit

*** startup.el~	Sun Feb 02 06:06:09 1997
--- startup.el	Mon Mar 03 13:57:49 1997
***************
*** 829,834 ****
--- 829,835 ----
         (round (/ (/ (- fill-area-width glyph-pixwidth) 2) avg-pixwidth)))))
  
  (defun startup-splash-frame-body ()
+   (setq truncate-lines t)
    `("\n" ,(emacs-version) "\n"
      (face bold-italic "\
  Copyright (C) 1985-1996 Free Software Foundation, Inc.
***************
*** 861,867 ****
            (key describe-no-warranty) " for full details.\n"))
      
      "You may give out copies of XEmacs; type "
!     (key describe-copying) " to see the conditions.\n"
      "Type " (key describe-distribution)
      " for information on getting the latest version.\n\n"
  
--- 862,868 ----
            (key describe-no-warranty) " for full details.\n"))
      
      "You may give out copies of XEmacs; type "
!     (key describe-copying) "\nto see the conditions.\n"
      "Type " (key describe-distribution)
      " for information on getting the latest version.\n\n"
  

--Multipart_Mon_Mar__3_14:17:09_1997-1--

