|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ t ┃
Length: 5399 (0x1517)
Names: »telnet.elc«
└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
└─ ⟦this⟧ »EUUGD11/gnu-31mar87/emacs/lisp/telnet.elc«
0x0000…0020 0a 28 64 65 66 76 61 72 20 74 65 6c 6e 65 74 2d 6e 65 77 2d 6c 69 6e 65 20 22 0d 22 29 0a 0a 28 ┆ (defvar telnet-new-line " ") (┆
0x0020…0040 64 65 66 76 61 72 20 74 65 6c 6e 65 74 2d 6d 6f 64 65 2d 6d 61 70 20 6e 69 6c 29 0a 0a 28 64 65 ┆defvar telnet-mode-map nil) (de┆
0x0040…0060 66 76 61 72 20 74 65 6c 6e 65 74 2d 70 72 6f 6d 70 74 2d 70 61 74 74 65 72 6e 20 22 5e 5b 5e 23 ┆fvar telnet-prompt-pattern "^[^#┆
0x0060…0080 24 25 3e 5d 2a 5b 23 24 25 3e 5d 20 2a 22 29 0a 0a 28 64 65 66 76 61 72 20 74 65 6c 6e 65 74 2d ┆$%>]*[#$%>] *") (defvar telnet-┆
0x0080…00a0 69 6e 74 65 72 72 75 70 74 2d 73 74 72 69 6e 67 20 22 03 22 20 22 5c 0a 53 74 72 69 6e 67 20 73 ┆interrupt-string " " "\ String s┆
0x00a0…00c0 65 6e 74 20 62 79 20 43 2d 63 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 74 65 6c 6e 65 74 2d 63 6f ┆ent by C-c.") (defvar telnet-co┆
0x00c0…00e0 75 6e 74 20 30 29 0a 0a 28 64 65 66 76 61 72 20 74 65 6c 6e 65 74 2d 72 65 70 6c 61 63 65 2d 63 ┆unt 0) (defvar telnet-replace-c┆
0x00e0…0100 2d 67 20 6e 69 6c 29 0a 0a 28 64 65 66 76 61 72 20 74 65 6c 6e 65 74 2d 72 65 6d 6f 74 65 2d 65 ┆-g nil) (defvar telnet-remote-e┆
0x0100…0120 63 68 6f 65 73 20 6e 69 6c 29 0a 0a 28 64 65 66 75 6e 20 74 65 6c 6e 65 74 2d 69 6e 74 65 72 72 ┆choes nil) (defun telnet-interr┆
0x0120…0140 75 70 74 2d 73 75 62 6a 6f 62 20 6e 69 6c 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 ┆upt-subjob nil (interactive) (by┆
0x0140…0160 74 65 2d 63 6f 64 65 20 22 c0 88 c2 88 c3 c0 09 5c 22 87 22 20 5b 6e 69 6c 20 74 65 6c 6e 65 74 ┆te-code " \" " [nil telnet┆
0x0160…0180 2d 69 6e 74 65 72 72 75 70 74 2d 73 74 72 69 6e 67 20 22 49 6e 74 65 72 72 75 70 74 20 74 68 65 ┆-interrupt-string "Interrupt the┆
0x0180…01a0 20 70 72 6f 67 72 61 6d 20 72 75 6e 6e 69 6e 67 20 74 68 72 6f 75 67 68 20 74 65 6c 6e 65 74 20 ┆ program running through telnet ┆
0x01a0…01c0 6f 6e 20 74 68 65 20 72 65 6d 6f 74 65 20 68 6f 73 74 2e 22 20 73 65 6e 64 2d 73 74 72 69 6e 67 ┆on the remote host." send-string┆
0x01c0…01e0 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 74 65 6c 6e 65 74 2d 63 2d 7a 20 6e 69 6c 20 28 69 6e ┆] 3)) (defun telnet-c-z nil (in┆
0x01e0…0200 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 c0 c2 5c 22 87 22 ┆teractive) (byte-code " \" "┆
0x0200…0220 20 5b 6e 69 6c 20 73 65 6e 64 2d 73 74 72 69 6e 67 20 22 1a 22 5d 20 33 29 29 0a 0a 28 64 65 66 ┆ [nil send-string " "] 3)) (def┆
0x0220…0240 75 6e 20 73 65 6e 64 2d 70 72 6f 63 65 73 73 2d 6e 65 78 74 2d 63 68 61 72 20 6e 69 6c 20 28 69 ┆un send-process-next-char nil (i┆
0x0240…0260 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c4 c0 c5 c2 19 72 ┆nteractive) (byte-code " r┆
0x0260…0280 c0 89 13 88 29 21 5c 22 87 22 20 5b 6e 69 6c 20 69 6e 68 69 62 69 74 2d 71 75 69 74 20 74 20 71 ┆ )!\" " [nil inhibit-quit t q┆
0x0280…02a0 75 69 74 2d 66 6c 61 67 20 73 65 6e 64 2d 73 74 72 69 6e 67 20 63 68 61 72 2d 74 6f 2d 73 74 72 ┆uit-flag send-string char-to-str┆
0x02a0…02c0 69 6e 67 5d 20 36 29 29 0a 0a 28 69 66 20 74 65 6c 6e 65 74 2d 6d 6f 64 65 2d 6d 61 70 20 6e 69 ┆ing] 6)) (if telnet-mode-map ni┆
0x02c0…02e0 6c 20 28 73 65 74 71 20 74 65 6c 6e 65 74 2d 6d 6f 64 65 2d 6d 61 70 20 28 6d 61 6b 65 2d 73 70 ┆l (setq telnet-mode-map (make-sp┆
0x02e0…0300 61 72 73 65 2d 6b 65 79 6d 61 70 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 74 65 6c 6e 65 74 ┆arse-keymap)) (define-key telnet┆
0x0300…0320 2d 6d 6f 64 65 2d 6d 61 70 20 22 0d 22 20 28 71 75 6f 74 65 20 74 65 6c 6e 65 74 2d 73 65 6e 64 ┆-mode-map " " (quote telnet-send┆
0x0320…0340 2d 69 6e 70 75 74 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 74 65 6c 6e 65 74 2d 6d 6f 64 65 ┆-input)) (define-key telnet-mode┆
0x0340…0360 2d 6d 61 70 20 22 03 04 22 20 28 71 75 6f 74 65 20 73 68 65 6c 6c 2d 73 65 6e 64 2d 65 6f 66 29 ┆-map " " (quote shell-send-eof)┆
0x0360…0380 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 74 65 6c 6e 65 74 2d 6d 6f 64 65 2d 6d 61 70 20 22 03 ┆) (define-key telnet-mode-map " ┆
0x0380…03a0 11 22 20 28 71 75 6f 74 65 20 73 65 6e 64 2d 70 72 6f 63 65 73 73 2d 6e 65 78 74 2d 63 68 61 72 ┆ " (quote send-process-next-char┆
0x03a0…03c0 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 74 65 6c 6e 65 74 2d 6d 6f 64 65 2d 6d 61 70 20 22 ┆)) (define-key telnet-mode-map "┆
0x03c0…03e0 03 03 22 20 28 71 75 6f 74 65 20 74 65 6c 6e 65 74 2d 69 6e 74 65 72 72 75 70 74 2d 73 75 62 6a ┆ " (quote telnet-interrupt-subj┆
0x03e0…0400 6f 62 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 74 65 6c 6e 65 74 2d 6d 6f 64 65 2d 6d 61 70 ┆ob)) (define-key telnet-mode-map┆
0x0400…0420 20 22 03 1a 22 20 28 71 75 6f 74 65 20 74 65 6c 6e 65 74 2d 63 2d 7a 29 29 20 28 64 65 66 69 6e ┆ " " (quote telnet-c-z)) (defin┆
0x0420…0440 65 2d 6b 65 79 20 74 65 6c 6e 65 74 2d 6d 6f 64 65 2d 6d 61 70 20 22 03 15 22 20 28 71 75 6f 74 ┆e-key telnet-mode-map " " (quot┆
0x0440…0460 65 20 6b 69 6c 6c 2d 73 68 65 6c 6c 2d 69 6e 70 75 74 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 ┆e kill-shell-input)) (define-key┆
0x0460…0480 20 74 65 6c 6e 65 74 2d 6d 6f 64 65 2d 6d 61 70 20 22 03 17 22 20 28 71 75 6f 74 65 20 62 61 63 ┆ telnet-mode-map " " (quote bac┆
0x0480…04a0 6b 77 61 72 64 2d 6b 69 6c 6c 2d 77 6f 72 64 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 74 65 ┆kward-kill-word)) (define-key te┆
0x04a0…04c0 6c 6e 65 74 2d 6d 6f 64 65 2d 6d 61 70 20 22 03 0f 22 20 28 71 75 6f 74 65 20 6b 69 6c 6c 2d 6f ┆lnet-mode-map " " (quote kill-o┆
0x04c0…04e0 75 74 70 75 74 2d 66 72 6f 6d 2d 73 68 65 6c 6c 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 74 ┆utput-from-shell)) (define-key t┆
0x04e0…0500 65 6c 6e 65 74 2d 6d 6f 64 65 2d 6d 61 70 20 22 03 12 22 20 28 71 75 6f 74 65 20 73 68 6f 77 2d ┆elnet-mode-map " " (quote show-┆
0x0500…0520 6f 75 74 70 75 74 2d 66 72 6f 6d 2d 73 68 65 6c 6c 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 ┆output-from-shell)) (define-key ┆
0x0520…0540 74 65 6c 6e 65 74 2d 6d 6f 64 65 2d 6d 61 70 20 22 03 19 22 20 28 71 75 6f 74 65 20 63 6f 70 79 ┆telnet-mode-map " " (quote copy┆
0x0540…0560 2d 6c 61 73 74 2d 73 68 65 6c 6c 2d 69 6e 70 75 74 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 65 6c ┆-last-shell-input))) (defun tel┆
0x0560…0580 6e 65 74 2d 63 68 65 63 6b 2d 73 6f 66 74 77 61 72 65 2d 74 79 70 65 2d 69 6e 69 74 69 61 6c 69 ┆net-check-software-type-initiali┆
0x0580…05a0 7a 65 20 28 73 74 72 69 6e 67 29 20 22 5c 0a 54 72 69 65 73 20 74 6f 20 70 75 74 20 63 6f 72 72 ┆ze (string) "\ Tries to put corr┆
0x05a0…05c0 65 63 74 20 69 6e 69 74 69 61 6c 69 7a 61 74 69 6f 6e 73 20 69 6e 2e 20 20 4e 65 65 64 73 20 77 ┆ect initializations in. Needs w┆
0x05c0…05e0 6f 72 6b 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c5 c6 08 5c 22 83 11 00 0a 89 11 88 c7 89 ┆ork." (byte-code " \" ┆
0x05e0…0600 13 82 35 00 c5 c8 08 5c 22 83 1e 00 c9 89 11 82 35 00 c5 ca 08 5c 22 83 2b 00 cb 89 11 82 35 00 ┆ 5 \" 5 \" + 5 ┆
0x0600…0620 c5 cc 08 5c 22 85 35 00 cd 89 14 87 22 20 5b 73 74 72 69 6e 67 20 74 65 6c 6e 65 74 2d 70 72 6f ┆ \" 5 " [string telnet-pro┆
0x0620…0640 6d 70 74 2d 70 61 74 74 65 72 6e 20 73 68 65 6c 6c 2d 70 72 6f 6d 70 74 2d 70 61 74 74 65 72 6e ┆mpt-pattern shell-prompt-pattern┆
0x0640…0660 20 74 65 6c 6e 65 74 2d 6e 65 77 2d 6c 69 6e 65 20 74 65 6c 6e 65 74 2d 72 65 70 6c 61 63 65 2d ┆ telnet-new-line telnet-replace-┆
0x0660…0680 63 2d 67 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 75 6e 69 78 22 20 22 0a 22 20 22 74 6f 70 ┆c-g string-match "unix" " " "top┆
0x0680…06a0 73 2d 32 30 22 20 22 5b 40 3e 5d 2a 22 20 22 69 74 73 22 20 22 5e 5b 5e 2a 3e 5d 2a 5b 2a 3e 5d ┆s-20" "[@>]*" "its" "^[^*>]*[*>]┆
0x06a0…06c0 20 2a 22 20 22 65 78 70 6c 6f 72 65 72 22 20 31 30 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20 74 ┆ *" "explorer" 10] 6)) (defun t┆
0x06c0…06e0 65 6c 6e 65 74 2d 69 6e 69 74 69 61 6c 2d 66 69 6c 74 65 72 20 28 70 72 6f 63 20 73 74 72 69 6e ┆elnet-initial-filter (proc strin┆
0x06e0…0700 67 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c6 c7 08 5c 22 83 13 00 c8 c9 09 21 21 88 ca cb 21 ┆g) (byte-code " \" !! !┆
0x0700…0720 82 53 00 c6 cc 08 5c 22 83 31 00 cd 09 08 5c 22 88 ce 20 89 12 88 cf 89 13 88 d0 09 0a 0c 50 5c ┆ S \" 1 \" P\┆
0x0720…0740 22 82 53 00 c5 85 53 00 d1 08 21 88 cd 09 08 5c 22 88 0b d2 56 83 4b 00 d3 09 cd 5c 22 82 53 00 ┆" S S ! \" V K \" S ┆
0x0740…0760 c5 85 53 00 0b 54 89 13 87 22 20 5b 73 74 72 69 6e 67 20 70 72 6f 63 20 70 61 73 73 77 6f 72 64 ┆ S T " [string proc password┆
0x0760…0780 20 74 65 6c 6e 65 74 2d 63 6f 75 6e 74 20 74 65 6c 6e 65 74 2d 6e 65 77 2d 6c 69 6e 65 20 74 20 ┆ telnet-count telnet-new-line t ┆
0x0780…07a0 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 4e 6f 20 73 75 63 68 20 68 6f 73 74 22 20 6b 69 6c 6c ┆string-match "No such host" kill┆
0x07a0…07c0 2d 62 75 66 66 65 72 20 70 72 6f 63 65 73 73 2d 62 75 66 66 65 72 20 65 72 72 6f 72 20 22 4e 6f ┆-buffer process-buffer error "No┆
0x07c0…07e0 20 73 75 63 68 20 68 6f 73 74 2e 22 20 22 70 61 73 73 77 22 20 74 65 6c 6e 65 74 2d 66 69 6c 74 ┆ such host." "passw" telnet-filt┆
0x07e0…0800 65 72 20 72 65 61 64 2d 70 61 73 73 77 6f 72 64 20 30 20 73 65 6e 64 2d 73 74 72 69 6e 67 20 74 ┆er read-password 0 send-string t┆
0x0800…0820 65 6c 6e 65 74 2d 63 68 65 63 6b 2d 73 6f 66 74 77 61 72 65 2d 74 79 70 65 2d 69 6e 69 74 69 61 ┆elnet-check-software-type-initia┆
0x0820…0840 6c 69 7a 65 20 34 20 73 65 74 2d 70 72 6f 63 65 73 73 2d 66 69 6c 74 65 72 5d 20 31 33 29 29 0a ┆lize 4 set-process-filter] 13)) ┆
0x0840…0860 0a 28 64 65 66 75 6e 20 74 65 6c 6e 65 74 2d 66 69 6c 74 65 72 20 28 70 72 6f 63 20 73 74 72 69 ┆ (defun telnet-filter (proc stri┆
0x0860…0880 6e 67 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 8a c7 08 21 71 88 64 62 88 60 19 0a 63 88 c8 09 ┆ng) (byte-code " !q db ` c ┆
0x0880…08a0 60 c9 ca 24 88 0b 85 1f 00 c8 09 60 cb 0b 24 29 88 cc 08 21 83 30 00 cd cc 08 21 60 5c 22 82 31 ┆` $ ` $) ! 0 !`\" 1┆
0x08a0…08c0 00 ce 88 cf 0c 21 85 3f 00 d0 0c 21 85 3f 00 0d 83 4a 00 d1 0c 0e 06 5c 22 82 4b 00 ce 29 88 c7 ┆ ! ? ! ? J \" K ) ┆
0x08c0…08e0 08 21 70 3d 83 5a 00 64 62 82 5b 00 ce 87 22 20 5b 70 72 6f 63 20 6e 6f 77 20 73 74 72 69 6e 67 ┆ !p= Z db [ " [proc now string┆
0x08e0…0900 20 74 65 6c 6e 65 74 2d 72 65 70 6c 61 63 65 2d 63 2d 67 20 6c 61 73 74 2d 69 6e 70 75 74 2d 73 ┆ telnet-replace-c-g last-input-s┆
0x0900…0920 74 61 72 74 20 74 65 6c 6e 65 74 2d 72 65 6d 6f 74 65 2d 65 63 68 6f 65 73 20 6c 61 73 74 2d 69 ┆tart telnet-remote-echoes last-i┆
0x0920…0940 6e 70 75 74 2d 65 6e 64 20 70 72 6f 63 65 73 73 2d 62 75 66 66 65 72 20 73 75 62 73 74 2d 63 68 ┆nput-end process-buffer subst-ch┆
0x0940…0960 61 72 2d 69 6e 2d 72 65 67 69 6f 6e 20 31 33 20 33 32 20 37 20 70 72 6f 63 65 73 73 2d 6d 61 72 ┆ar-in-region 13 32 7 process-mar┆
0x0960…0980 6b 20 73 65 74 2d 6d 61 72 6b 65 72 20 6e 69 6c 20 69 6e 74 65 67 65 72 2d 6f 72 2d 6d 61 72 6b ┆k set-marker nil integer-or-mark┆
0x0980…09a0 65 72 2d 70 20 6d 61 72 6b 65 72 2d 70 6f 73 69 74 69 6f 6e 20 64 65 6c 65 74 65 2d 72 65 67 69 ┆er-p marker-position delete-regi┆
0x09a0…09c0 6f 6e 5d 20 31 32 29 29 0a 0a 28 64 65 66 75 6e 20 64 65 6c 65 74 65 2d 63 68 61 72 2d 6f 72 2d ┆on] 12)) (defun delete-char-or-┆
0x09c0…09e0 73 65 6e 64 2d 65 6f 66 20 28 61 72 67 20 6b 69 6c 6c 70 29 20 22 5c 0a 41 74 20 65 6e 64 20 6f ┆send-eof (arg killp) "\ At end o┆
0x09e0…0a00 66 20 62 75 66 66 65 72 2c 20 73 65 6e 64 20 65 6f 66 20 74 6f 20 73 75 62 73 68 65 6c 6c 2e 20 ┆f buffer, send eof to subshell. ┆
0x0a00…0a20 20 4f 74 68 65 72 77 69 73 65 20 64 65 6c 65 74 65 20 63 68 61 72 61 63 74 65 72 2e 22 20 28 69 ┆ Otherwise delete character." (i┆
0x0a20…0a40 6e 74 65 72 61 63 74 69 76 65 20 22 70 0a 50 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 88 ┆nteractive "p P") (byte-code " ┆
0x0a40…0a60 6d 85 08 00 08 3f 83 10 00 c3 20 82 14 00 c4 09 08 5c 22 87 22 20 5b 6b 69 6c 6c 70 20 61 72 67 ┆m ? \" " [killp arg┆
0x0a60…0a80 20 6e 69 6c 20 70 72 6f 63 65 73 73 2d 73 65 6e 64 2d 65 6f 66 20 64 65 6c 65 74 65 2d 63 68 61 ┆ nil process-send-eof delete-cha┆
0x0a80…0aa0 72 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 74 65 6c 6e 65 74 2d 73 65 6e 64 2d 69 6e 70 75 74 ┆r] 4)) (defun telnet-send-input┆
0x0aa0…0ac0 20 6e 69 6c 20 22 5c 0a 53 65 6e 64 20 69 6e 70 75 74 20 74 6f 20 72 65 6d 6f 74 65 20 68 6f 73 ┆ nil "\ Send input to remote hos┆
0x0ac0…0ae0 74 0a 41 74 20 65 6e 64 20 6f 66 20 62 75 66 66 65 72 2c 20 73 65 6e 64 73 20 61 6c 6c 20 74 65 ┆t At end of buffer, sends all te┆
0x0ae0…0b00 78 74 20 61 66 74 65 72 20 6c 61 73 74 20 6f 75 74 70 75 74 0a 61 73 20 69 6e 70 75 74 20 74 6f ┆xt after last output as input to┆
0x0b00…0b20 20 74 68 65 20 74 65 6c 6e 65 74 2c 20 69 6e 63 6c 75 64 69 6e 67 20 61 20 74 65 6c 6e 65 74 2d ┆ the telnet, including a telnet-┆
0x0b20…0b40 6e 65 77 2d 6c 69 6e 65 20 69 6e 73 65 72 74 65 64 20 61 74 20 74 68 65 20 65 6e 64 2e 0a 4e 6f ┆new-line inserted at the end. No┆
0x0b40…0b60 74 20 61 74 20 65 6e 64 2c 20 63 6f 70 69 65 73 20 63 75 72 72 65 6e 74 20 6c 69 6e 65 20 74 6f ┆t at end, copies current line to┆
0x0b60…0b80 20 74 68 65 20 65 6e 64 20 6f 66 20 74 68 65 20 62 75 66 66 65 72 20 61 6e 64 20 73 65 6e 64 73 ┆ the end of the buffer and sends┆
0x0b80…0ba0 20 69 74 2c 0a 61 66 74 65 72 20 66 69 72 73 74 20 61 74 74 65 6d 70 74 69 6e 67 20 74 6f 20 64 ┆ it, after first attempting to d┆
0x0ba0…0bc0 69 73 63 61 72 64 20 61 6e 79 20 70 72 6f 6d 70 74 20 61 74 20 74 68 65 20 62 65 67 69 6e 6e 69 ┆iscard any prompt at the beginni┆
0x0bc0…0be0 6e 67 20 6f 66 20 74 68 65 20 6c 69 6e 65 0a 62 79 20 6d 61 74 63 68 69 6e 67 20 74 68 65 20 72 ┆ng of the line by matching the r┆
0x0be0…0c00 65 67 65 78 70 20 74 68 61 74 20 69 73 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 74 65 6c 6e 65 ┆egexp that is the value of telne┆
0x0c00…0c20 74 2d 70 72 6f 6d 70 74 2d 70 61 74 74 65 72 6e 20 69 66 20 70 6f 73 73 69 62 6c 65 2e 22 20 28 ┆t-prompt-pattern if possible." (┆
0x0c20…0c40 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c4 88 c4 18 c9 20 88 ┆interactive) (byte-code " ┆
0x0c40…0c60 6d 83 1b 00 ca 09 cb cc 70 21 21 5c 22 88 ca 0a 60 5c 22 82 43 00 cd 20 88 ce 0b c4 c5 23 88 cf ┆m p!!\" `\" C # ┆
0x0c60…0c80 60 d0 d1 21 88 60 5c 22 1e 06 64 62 88 ca 09 60 5c 22 88 0e 06 63 88 c5 89 10 88 ca 0a 60 5c 22 ┆` ! `\" db `\" c `\"┆
0x0c80…0ca0 29 88 8a 09 62 88 cc 70 21 1e 07 d2 0e 07 09 0a 23 88 08 3f 83 62 00 d3 0e 07 0e 08 5c 22 82 63 ┆) b p! # ? b \" c┆
0x0ca0…0cc0 00 c4 88 d4 cb 0e 07 21 60 5c 22 29 29 29 87 22 20 5b 63 6f 70 69 65 64 20 6c 61 73 74 2d 69 6e ┆ !`\"))) " [copied last-in┆
0x0cc0…0ce0 70 75 74 2d 73 74 61 72 74 20 6c 61 73 74 2d 69 6e 70 75 74 2d 65 6e 64 20 74 65 6c 6e 65 74 2d ┆put-start last-input-end telnet-┆
0x0ce0…0d00 70 72 6f 6d 70 74 2d 70 61 74 74 65 72 6e 20 6e 69 6c 20 74 20 63 6f 70 79 20 70 72 6f 63 65 73 ┆prompt-pattern nil t copy proces┆
0x0d00…0d20 73 20 74 65 6c 6e 65 74 2d 6e 65 77 2d 6c 69 6e 65 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 6d 6f ┆s telnet-new-line end-of-line mo┆
0x0d20…0d40 76 65 2d 6d 61 72 6b 65 72 20 70 72 6f 63 65 73 73 2d 6d 61 72 6b 20 67 65 74 2d 62 75 66 66 65 ┆ve-marker process-mark get-buffe┆
0x0d40…0d60 72 2d 70 72 6f 63 65 73 73 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 20 72 65 2d 73 ┆r-process beginning-of-line re-s┆
0x0d60…0d80 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 66 ┆earch-forward buffer-substring f┆
0x0d80…0da0 6f 72 77 61 72 64 2d 6c 69 6e 65 20 31 20 73 65 6e 64 2d 72 65 67 69 6f 6e 20 73 65 6e 64 2d 73 ┆orward-line 1 send-region send-s┆
0x0da0…0dc0 74 72 69 6e 67 20 73 65 74 2d 6d 61 72 6b 65 72 5d 20 31 38 29 29 0a 0a 28 64 65 66 75 6e 20 74 ┆tring set-marker] 18)) (defun t┆
0x0dc0…0de0 65 6c 6e 65 74 20 28 61 72 67 29 20 22 5c 0a 4f 70 65 6e 20 61 20 6e 65 74 77 6f 72 6b 20 6c 6f ┆elnet (arg) "\ Open a network lo┆
0x0de0…0e00 67 69 6e 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 74 6f 20 68 6f 73 74 20 6e 61 6d 65 64 20 48 4f 53 ┆gin connection to host named HOS┆
0x0e00…0e20 54 20 28 61 20 73 74 72 69 6e 67 29 2e 0a 43 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 20 77 69 74 68 ┆T (a string). Communication with┆
0x0e20…0e40 20 48 4f 53 54 20 69 73 20 72 65 63 6f 72 64 65 64 20 69 6e 20 61 20 62 75 66 66 65 72 20 2a 48 ┆ HOST is recorded in a buffer *H┆
0x0e40…0e60 4f 53 54 2d 74 65 6c 6e 65 74 2a 2e 0a 4e 6f 72 6d 61 6c 6c 79 20 69 6e 70 75 74 20 69 73 20 65 ┆OST-telnet*. Normally input is e┆
0x0e60…0e80 64 69 74 65 64 20 69 6e 20 45 6d 61 63 73 20 61 6e 64 20 73 65 6e 74 20 61 20 6c 69 6e 65 20 61 ┆dited in Emacs and sent a line a┆
0x0e80…0ea0 74 20 61 20 74 69 6d 65 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 73 4f 70 65 6e 20 74 ┆t a time." (interactive "sOpen t┆
0x0ea0…0ec0 65 6c 6e 65 74 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 74 6f 20 68 6f 73 74 3a 20 22 29 20 28 62 79 ┆elnet connection to host: ") (by┆
0x0ec0…0ee0 74 65 2d 63 6f 64 65 20 22 c3 88 c4 c5 21 88 09 c6 50 18 c7 c8 08 c9 5c 22 21 88 ca cb 08 21 cc ┆te-code " ! P \"! ! ┆
0x0ee0…0f00 5c 22 88 cd 20 88 ce 08 cf 09 d0 51 5c 22 88 d1 20 88 d2 89 12 29 87 22 20 5b 6e 61 6d 65 20 61 ┆\" Q\" ) " [name a┆
0x0f00…0f20 72 67 20 74 65 6c 6e 65 74 2d 63 6f 75 6e 74 20 6e 69 6c 20 72 65 71 75 69 72 65 20 73 68 65 6c ┆rg telnet-count nil require shel┆
0x0f20…0f40 6c 20 22 2d 74 65 6c 6e 65 74 22 20 73 77 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 20 6d 61 6b ┆l "-telnet" switch-to-buffer mak┆
0x0f40…0f60 65 2d 73 68 65 6c 6c 20 22 74 65 6c 6e 65 74 22 20 73 65 74 2d 70 72 6f 63 65 73 73 2d 66 69 6c ┆e-shell "telnet" set-process-fil┆
0x0f60…0f80 74 65 72 20 67 65 74 2d 70 72 6f 63 65 73 73 20 74 65 6c 6e 65 74 2d 69 6e 69 74 69 61 6c 2d 66 ┆ter get-process telnet-initial-f┆
0x0f80…0fa0 69 6c 74 65 72 20 65 72 61 73 65 2d 62 75 66 66 65 72 20 73 65 6e 64 2d 73 74 72 69 6e 67 20 22 ┆ilter erase-buffer send-string "┆
0x0fa0…0fc0 6f 70 65 6e 20 22 20 22 0a 22 20 74 65 6c 6e 65 74 2d 6d 6f 64 65 20 2d 31 36 5d 20 31 31 29 29 ┆open " " " telnet-mode -16] 11))┆
0x0fc0…0fe0 0a 0a 28 64 65 66 75 6e 20 72 65 61 64 2d 70 61 73 73 77 6f 72 64 20 6e 69 6c 20 28 62 79 74 65 ┆ (defun read-password nil (byte┆
0x0fe0…1000 2d 63 6f 64 65 20 22 c2 c3 19 18 72 89 11 c4 55 3f 85 18 00 08 c5 09 21 50 89 10 88 82 04 00 88 ┆-code " r U? !P ┆
0x1000…1020 08 2a 87 22 20 5b 61 6e 73 77 20 74 65 6d 20 22 22 20 6e 69 6c 20 31 33 20 63 68 61 72 2d 74 6f ┆ * " [answ tem "" nil 13 char-to┆
0x1020…1040 2d 73 74 72 69 6e 67 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 74 65 6c 6e 65 74 2d 6d 6f 64 65 ┆-string] 4)) (defun telnet-mode┆
0x1040…1060 20 6e 69 6c 20 22 5c 0a 54 68 69 73 20 6d 6f 64 65 20 69 73 20 66 6f 72 20 75 73 65 20 64 75 72 ┆ nil "\ This mode is for use dur┆
0x1060…1080 69 6e 67 20 74 65 6c 6e 65 74 20 66 72 6f 6d 20 61 20 62 75 66 66 65 72 20 74 6f 20 61 6e 6f 74 ┆ing telnet from a buffer to anot┆
0x1080…10a0 68 65 72 0a 68 6f 73 74 2e 20 49 74 20 68 61 73 20 6d 6f 73 74 20 6f 66 20 74 68 65 20 73 61 6d ┆her host. It has most of the sam┆
0x10a0…10c0 65 20 63 6f 6d 6d 61 6e 64 73 20 61 73 20 73 68 65 6c 6c 20 6d 6f 64 65 2e 0a 54 68 65 72 65 20 ┆e commands as shell mode. There ┆
0x10c0…10e0 69 73 20 61 20 76 61 72 69 61 62 6c 65 20 60 74 65 6c 6e 65 74 2d 69 6e 74 65 72 72 75 70 74 2d ┆is a variable `telnet-interrupt-┆
0x10e0…1100 73 74 72 69 6e 67 27 20 77 68 69 63 68 20 69 73 20 74 68 65 20 63 68 61 72 61 63 74 65 72 0a 73 ┆string' which is the character s┆
0x1100…1120 65 6e 74 20 74 6f 20 74 72 79 20 74 6f 20 73 74 6f 70 20 65 78 65 63 75 74 69 6f 6e 20 6f 66 20 ┆ent to try to stop execution of ┆
0x1120…1140 61 20 6a 6f 62 20 6f 6e 20 74 68 65 20 72 65 6d 6f 74 65 20 68 6f 73 74 2e 0a 44 61 74 61 20 69 ┆a job on the remote host. Data i┆
0x1140…1160 73 20 73 65 6e 74 20 74 6f 20 74 68 65 20 72 65 6d 6f 74 65 20 68 6f 73 74 20 77 68 65 6e 20 60 ┆s sent to the remote host when `┆
0x1160…1180 72 65 74 75 72 6e 27 20 69 73 20 74 79 70 65 64 2e 0a 54 68 75 73 20 69 66 20 79 6f 75 20 6d 61 ┆return' is typed. Thus if you ma┆
0x1180…11a0 79 20 6e 65 65 64 20 74 6f 20 65 64 69 74 20 74 68 65 20 64 61 74 61 20 62 65 66 6f 72 65 20 73 ┆y need to edit the data before s┆
0x11a0…11c0 65 6e 64 69 6e 67 20 79 6f 75 0a 73 68 6f 75 6c 64 20 75 73 65 20 63 2d 6e 20 74 6f 20 6d 6f 76 ┆ending you should use c-n to mov┆
0x11c0…11e0 65 20 64 6f 77 6e 20 61 20 6c 69 6e 65 2e 20 20 54 68 65 6e 20 79 6f 75 20 63 61 6e 20 72 65 74 ┆e down a line. Then you can ret┆
0x11e0…1200 75 72 6e 0a 74 6f 20 61 6c 74 65 72 20 61 20 70 72 65 76 69 6f 75 73 20 6c 69 6e 65 2e 20 20 4f ┆urn to alter a previous line. O┆
0x1200…1220 66 20 63 6f 75 72 73 65 20 79 6f 75 20 73 68 6f 75 6c 64 20 6e 6f 74 20 75 73 65 20 74 68 69 73 ┆f course you should not use this┆
0x1220…1240 0a 6d 6f 64 65 20 6f 66 20 74 65 6c 6e 65 74 20 69 66 20 79 6f 75 20 77 61 6e 74 20 74 6f 20 72 ┆ mode of telnet if you want to r┆
0x1240…1260 75 6e 20 65 6d 61 63 73 20 6c 69 6b 65 20 70 72 6f 67 72 61 6d 73 20 6f 6e 20 74 68 65 0a 72 65 ┆un emacs like programs on the re┆
0x1260…1280 6d 6f 74 65 20 68 6f 73 74 20 28 61 74 20 6c 65 61 73 74 20 6e 6f 74 20 79 65 74 21 29 2e 0a 0a ┆mote host (at least not yet!). ┆
0x1280…12a0 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 63 6f 6d 6d 61 6e 64 73 20 69 6d 69 74 61 74 65 20 74 ┆The following commands imitate t┆
0x12a0…12c0 68 65 20 75 73 75 61 6c 20 55 6e 69 78 20 69 6e 74 65 72 72 75 70 74 20 61 6e 64 0a 65 64 69 74 ┆he usual Unix interrupt and edit┆
0x12c0…12e0 69 6e 67 20 63 6f 6e 74 72 6f 6c 20 63 68 61 72 61 63 74 65 72 73 3a 0a 5c 5c 7b 74 65 6c 6e 65 ┆ing control characters: \\{telne┆
0x12e0…1300 74 2d 6d 6f 64 65 2d 6d 61 70 7d 0a 0a 42 75 67 73 3a 0a 2d 2d 52 65 70 6c 61 63 65 20 0d 20 62 ┆t-mode-map} Bugs: --Replace b┆
0x1300…1320 79 20 61 20 73 70 61 63 65 2c 20 72 65 61 6c 6c 79 20 73 68 6f 75 6c 64 20 72 65 6d 6f 76 65 2e ┆y a space, really should remove.┆
0x1320…1340 0a 2d 2d 46 6f 72 20 55 6e 69 78 20 69 6e 74 65 72 61 63 74 73 20 70 6f 6f 72 6c 79 20 77 69 74 ┆ --For Unix interacts poorly wit┆
0x1340…1360 68 20 74 63 73 68 20 61 6c 74 68 6f 75 67 68 20 63 73 68 2c 73 68 2c 6b 73 68 20 61 72 65 20 6f ┆h tcsh although csh,sh,ksh are o┆
0x1360…1380 6b 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 cd 88 ┆k." (interactive) (byte-code " ┆
0x1380…13a0 ce 20 88 cf 89 10 88 d0 89 11 88 d1 89 12 88 d2 c8 21 88 d3 0b 21 88 0d 1c d2 c5 21 88 0c 89 15 ┆ ! ! ! ┆
0x13a0…13c0 29 88 d2 c6 21 88 d4 89 16 06 88 d2 c7 21 88 d5 89 16 07 88 d2 c8 21 88 d6 20 89 16 08 88 d2 c9 ┆) ! ! ! ┆
0x13c0…13e0 21 88 d6 20 89 16 09 88 d2 ca 21 88 cb 89 16 0a 88 d2 cc 21 88 cd 89 16 0c 87 22 20 5b 6d 61 6a ┆! ! ! " [maj┆
0x13e0…1400 6f 72 2d 6d 6f 64 65 20 6d 6f 64 65 2d 6e 61 6d 65 20 6d 6f 64 65 2d 6c 69 6e 65 2d 70 72 6f 63 ┆or-mode mode-name mode-line-proc┆
0x1400…1420 65 73 73 20 74 65 6c 6e 65 74 2d 6d 6f 64 65 2d 6d 61 70 20 74 65 6d 20 74 65 6c 6e 65 74 2d 70 ┆ess telnet-mode-map tem telnet-p┆
0x1420…1440 72 6f 6d 70 74 2d 70 61 74 74 65 72 6e 20 74 65 6c 6e 65 74 2d 69 6e 74 65 72 72 75 70 74 2d 73 ┆rompt-pattern telnet-interrupt-s┆
0x1440…1460 74 72 69 6e 67 20 74 65 6c 6e 65 74 2d 6e 65 77 2d 6c 69 6e 65 20 6c 61 73 74 2d 69 6e 70 75 74 ┆tring telnet-new-line last-input┆
0x1460…1480 2d 73 74 61 72 74 20 6c 61 73 74 2d 69 6e 70 75 74 2d 65 6e 64 20 74 65 6c 6e 65 74 2d 72 65 6d ┆-start last-input-end telnet-rem┆
0x1480…14a0 6f 74 65 2d 65 63 68 6f 65 73 20 74 20 74 65 6c 6e 65 74 2d 72 65 70 6c 61 63 65 2d 63 2d 67 20 ┆ote-echoes t telnet-replace-c-g ┆
0x14a0…14c0 6e 69 6c 20 6b 69 6c 6c 2d 61 6c 6c 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 73 20 74 65 6c ┆nil kill-all-local-variables tel┆
0x14c0…14e0 6e 65 74 2d 6d 6f 64 65 20 22 54 65 6c 6e 65 74 22 20 28 22 3a 20 25 73 22 29 20 6d 61 6b 65 2d ┆net-mode "Telnet" (": %s") make-┆
0x14e0…1500 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 20 75 73 65 2d 6c 6f 63 61 6c 2d 6d 61 70 20 22 03 22 ┆local-variable use-local-map " "┆
0x1500…1517 20 22 0d 22 20 6d 61 6b 65 2d 6d 61 72 6b 65 72 5d 20 31 34 29 29 0a ┆ " " make-marker] 14)) ┆