[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/net/rlogin.el
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/net/rlogin.el |
Date: |
Thu, 14 Mar 2002 03:51:43 -0500 |
Index: emacs/lisp/net/rlogin.el
diff -c emacs/lisp/net/rlogin.el:1.1 emacs/lisp/net/rlogin.el:1.2
*** emacs/lisp/net/rlogin.el:1.1 Mon Mar 20 07:52:39 2000
--- emacs/lisp/net/rlogin.el Thu Mar 14 03:51:43 2002
***************
*** 1,12 ****
;;; rlogin.el --- remote login interface
! ;; Copyright (C) 1992, 93, 94, 95, 97, 1998 Free Software Foundation, Inc.
;; Author: Noah Friedman
;; Maintainer: Noah Friedman <address@hidden>
;; Keywords: unix, comm
! ;; $Id: rlogin.el,v 1.1 2000/03/20 12:52:39 gerd Exp $
;; This file is part of GNU Emacs.
--- 1,12 ----
;;; rlogin.el --- remote login interface
! ;; Copyright (C) 1992, 93, 94, 95, 97, 1998, 2002 Free Software Foundation,
Inc.
;; Author: Noah Friedman
;; Maintainer: Noah Friedman <address@hidden>
;; Keywords: unix, comm
! ;; $Id: rlogin.el,v 1.2 2002/03/14 08:51:43 miles Exp $
;; This file is part of GNU Emacs.
***************
*** 189,196 ****
(user-login-name)))
(buffer-name (if (string= user (user-login-name))
(format "*rlogin-%s*" host)
! (format "address@hidden" user host)))
! proc)
(cond ((null buffer))
((stringp buffer)
--- 189,195 ----
(user-login-name)))
(buffer-name (if (string= user (user-login-name))
(format "*rlogin-%s*" host)
! (format "address@hidden" user host))))
(cond ((null buffer))
((stringp buffer)
***************
*** 205,232 ****
(setq buffer (get-buffer-create buffer-name))
(pop-to-buffer buffer-name)
! (cond
! ((comint-check-proc buffer-name))
! (t
(comint-exec buffer buffer-name rlogin-program nil args)
- (setq proc (get-buffer-process buffer))
- ;; 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))
-
- ;; comint-output-filter-functions is treated like a hook: it is
- ;; processed via run-hooks or run-hooks-with-args in later versions
- ;; of emacs.
- ;; comint-output-filter-functions should already have a
- ;; permanent-local property, at least in emacs 19.27 or later.
- (cond
- ((fboundp 'make-local-hook)
- (make-local-hook 'comint-output-filter-functions)
- (add-hook 'comint-output-filter-functions 'rlogin-carriage-filter
- nil t))
- (t
- (make-local-variable 'comint-output-filter-functions)
- (add-hook 'comint-output-filter-functions 'rlogin-carriage-filter)))
(rlogin-mode)
--- 204,211 ----
(setq buffer (get-buffer-create buffer-name))
(pop-to-buffer buffer-name)
! (unless (comint-check-proc buffer-name)
(comint-exec buffer buffer-name rlogin-program nil args)
(rlogin-mode)
***************
*** 246,252 ****
((null rlogin-directory-tracking-mode))
(t
(cd-absolute (concat comint-file-name-prefix "~/"))))
! (error nil))))))
(put 'rlogin-mode 'mode-class 'special)
--- 225,231 ----
((null rlogin-directory-tracking-mode))
(t
(cd-absolute (concat comint-file-name-prefix "~/"))))
! (error nil)))))
(put 'rlogin-mode 'mode-class 'special)
***************
*** 325,341 ****
(setq posn (match-end 0)))
(set-match-data (match-data))
(nreverse list)))
-
- (defun rlogin-carriage-filter (string)
- (let* ((point-marker (point-marker))
- (end (process-mark (get-buffer-process (current-buffer))))
- (beg (or (and (boundp 'comint-last-output-start)
- comint-last-output-start)
- (- end (length string)))))
- (goto-char beg)
- (while (search-forward "\C-m" end t)
- (delete-char -1))
- (goto-char point-marker)))
(defun rlogin-send-Ctrl-C ()
(interactive)
--- 304,309 ----
- [Emacs-diffs] Changes to emacs/lisp/net/rlogin.el,
Miles Bader <=