# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 779602807 0
# Node ID 1c9ee34d909493f1c6028839292f93c6dde556ae
# Parent  a6be4973b11fa7bbb34d17fa58d37f2d15bb37db
(telnet-program): New variable.
(telnet): Use telnet-program.
(rsh-program): Renamed from telnet-rsh-program.
(rsh): Use new name.

diff -r a6be4973b11f -r 1c9ee34d9094 lisp/telnet.el
--- a/lisp/telnet.el	Thu Sep 15 04:06:55 1994 +0000
+++ b/lisp/telnet.el	Thu Sep 15 04:20:07 1994 +0000
@@ -63,7 +63,10 @@
   "Number of output strings from telnet process while looking for password.")
 (make-variable-buffer-local 'telnet-count)
 
-(defvar telnet-rsh-program
+(defvar telnet-program "telnet"
+  "Program to run to open a telnet connection.")
+
+(defvar rsh-program
   (if (memq system-type '(hpux usg-unix-v)) 
       "remsh" "rsh")
   "Program to run for opening a remote shell.")
@@ -187,7 +190,7 @@
 	 (buffer (get-buffer (concat "*" name "*"))))
     (if (and buffer (get-buffer-process buffer))
 	(switch-to-buffer (concat "*" name "*"))
-      (switch-to-buffer (make-comint name "telnet"))
+      (switch-to-buffer (make-comint name telnet-program))
       (set-process-filter (get-process name) 'telnet-initial-filter)
       ;; Don't send the `open' cmd till telnet is ready for it.
       (accept-process-output (get-process name))
@@ -222,7 +225,7 @@
   (interactive "sOpen rsh connection to host: ")
   (require 'shell)
   (let ((name (concat host "-rsh" )))
-    (switch-to-buffer (make-comint name telnet-rsh-program nil host))
+    (switch-to-buffer (make-comint name rsh-program nil host))
     (set-process-filter (get-process name) 'telnet-initial-filter)
     (telnet-mode)
     (setq telnet-count -16)))