/[emacs]/emacs/lisp/net/telnet.el
ViewVC logotype

Diff of /emacs/lisp/net/telnet.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by rms, Thu Jan 17 01:40:04 2002 UTC revision 1.4.4.1 by miles, Fri Apr 4 06:20:30 2003 UTC
# Line 30  Line 30 
30  ;; sessions are supported.  ;; sessions are supported.
31  ;;  ;;
32  ;; Normally, input is sent to the remote telnet/rsh line-by-line, as you  ;; Normally, input is sent to the remote telnet/rsh line-by-line, as you
33  ;; type RET or LFD.  C-c C-c sends a C-c to the remote immediately;  ;; type RET or LFD.  C-c C-c sends a C-c to the remote immediately;
34  ;; C-c C-z sends C-z immediately.  C-c C-q followed by any character  ;; C-c C-z sends C-z immediately.  C-c C-q followed by any character
35  ;; sends that character immediately.  ;; sends that character immediately.
36  ;;  ;;
# Line 112  rejecting one login and prompting again Line 112  rejecting one login and prompting again
112    (define-key telnet-mode-map "\C-m" 'telnet-send-input)    (define-key telnet-mode-map "\C-m" 'telnet-send-input)
113  ;  (define-key telnet-mode-map "\C-j" 'telnet-send-input)  ;  (define-key telnet-mode-map "\C-j" 'telnet-send-input)
114    (define-key telnet-mode-map "\C-c\C-q" 'send-process-next-char)    (define-key telnet-mode-map "\C-c\C-q" 'send-process-next-char)
115    (define-key telnet-mode-map "\C-c\C-c" 'telnet-interrupt-subjob)    (define-key telnet-mode-map "\C-c\C-c" 'telnet-interrupt-subjob)
116    (define-key telnet-mode-map "\C-c\C-z" 'telnet-c-z))    (define-key telnet-mode-map "\C-c\C-z" 'telnet-c-z))
117    
118  ;;maybe should have a flag for when have found type  ;;maybe should have a flag for when have found type
# Line 214  Normally input is edited in Emacs and se Line 214  Normally input is edited in Emacs and se
214           process)           process)
215      (if (and buffer (get-buffer-process buffer))      (if (and buffer (get-buffer-process buffer))
216          (pop-to-buffer (concat "*" name "*"))          (pop-to-buffer (concat "*" name "*"))
217        (pop-to-buffer        (pop-to-buffer
218         (apply 'make-comint name telnet-program nil telnet-options))         (apply 'make-comint name telnet-program nil telnet-options))
219        (setq process (get-buffer-process (current-buffer)))        (setq process (get-buffer-process (current-buffer)))
220        (set-process-filter process 'telnet-initial-filter)        (set-process-filter process 'telnet-initial-filter)

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.4.4.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26