# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 795072551 0
# Node ID 1c47aad4c1c7816cad922db31766fe59306fe4d1
# Parent  7e797580a46d94296c4ce5cedaaf5312baa461de
(rsh): Name the buffer *rsh-HOST*.

diff -r 7e797580a46d -r 1c47aad4c1c7 lisp/telnet.el
--- a/lisp/telnet.el	Mon Mar 13 05:25:21 1995 +0000
+++ b/lisp/telnet.el	Mon Mar 13 05:29:11 1995 +0000
@@ -216,16 +216,16 @@
   (use-local-map telnet-mode-map)
   (run-hooks 'telnet-mode-hook))
 
-;;;###autoload (add-hook 'same-window-regexps "\\*[^-]*-rsh\\*\\(\\|<[0-9]*>\\)")
+;;;###autoload (add-hook 'same-window-regexps "\\*rsh-[^-]*\\*\\(\\|<[0-9]*>\\)")
 
 ;;;###autoload
 (defun rsh (host)
   "Open a network login connection to host named HOST (a string).
-Communication with HOST is recorded in a buffer `*HOST-rsh*'.
+Communication with HOST is recorded in a buffer `*rsh-HOST*'.
 Normally input is edited in Emacs and sent a line at a time."
   (interactive "sOpen rsh connection to host: ")
   (require 'shell)
-  (let ((name (concat host "-rsh" )))
+  (let ((name (concat "rsh-" host )))
     (pop-to-buffer (make-comint name remote-shell-program nil host))
     (set-process-filter (get-process name) 'telnet-initial-filter)
     (telnet-mode)