From xemacs-m  Thu Apr  3 02:46:05 1997
Received: from venus.Sun.COM (venus.Sun.COM [192.9.25.5])
	by xemacs.org (8.8.5/8.8.5) with SMTP id CAA11730
	for <xemacs-beta@xemacs.org>; Thu, 3 Apr 1997 02:46:04 -0600 (CST)
Received: from Eng.Sun.COM ([129.146.1.25]) by venus.Sun.COM (SMI-8.6/mail.byaddr) with SMTP id AAA08112; Thu, 3 Apr 1997 00:45:35 -0800
Received: from kindra.eng.sun.com by Eng.Sun.COM (SMI-8.6/SMI-5.3)
	id AAA13375; Thu, 3 Apr 1997 00:45:33 -0800
Received: from xemacs.eng.sun.com by kindra.eng.sun.com (SMI-8.6/SMI-SVR4)
	id AAA14273; Thu, 3 Apr 1997 00:45:33 -0800
Received: by xemacs.eng.sun.com (SMI-8.6/SMI-SVR4)
	id AAA09837; Thu, 3 Apr 1997 00:45:31 -0800
Date: Thu, 3 Apr 1997 00:45:31 -0800
Message-Id: <199704030845.AAA09837@xemacs.eng.sun.com>
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
From: Martin Buchholz <mrb@Eng.Sun.COM>
To: Rick Campbell <rickc@lehman.com>
Cc: XEmacs Beta List <xemacs-beta@xemacs.org>
Subject: Miscellaneous issues (Linux, Dired, & Sparcworks) with 19.15
In-Reply-To: <9704021636.AA13146@cfdev1425.lehman.com>
References: <9704021636.AA13146@cfdev1425.lehman.com>
Reply-To: Martin Buchholz <mrb@Eng.Sun.COM>

>>>>> "Rick" == Rick Campbell <rickc@lehman.com> writes:

Rick>  - With a SunOS 4.1.3 Sparcworks binary, the -nw switch does not
Rick>    prevent xemacs from attempting to connect to an X server if DISPLAY
Rick>    is set.  To demonstrate, set DISPLAY to a server to which you are
Rick>    not permitted to connect and then run ``xemacs -nw''.  Presumeably
Rick>    this is related to trying to use the display as a path to a
Rick>    tooltalk server, however it's worth noting that it behaves the same
Rick>    way if you run this all inside a shell created with ``ttsession -c
Rick>    $SHELL''.  This bug also exists in 19.14.

20.1 checks for X before attempting to connect to tooltalk.

The 19.15 lisp/sunpro directory could just be synced with 20.1.  Here
is the relevant trivial sunpro.el patch:

--- ./sunpro-init.el	Tue Dec 17 19:46:03 1996
+++ /home/mrb/x/tm/editor/lisp/sunpro/sunpro-init.el	Sat Dec 21 12:49:06 1996
@@ -77,6 +77,14 @@
      (setq exec-path (append exec-path (list (concat sunpro-dir "bin/"))))))))
 
 (defun sunpro-startup ()
+  "Runs at startup if support for Sun Workshop is compiled in.  Don't run this."
+  
+  ;; Sun distribution censors yow, among other things...
+  (unless (locate-file "yow.el" load-path)
+    (fmakunbound 'yow)
+    (delete-menu-item '("Apps" "Games" "Quote from Zippy"))
+    (delete-menu-item '("Apps" "Games" "Psychoanalyze Zippy!")))
+  
   (when (not (noninteractive))
 
     (flet
@@ -118,9 +126,10 @@
           (if (file-exists-p (concat doc-directory mule-doc-file-name))
               (setq internal-doc-file-name mule-doc-file-name))))
 
-    ;; Connect to tooltalk
+    ;; Connect to tooltalk, but only on an X server.
     (and (featurep 'tooltalk)
          (fboundp 'command-line-do-tooltalk)
+	 (eq 'x (device-type))
          (command-line-do-tooltalk nil))
     
     ;; Sun's pending-del default is like textedit's


Martin

