diff options
author | Richard M. Stallman <rms@gnu.org> | 1995-03-12 18:29:24 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1995-03-12 18:29:24 +0000 |
commit | d4e7b32a67bdb43f399c9ba9aa26ccc28bfc8cfe (patch) | |
tree | 5b4476f7eff4879ef39e9bacbde6555349bae9c2 | |
parent | 052d8a4cb39366427efa5c4e477f40fdb392e890 (diff) | |
download | emacs-d4e7b32a67bdb43f399c9ba9aa26ccc28bfc8cfe.tar.gz |
(rsh, telnet): Use pop-to-buffer.
(same-window-regexps): Add elt to match *telnet-...* and *rsh...*
with or without <N> at end.
-rw-r--r-- | lisp/telnet.el | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/lisp/telnet.el b/lisp/telnet.el index 7e97b406c52..1f01a362a14 100644 --- a/lisp/telnet.el +++ b/lisp/telnet.el @@ -174,6 +174,8 @@ rejecting one login and prompting again for a username and password.") (delete-region comint-last-input-start comint-last-input-end))) +;;;autoload (add-hook 'same-window-regexps "\\*telnet-.*\\*\\(\\|<[0-9]+>\\)") + ;;;###autoload (defun telnet (host) "Open a network login connection to host named HOST (a string). @@ -185,8 +187,8 @@ Normally input is edited in Emacs and sent a line at a time." (buffer (get-buffer (concat "*" name "*"))) process) (if (and buffer (get-buffer-process buffer)) - (switch-to-buffer (concat "*" name "*")) - (switch-to-buffer (make-comint name telnet-program)) + (pop-to-buffer (concat "*" name "*")) + (pop-to-buffer (make-comint name telnet-program)) (setq process (get-buffer-process (current-buffer))) (set-process-filter process 'telnet-initial-filter) ;; Don't send the `open' cmd till telnet is ready for it. @@ -214,15 +216,17 @@ 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 (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 `*HOST-rsh*'. 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" ))) - (switch-to-buffer (make-comint name remote-shell-program nil host)) + (pop-to-buffer (make-comint name remote-shell-program nil host)) (set-process-filter (get-process name) 'telnet-initial-filter) (telnet-mode) (setq telnet-count -16))) |