Mercurial > emacs
comparison lisp/net/telnet.el @ 110934:a36fccf2a365
lisp/net/telnet.el (telnet-mode-map): Fix previous change.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Tue, 12 Oct 2010 03:48:58 +0200 |
| parents | cc035ccb9275 |
| children | 51080327d173 |
comparison
equal
deleted
inserted
replaced
| 110933:7c7fd71d22c7 | 110934:a36fccf2a365 |
|---|---|
| 61 LOGIN-NAME, which is optional, says what to log in as on that machine.") | 61 LOGIN-NAME, which is optional, says what to log in as on that machine.") |
| 62 | 62 |
| 63 (defvar telnet-new-line "\r") | 63 (defvar telnet-new-line "\r") |
| 64 (defvar telnet-mode-map | 64 (defvar telnet-mode-map |
| 65 (let ((map (nconc (make-sparse-keymap) comint-mode-map))) | 65 (let ((map (nconc (make-sparse-keymap) comint-mode-map))) |
| 66 (define-key telnet-mode-map "\C-m" 'telnet-send-input) | 66 (define-key map "\C-m" 'telnet-send-input) |
| 67 ;; (define-key telnet-mode-map "\C-j" 'telnet-send-input) | 67 ;; (define-key telnet-mode-map "\C-j" 'telnet-send-input) |
| 68 (define-key map "\C-c\C-q" 'send-process-next-char) | 68 (define-key map "\C-c\C-q" 'send-process-next-char) |
| 69 (define-key map "\C-c\C-c" 'telnet-interrupt-subjob) | 69 (define-key map "\C-c\C-c" 'telnet-interrupt-subjob) |
| 70 (define-key map "\C-c\C-z" 'telnet-c-z) | 70 (define-key map "\C-c\C-z" 'telnet-c-z) |
| 71 map)) | 71 map)) |