comparison lisp/rlogin.el @ 10977:a173cfead4ce

(rlogin): Use pop-to-buffer. (same-window-regexps): Add elt to match *rlogin-...* with or without <N> at end.

10976:354c9e79de15

;;
;; You should have received a copy of the GNU General Public License
;; along with this program; if not, write to: The Free Software Foundation,
;; Inc.; 675 Massachusetts Avenue.; Cambridge, MA 02139, USA.

;; $Id$

;;; Commentary:

;; Support for remote logins using `rlogin'.
;; This program is layered on top of shell.el; the code here only accounts

  (define-key rlogin-mode-map "\C-c\C-\\" 'rlogin-send-Ctrl-backslash)
  (define-key rlogin-mode-map "\C-d" 'rlogin-delchar-or-send-Ctrl-D)
  (define-key rlogin-mode-map "\C-i" 'rlogin-tab-or-complete)))


;;;###autoload
(defun rlogin (input-args &optional prefix)
  "Open a network login connection to HOST via the `rlogin' program.
Input is sent line-at-a-time to the remote connection.

Communication with the remote host is recorded in a buffer *rlogin-HOST*
\(or *rlogin-USER@HOST* if the remote username differs\).
If a prefix argument is given and the buffer *rlogin-HOST* already exists,
a new buffer with a different connection will be made.

The variable `rlogin-program' contains the name of the actual program to
run.  It can be a relative or absolute path.

	 proc)

    (cond
     ((and (null prefix)
           (comint-check-proc buffer-name))
      (switch-to-buffer buffer-name))
     ;; This next case is done all in the predicate (including side effects
     ;; like switch-to-buffer) to avoid extra string consing via multiple
     ;; concats.
     ((and (numberp prefix)
           (let ((bufname (concat buffer-name "<" prefix ">")))
             (and (comint-check-proc bufname)
                  (switch-to-buffer bufname)))))
     (t
      (cond
       ((numberp prefix)
        (setq buffer-name (concat buffer-name "<" prefix ">")))
       (t
        (setq buffer-name (generate-new-buffer-name buffer-name))))
      (switch-to-buffer buffer-name)
      (comint-exec (current-buffer) buffer-name rlogin-program nil args)
      (setq proc (get-process buffer-name))
      ;; Set process-mark to point-max in case there is text in the
      ;; buffer from a previous exited process.
      (set-marker (process-mark proc) (point-max))

10977:a173cfead4ce

;;
;; You should have received a copy of the GNU General Public License
;; along with this program; if not, write to: The Free Software Foundation,
;; Inc.; 675 Massachusetts Avenue.; Cambridge, MA 02139, USA.

;; $Id: rlogin.el,v 1.24 1995/02/28 09:51:49 friedman Exp rms $

;;; Commentary:

;; Support for remote logins using `rlogin'.
;; This program is layered on top of shell.el; the code here only accounts

  (define-key rlogin-mode-map "\C-c\C-\\" 'rlogin-send-Ctrl-backslash)
  (define-key rlogin-mode-map "\C-d" 'rlogin-delchar-or-send-Ctrl-D)
  (define-key rlogin-mode-map "\C-i" 'rlogin-tab-or-complete)))


;;;###autoload (add-hook 'same-window-regexps "^\\*rlogin-.*\\*\\(\\|<[0-9]+>\\)")

;;;###autoload
(defun rlogin (input-args &optional prefix)
  "Open a network login connection to HOST via the `rlogin' program.
Input is sent line-at-a-time to the remote connection.

Communication with the remote host is recorded in a buffer `*rlogin-HOST*'
\(or `*rlogin-USER@HOST*' if the remote username differs\).
If a prefix argument is given and the buffer `*rlogin-HOST*' already exists,
a new buffer with a different connection will be made.

The variable `rlogin-program' contains the name of the actual program to
run.  It can be a relative or absolute path.

	 proc)

    (cond
     ((and (null prefix)
           (comint-check-proc buffer-name))
      (pop-to-buffer buffer-name))
     ;; This next case is done all in the predicate (including side effects
     ;; like pop-to-buffer) to avoid extra string consing via multiple
     ;; concats.
     ((and (numberp prefix)
           (let ((bufname (concat buffer-name "<" prefix ">")))
             (and (comint-check-proc bufname)
                  (pop-to-buffer bufname)))))
     (t
      (cond
       ((numberp prefix)
        (setq buffer-name (concat buffer-name "<" prefix ">")))
       (t
        (setq buffer-name (generate-new-buffer-name buffer-name))))
      (pop-to-buffer buffer-name)
      (comint-exec (current-buffer) buffer-name rlogin-program nil args)
      (setq proc (get-process buffer-name))
      ;; Set process-mark to point-max in case there is text in the
      ;; buffer from a previous exited process.
      (set-marker (process-mark proc) (point-max))