54 |
;; ^C^Q^C to send an interrupt, and ^C^Q^Z for a stop signal, etc. (since ^C^C |
;; ^C^Q^C to send an interrupt, and ^C^Q^Z for a stop signal, etc. (since ^C^C |
55 |
;; just generates a local stop signal, which kermit ignores). |
;; just generates a local stop signal, which kermit ignores). |
56 |
;; To connect to a VMS system, I use a shell script to invoke kermit thru the |
;; To connect to a VMS system, I use a shell script to invoke kermit thru the |
57 |
;; tr filter, do "M-X kermit-send-cr", and then tell VMS that I'm on a |
;; tr filter, do "M-X kermit-send-cr", and then tell VMS that I'm on a |
58 |
;; half-duplex terminal. |
;; half-duplex terminal. |
59 |
|
|
60 |
;; Some caveats: |
;; Some caveats: |
84 |
(defun kermit-esc () |
(defun kermit-esc () |
85 |
"For sending escape sequences to a kermit running in shell mode." |
"For sending escape sequences to a kermit running in shell mode." |
86 |
(interactive) |
(interactive) |
87 |
(process-send-string |
(process-send-string |
88 |
(get-buffer-process (current-buffer)) |
(get-buffer-process (current-buffer)) |
89 |
(concat kermit-esc-char (char-to-string (read-char))))) |
(concat kermit-esc-char (char-to-string (read-char))))) |
90 |
|
|
91 |
(defun kermit-send-char () |
(defun kermit-send-char () |
92 |
"Send an arbitrary character to a program in shell mode." |
"Send an arbitrary character to a program in shell mode." |
93 |
(interactive) |
(interactive) |
94 |
(process-send-string |
(process-send-string |
95 |
(get-buffer-process (current-buffer)) |
(get-buffer-process (current-buffer)) |
96 |
(char-to-string (read-char)))) |
(char-to-string (read-char)))) |
97 |
|
|