From: Noah Friedman <friedman@splode.com>
Date: Tue, 15 Apr 1997 10:39:07 +0000 (+0000)
Subject: (rlogin-process-connection-type): Default to t for solaris 2.x.
X-Git-Tag: emacs-20.1~2473
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4cab4c5b72d8b881a1f02efc7d6966bba19b1100;p=emacs.git

(rlogin-process-connection-type): Default to t for solaris 2.x.
---

diff --git a/lisp/rlogin.el b/lisp/rlogin.el
index fd27a93638a..bfe9eb63763 100644
--- a/lisp/rlogin.el
+++ b/lisp/rlogin.el
@@ -23,7 +23,7 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
-;; $Id: rlogin.el,v 1.36 1997/04/12 02:53:36 rms Exp rms $
+;; $Id: rlogin.el,v 1.37 1997/04/12 02:55:04 rms Exp $
 
 ;;; Commentary:
 
@@ -63,7 +63,15 @@
   :type 'hook
   :group 'rlogin)
 
-(defcustom rlogin-process-connection-type nil
+(defcustom rlogin-process-connection-type
+  (save-match-data
+    ;; Solaris 2.x `rlogin' will spew a bunch of ioctl error messages if
+    ;; stdin isn't a tty.
+    (cond ((and (boundp 'system-configuration)
+                (stringp system-configuration)
+                (string-match "-solaris2" system-configuration))
+           t)
+          (t nil)))
   "*If non-`nil', use a pty for the local rlogin process.
 If `nil', use a pipe (if pipes are supported on the local system).