[Emacs-diffs] Changes to emacs/lisp/net/telnet.el

[Juanma Barranquero]

Index: emacs/lisp/net/telnet.el
diff -c emacs/lisp/net/telnet.el:1.4 emacs/lisp/net/telnet.el:1.5
*** emacs/lisp/net/telnet.el:1.4        Wed Jan 16 20:40:04 2002
--- emacs/lisp/net/telnet.el    Tue Feb  4 08:17:16 2003
***************
*** 30,36 ****
  ;; sessions are supported.
  ;;
  ;; Normally, input is sent to the remote telnet/rsh line-by-line, as you
! ;; type RET or LFD.  C-c C-c sends a C-c to the remote immediately; 
  ;; C-c C-z sends C-z immediately.  C-c C-q followed by any character
  ;; sends that character immediately.
  ;;
--- 30,36 ----
  ;; sessions are supported.
  ;;
  ;; Normally, input is sent to the remote telnet/rsh line-by-line, as you
! ;; type RET or LFD.  C-c C-c sends a C-c to the remote immediately;
  ;; C-c C-z sends C-z immediately.  C-c C-q followed by any character
  ;; sends that character immediately.
  ;;
***************
*** 112,118 ****
    (define-key telnet-mode-map "\C-m" 'telnet-send-input)
  ;  (define-key telnet-mode-map "\C-j" 'telnet-send-input)
    (define-key telnet-mode-map "\C-c\C-q" 'send-process-next-char)
!   (define-key telnet-mode-map "\C-c\C-c" 'telnet-interrupt-subjob) 
    (define-key telnet-mode-map "\C-c\C-z" 'telnet-c-z))
  
  ;;maybe should have a flag for when have found type
--- 112,118 ----
    (define-key telnet-mode-map "\C-m" 'telnet-send-input)
  ;  (define-key telnet-mode-map "\C-j" 'telnet-send-input)
    (define-key telnet-mode-map "\C-c\C-q" 'send-process-next-char)
!   (define-key telnet-mode-map "\C-c\C-c" 'telnet-interrupt-subjob)
    (define-key telnet-mode-map "\C-c\C-z" 'telnet-c-z))
  
  ;;maybe should have a flag for when have found type
***************
*** 214,220 ****
         process)
      (if (and buffer (get-buffer-process buffer))
        (pop-to-buffer (concat "*" name "*"))
!       (pop-to-buffer 
         (apply 'make-comint name telnet-program nil telnet-options))
        (setq process (get-buffer-process (current-buffer)))
        (set-process-filter process 'telnet-initial-filter)
--- 214,220 ----
         process)
      (if (and buffer (get-buffer-process buffer))
        (pop-to-buffer (concat "*" name "*"))
!       (pop-to-buffer
         (apply 'make-comint name telnet-program nil telnet-options))
        (setq process (get-buffer-process (current-buffer)))
        (set-process-filter process 'telnet-initial-filter)