mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity

(rsh): Name the buffer *rsh-HOST*.

Browse Source
This commit is contained in:
Richard M. Stallman 1995-03-13 05:29:11 +00:00
parent 752e8dd9c8
commit 7d21d421d0
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/telnet.el
View File

@ -216,16 +216,16 @@ Data is sent to the remote host when RET is typed.
(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)