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 |
;; |
;; |
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 |
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) |