|
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 - metrics - downloadIndex: t
Length: 5442 (0x1542)
Names: »telnet.elc«
└─⟦a05ed705a⟧ Bits:30007078 DKUUG GNU 2/12/89
└─⟦46d41b2d0⟧ »./emacs-18.55.tar.Z«
└─⟦fa971747f⟧
└─⟦this⟧ »dist-18.55/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 73 65 74 71 20 74 65 6c 6e 65 74 2d 6d 6f 64 65 2d 6d 61 70 20 ┆ing] 6)) (setq telnet-mode-map ┆
0x02c0…02e0 28 6d 61 6b 65 2d 73 70 61 72 73 65 2d 6b 65 79 6d 61 70 29 29 0a 0a 28 70 72 6f 67 6e 20 28 64 ┆(make-sparse-keymap)) (progn (d┆
0x02e0…0300 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 0d 22 20 28 71 ┆efine-key telnet-mode-map " " (q┆
0x0300…0320 75 6f 74 65 20 74 65 6c 6e 65 74 2d 73 65 6e 64 2d 69 6e 70 75 74 29 29 20 28 64 65 66 69 6e 65 ┆uote telnet-send-input)) (define┆
0x0320…0340 2d 6b 65 79 20 74 65 6c 6e 65 74 2d 6d 6f 64 65 2d 6d 61 70 20 22 0a 22 20 28 71 75 6f 74 65 20 ┆-key telnet-mode-map " " (quote ┆
0x0340…0360 74 65 6c 6e 65 74 2d 73 65 6e 64 2d 69 6e 70 75 74 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 ┆telnet-send-input)) (define-key ┆
0x0360…0380 74 65 6c 6e 65 74 2d 6d 6f 64 65 2d 6d 61 70 20 22 03 04 22 20 28 71 75 6f 74 65 20 73 68 65 6c ┆telnet-mode-map " " (quote shel┆
0x0380…03a0 6c 2d 73 65 6e 64 2d 65 6f 66 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 74 65 6c 6e 65 74 2d ┆l-send-eof)) (define-key telnet-┆
0x03a0…03c0 6d 6f 64 65 2d 6d 61 70 20 22 03 11 22 20 28 71 75 6f 74 65 20 73 65 6e 64 2d 70 72 6f 63 65 73 ┆mode-map " " (quote send-proces┆
0x03c0…03e0 73 2d 6e 65 78 74 2d 63 68 61 72 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 74 65 6c 6e 65 74 ┆s-next-char)) (define-key telnet┆
0x03e0…0400 2d 6d 6f 64 65 2d 6d 61 70 20 22 03 03 22 20 28 71 75 6f 74 65 20 74 65 6c 6e 65 74 2d 69 6e 74 ┆-mode-map " " (quote telnet-int┆
0x0400…0420 65 72 72 75 70 74 2d 73 75 62 6a 6f 62 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 74 65 6c 6e ┆errupt-subjob)) (define-key teln┆
0x0420…0440 65 74 2d 6d 6f 64 65 2d 6d 61 70 20 22 03 1a 22 20 28 71 75 6f 74 65 20 74 65 6c 6e 65 74 2d 63 ┆et-mode-map " " (quote telnet-c┆
0x0440…0460 2d 7a 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 ┆-z)) (define-key telnet-mode-map┆
0x0460…0480 20 22 03 15 22 20 28 71 75 6f 74 65 20 6b 69 6c 6c 2d 73 68 65 6c 6c 2d 69 6e 70 75 74 29 29 20 ┆ " " (quote kill-shell-input)) ┆
0x0480…04a0 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 17 22 ┆(define-key telnet-mode-map " "┆
0x04a0…04c0 20 28 71 75 6f 74 65 20 62 61 63 6b 77 61 72 64 2d 6b 69 6c 6c 2d 77 6f 72 64 29 29 20 28 64 65 ┆ (quote backward-kill-word)) (de┆
0x04c0…04e0 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 0f 22 20 28 71 ┆fine-key telnet-mode-map " " (q┆
0x04e0…0500 75 6f 74 65 20 6b 69 6c 6c 2d 6f 75 74 70 75 74 2d 66 72 6f 6d 2d 73 68 65 6c 6c 29 29 20 28 64 ┆uote kill-output-from-shell)) (d┆
0x0500…0520 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 12 22 20 28 ┆efine-key telnet-mode-map " " (┆
0x0520…0540 71 75 6f 74 65 20 73 68 6f 77 2d 6f 75 74 70 75 74 2d 66 72 6f 6d 2d 73 68 65 6c 6c 29 29 20 28 ┆quote show-output-from-shell)) (┆
0x0540…0560 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 19 22 20 ┆define-key telnet-mode-map " " ┆
0x0560…0580 28 71 75 6f 74 65 20 63 6f 70 79 2d 6c 61 73 74 2d 73 68 65 6c 6c 2d 69 6e 70 75 74 29 29 29 0a ┆(quote copy-last-shell-input))) ┆
0x0580…05a0 0a 28 64 65 66 75 6e 20 74 65 6c 6e 65 74 2d 63 68 65 63 6b 2d 73 6f 66 74 77 61 72 65 2d 74 79 ┆ (defun telnet-check-software-ty┆
0x05a0…05c0 70 65 2d 69 6e 69 74 69 61 6c 69 7a 65 20 28 73 74 72 69 6e 67 29 20 22 5c 0a 54 72 69 65 73 20 ┆pe-initialize (string) "\ Tries ┆
0x05c0…05e0 74 6f 20 70 75 74 20 63 6f 72 72 65 63 74 20 69 6e 69 74 69 61 6c 69 7a 61 74 69 6f 6e 73 20 69 ┆to put correct initializations i┆
0x05e0…0600 6e 2e 20 20 4e 65 65 64 73 20 77 6f 72 6b 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c5 c6 08 ┆n. Needs work." (byte-code " ┆
0x0600…0620 5c 22 83 11 00 0a 89 11 88 c7 89 13 82 35 00 c5 c8 08 5c 22 83 1e 00 c9 89 11 82 35 00 c5 ca 08 ┆\" 5 \" 5 ┆
0x0620…0640 5c 22 83 2b 00 cb 89 11 82 35 00 c5 cc 08 5c 22 85 35 00 cd 89 14 87 22 20 5b 73 74 72 69 6e 67 ┆\" + 5 \" 5 " [string┆
0x0640…0660 20 74 65 6c 6e 65 74 2d 70 72 6f 6d 70 74 2d 70 61 74 74 65 72 6e 20 73 68 65 6c 6c 2d 70 72 6f ┆ telnet-prompt-pattern shell-pro┆
0x0660…0680 6d 70 74 2d 70 61 74 74 65 72 6e 20 74 65 6c 6e 65 74 2d 6e 65 77 2d 6c 69 6e 65 20 74 65 6c 6e ┆mpt-pattern telnet-new-line teln┆
0x0680…06a0 65 74 2d 72 65 70 6c 61 63 65 2d 63 2d 67 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 75 6e 69 ┆et-replace-c-g string-match "uni┆
0x06a0…06c0 78 22 20 22 0a 22 20 22 74 6f 70 73 2d 32 30 22 20 22 5b 40 3e 5d 2a 22 20 22 69 74 73 22 20 22 ┆x" " " "tops-20" "[@>]*" "its" "┆
0x06c0…06e0 5e 5b 5e 2a 3e 5d 2a 5b 2a 3e 5d 20 2a 22 20 22 65 78 70 6c 6f 72 65 72 22 20 31 30 5d 20 36 29 ┆^[^*>]*[*>] *" "explorer" 10] 6)┆
0x06e0…0700 29 0a 0a 28 64 65 66 75 6e 20 74 65 6c 6e 65 74 2d 69 6e 69 74 69 61 6c 2d 66 69 6c 74 65 72 20 ┆) (defun telnet-initial-filter ┆
0x0700…0720 28 70 72 6f 63 20 73 74 72 69 6e 67 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c7 c8 08 5c 22 83 ┆(proc string) (byte-code " \" ┆
0x0720…0740 13 00 c9 ca 09 21 21 88 cb cc 21 82 4e 00 c7 cd 08 5c 22 83 34 00 ce 09 08 5c 22 88 cf 1a d0 20 ┆ !! ! N \" 4 \" ┆
0x0740…0760 89 13 29 88 cf 89 14 88 d1 09 0b 0d 50 5c 22 82 4e 00 d2 08 21 88 ce 09 08 5c 22 88 0c d3 56 83 ┆ ) P\" N ! \" V ┆
0x0760…0780 4a 00 d4 09 ce 5c 22 82 4e 00 0c 54 89 14 87 22 20 5b 73 74 72 69 6e 67 20 70 72 6f 63 20 65 63 ┆J \" N T " [string proc ec┆
0x0780…07a0 68 6f 2d 6b 65 79 73 74 72 6f 6b 65 73 20 70 61 73 73 77 6f 72 64 20 74 65 6c 6e 65 74 2d 63 6f ┆ho-keystrokes password telnet-co┆
0x07a0…07c0 75 6e 74 20 74 65 6c 6e 65 74 2d 6e 65 77 2d 6c 69 6e 65 20 74 20 73 74 72 69 6e 67 2d 6d 61 74 ┆unt telnet-new-line t string-mat┆
0x07c0…07e0 63 68 20 22 4e 6f 20 73 75 63 68 20 68 6f 73 74 22 20 6b 69 6c 6c 2d 62 75 66 66 65 72 20 70 72 ┆ch "No such host" kill-buffer pr┆
0x07e0…0800 6f 63 65 73 73 2d 62 75 66 66 65 72 20 65 72 72 6f 72 20 22 4e 6f 20 73 75 63 68 20 68 6f 73 74 ┆ocess-buffer error "No such host┆
0x0800…0820 2e 22 20 22 70 61 73 73 77 22 20 74 65 6c 6e 65 74 2d 66 69 6c 74 65 72 20 30 20 72 65 61 64 2d ┆." "passw" telnet-filter 0 read-┆
0x0820…0840 70 61 73 73 77 6f 72 64 20 73 65 6e 64 2d 73 74 72 69 6e 67 20 74 65 6c 6e 65 74 2d 63 68 65 63 ┆password send-string telnet-chec┆
0x0840…0860 6b 2d 73 6f 66 74 77 61 72 65 2d 74 79 70 65 2d 69 6e 69 74 69 61 6c 69 7a 65 20 34 20 73 65 74 ┆k-software-type-initialize 4 set┆
0x0860…0880 2d 70 72 6f 63 65 73 73 2d 66 69 6c 74 65 72 5d 20 31 33 29 29 0a 0a 28 64 65 66 75 6e 20 74 65 ┆-process-filter] 13)) (defun te┆
0x0880…08a0 6c 6e 65 74 2d 66 69 6c 74 65 72 20 28 70 72 6f 63 20 73 74 72 69 6e 67 29 20 28 62 79 74 65 2d ┆lnet-filter (proc string) (byte-┆
0x08a0…08c0 63 6f 64 65 20 22 8a c7 08 21 71 88 64 62 88 60 19 0a 63 88 c8 09 60 c9 ca 24 88 0b 85 1f 00 c8 ┆code " !q db ` c ` $ ┆
0x08c0…08e0 09 60 cb 0b 24 29 88 cc 08 21 85 2d 00 cd cc 08 21 60 5c 22 88 ce 0c 21 85 3b 00 cf 0c 21 85 3b ┆ ` $) ! - !`\" ! ; ! ;┆
0x08e0…0900 00 0d 85 43 00 d0 0c 0e 06 5c 22 29 88 c7 08 21 70 3d 85 4f 00 64 62 87 22 20 5b 70 72 6f 63 20 ┆ C \") !p= O db " [proc ┆
0x0900…0920 6e 6f 77 20 73 74 72 69 6e 67 20 74 65 6c 6e 65 74 2d 72 65 70 6c 61 63 65 2d 63 2d 67 20 6c 61 ┆now string telnet-replace-c-g la┆
0x0920…0940 73 74 2d 69 6e 70 75 74 2d 73 74 61 72 74 20 74 65 6c 6e 65 74 2d 72 65 6d 6f 74 65 2d 65 63 68 ┆st-input-start telnet-remote-ech┆
0x0940…0960 6f 65 73 20 6c 61 73 74 2d 69 6e 70 75 74 2d 65 6e 64 20 70 72 6f 63 65 73 73 2d 62 75 66 66 65 ┆oes last-input-end process-buffe┆
0x0960…0980 72 20 73 75 62 73 74 2d 63 68 61 72 2d 69 6e 2d 72 65 67 69 6f 6e 20 31 33 20 33 32 20 37 20 70 ┆r subst-char-in-region 13 32 7 p┆
0x0980…09a0 72 6f 63 65 73 73 2d 6d 61 72 6b 20 73 65 74 2d 6d 61 72 6b 65 72 20 69 6e 74 65 67 65 72 2d 6f ┆rocess-mark set-marker integer-o┆
0x09a0…09c0 72 2d 6d 61 72 6b 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 ┆r-marker-p marker-position delet┆
0x09c0…09e0 65 2d 72 65 67 69 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 ┆e-region] 12)) (defun delete-ch┆
0x09e0…0a00 61 72 2d 6f 72 2d 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 ┆ar-or-send-eof (arg killp) "\ At┆
0x0a00…0a20 20 65 6e 64 20 6f 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 ┆ end of buffer, send eof to subs┆
0x0a20…0a40 68 65 6c 6c 2e 20 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 ┆hell. Otherwise delete characte┆
0x0a40…0a60 72 2e 22 20 28 69 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 ┆r." (interactive "p P") (byte-co┆
0x0a60…0a80 64 65 20 22 c2 88 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 ┆de " m ? \" " [kil┆
0x0a80…0aa0 6c 70 20 61 72 67 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 ┆lp arg nil process-send-eof dele┆
0x0aa0…0ac0 74 65 2d 63 68 61 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 ┆te-char] 4)) (defun telnet-send┆
0x0ac0…0ae0 2d 69 6e 70 75 74 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 ┆-input nil "\ Send input to remo┆
0x0ae0…0b00 74 65 20 68 6f 73 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 ┆te host At end of buffer, sends ┆
0x0b00…0b20 61 6c 6c 20 74 65 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 ┆all text after last output as in┆
0x0b20…0b40 70 75 74 20 74 6f 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 ┆put to the telnet, including a t┆
0x0b40…0b60 65 6c 6e 65 74 2d 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 ┆elnet-new-line inserted at the e┆
0x0b60…0b80 6e 64 2e 0a 4e 6f 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 ┆nd. Not at end, copies current l┆
0x0b80…0ba0 69 6e 65 20 74 6f 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 ┆ine to the end of the buffer and┆
0x0ba0…0bc0 20 73 65 6e 64 73 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 ┆ sends it, after first attemptin┆
0x0bc0…0be0 67 20 74 6f 20 64 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 ┆g to discard any prompt at the b┆
0x0be0…0c00 65 67 69 6e 6e 69 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 ┆eginning of the line by matching┆
0x0c00…0c20 20 74 68 65 20 72 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 ┆ the regexp that is the value of┆
0x0c20…0c40 20 74 65 6c 6e 65 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 ┆ telnet-prompt-pattern if possib┆
0x0c40…0c60 6c 65 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 c4 ┆le." (interactive) (byte-code " ┆
0x0c60…0c80 88 c4 18 c9 20 88 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 ┆ m p!!\" `\" C ┆
0x0c80…0ca0 0b c4 c5 23 88 cf 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 ┆ # ` ! `\" db `\" c ┆
0x0ca0…0cc0 88 ca 0a 60 5c 22 29 88 8a 09 62 88 cc 70 21 1e 07 d2 0e 07 09 0a 23 88 08 3f 85 5f 00 d3 0e 07 ┆ `\") b p! # ? _ ┆
0x0cc0…0ce0 0e 08 5c 22 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 ┆ \" !`\"))) " [copied last-┆
0x0ce0…0d00 69 6e 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 ┆input-start last-input-end telne┆
0x0d00…0d20 74 2d 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 ┆t-prompt-pattern nil t copy proc┆
0x0d20…0d40 65 73 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 ┆ess telnet-new-line end-of-line ┆
0x0d40…0d60 6d 6f 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 ┆move-marker process-mark get-buf┆
0x0d60…0d80 66 65 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 ┆fer-process beginning-of-line re┆
0x0d80…0da0 2d 73 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 ┆-search-forward buffer-substring┆
0x0da0…0dc0 20 66 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 ┆ forward-line 1 send-region send┆
0x0dc0…0de0 2d 73 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 ┆-string set-marker] 18)) (defun┆
0x0de0…0e00 20 74 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 ┆ telnet (arg) "\ Open a network ┆
0x0e00…0e20 6c 6f 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 ┆login connection to host named H┆
0x0e20…0e40 4f 53 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 ┆OST (a string). Communication wi┆
0x0e40…0e60 74 68 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 ┆th HOST is recorded in a buffer ┆
0x0e60…0e80 2a 48 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 ┆*HOST-telnet*. Normally input is┆
0x0e80…0ea0 20 65 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 ┆ edited in Emacs and sent a line┆
0x0ea0…0ec0 20 61 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 ┆ at a time." (interactive "sOpen┆
0x0ec0…0ee0 20 74 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 ┆ telnet connection to host: ") (┆
0x0ee0…0f00 62 79 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 ┆byte-code " ! P \"! ┆
0x0f00…0f20 21 cc 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 ┆! \" Q\" ) " [name┆
0x0f20…0f40 20 61 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 ┆ arg telnet-count nil require sh┆
0x0f40…0f60 65 6c 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 ┆ell "-telnet" switch-to-buffer m┆
0x0f60…0f80 61 6b 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 ┆ake-shell "telnet" set-process-f┆
0x0f80…0fa0 69 6c 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 ┆ilter get-process telnet-initial┆
0x0fa0…0fc0 2d 66 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 ┆-filter erase-buffer send-string┆
0x0fc0…0fe0 20 22 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 ┆ "open " " " telnet-mode -16] 11┆
0x0fe0…1000 29 29 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 ┆)) (defun read-password nil (by┆
0x1000…1020 74 65 2d 63 6f 64 65 20 22 c2 c3 19 18 72 89 11 c4 55 86 0f 00 09 c5 55 3f 85 1e 00 08 c6 09 21 ┆te-code " r U U? !┆
0x1020…1040 50 89 10 88 82 04 00 88 08 2a 87 22 20 5b 61 6e 73 77 20 74 65 6d 20 22 22 20 6e 69 6c 20 31 33 ┆P * " [answ tem "" nil 13┆
0x1040…1060 20 31 30 20 63 68 61 72 2d 74 6f 2d 73 74 72 69 6e 67 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 ┆ 10 char-to-string] 4)) (defun ┆
0x1060…1080 74 65 6c 6e 65 74 2d 6d 6f 64 65 20 6e 69 6c 20 22 5c 0a 54 68 69 73 20 6d 6f 64 65 20 69 73 20 ┆telnet-mode nil "\ This mode is ┆
0x1080…10a0 66 6f 72 20 75 73 65 20 64 75 72 69 6e 67 20 74 65 6c 6e 65 74 20 66 72 6f 6d 20 61 20 62 75 66 ┆for use during telnet from a buf┆
0x10a0…10c0 66 65 72 20 74 6f 20 61 6e 6f 74 68 65 72 0a 68 6f 73 74 2e 20 49 74 20 68 61 73 20 6d 6f 73 74 ┆fer to another host. It has most┆
0x10c0…10e0 20 6f 66 20 74 68 65 20 73 61 6d 65 20 63 6f 6d 6d 61 6e 64 73 20 61 73 20 73 68 65 6c 6c 20 6d ┆ of the same commands as shell m┆
0x10e0…1100 6f 64 65 2e 0a 54 68 65 72 65 20 69 73 20 61 20 76 61 72 69 61 62 6c 65 20 60 74 65 6c 6e 65 74 ┆ode. There is a variable `telnet┆
0x1100…1120 2d 69 6e 74 65 72 72 75 70 74 2d 73 74 72 69 6e 67 27 20 77 68 69 63 68 20 69 73 20 74 68 65 20 ┆-interrupt-string' which is the ┆
0x1120…1140 63 68 61 72 61 63 74 65 72 0a 73 65 6e 74 20 74 6f 20 74 72 79 20 74 6f 20 73 74 6f 70 20 65 78 ┆character sent to try to stop ex┆
0x1140…1160 65 63 75 74 69 6f 6e 20 6f 66 20 61 20 6a 6f 62 20 6f 6e 20 74 68 65 20 72 65 6d 6f 74 65 20 68 ┆ecution of a job on the remote h┆
0x1160…1180 6f 73 74 2e 0a 44 61 74 61 20 69 73 20 73 65 6e 74 20 74 6f 20 74 68 65 20 72 65 6d 6f 74 65 20 ┆ost. Data is sent to the remote ┆
0x1180…11a0 68 6f 73 74 20 77 68 65 6e 20 60 72 65 74 75 72 6e 27 20 69 73 20 74 79 70 65 64 2e 0a 54 68 75 ┆host when `return' is typed. Thu┆
0x11a0…11c0 73 20 69 66 20 79 6f 75 20 6d 61 79 20 6e 65 65 64 20 74 6f 20 65 64 69 74 20 74 68 65 20 64 61 ┆s if you may need to edit the da┆
0x11c0…11e0 74 61 20 62 65 66 6f 72 65 20 73 65 6e 64 69 6e 67 20 79 6f 75 0a 73 68 6f 75 6c 64 20 75 73 65 ┆ta before sending you should use┆
0x11e0…1200 20 63 2d 6e 20 74 6f 20 6d 6f 76 65 20 64 6f 77 6e 20 61 20 6c 69 6e 65 2e 20 20 54 68 65 6e 20 ┆ c-n to move down a line. Then ┆
0x1200…1220 79 6f 75 20 63 61 6e 20 72 65 74 75 72 6e 0a 74 6f 20 61 6c 74 65 72 20 61 20 70 72 65 76 69 6f ┆you can return to alter a previo┆
0x1220…1240 75 73 20 6c 69 6e 65 2e 20 20 4f 66 20 63 6f 75 72 73 65 20 79 6f 75 20 73 68 6f 75 6c 64 20 6e ┆us line. Of course you should n┆
0x1240…1260 6f 74 20 75 73 65 20 74 68 69 73 0a 6d 6f 64 65 20 6f 66 20 74 65 6c 6e 65 74 20 69 66 20 79 6f ┆ot use this mode of telnet if yo┆
0x1260…1280 75 20 77 61 6e 74 20 74 6f 20 72 75 6e 20 65 6d 61 63 73 20 6c 69 6b 65 20 70 72 6f 67 72 61 6d ┆u want to run emacs like program┆
0x1280…12a0 73 20 6f 6e 20 74 68 65 0a 72 65 6d 6f 74 65 20 68 6f 73 74 20 28 61 74 20 6c 65 61 73 74 20 6e ┆s on the remote host (at least n┆
0x12a0…12c0 6f 74 20 79 65 74 21 29 2e 0a 0a 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 63 6f 6d 6d 61 6e 64 ┆ot yet!). The following command┆
0x12c0…12e0 73 20 69 6d 69 74 61 74 65 20 74 68 65 20 75 73 75 61 6c 20 55 6e 69 78 20 69 6e 74 65 72 72 75 ┆s imitate the usual Unix interru┆
0x12e0…1300 70 74 20 61 6e 64 0a 65 64 69 74 69 6e 67 20 63 6f 6e 74 72 6f 6c 20 63 68 61 72 61 63 74 65 72 ┆pt and editing control character┆
0x1300…1320 73 3a 0a 5c 5c 7b 74 65 6c 6e 65 74 2d 6d 6f 64 65 2d 6d 61 70 7d 0a 0a 42 75 67 73 3a 0a 2d 2d ┆s: \\{telnet-mode-map} Bugs: --┆
0x1320…1340 52 65 70 6c 61 63 65 20 0d 20 62 79 20 61 20 73 70 61 63 65 2c 20 72 65 61 6c 6c 79 20 73 68 6f ┆Replace by a space, really sho┆
0x1340…1360 75 6c 64 20 72 65 6d 6f 76 65 2e 0a 2d 2d 46 6f 72 20 55 6e 69 78 20 69 6e 74 65 72 61 63 74 73 ┆uld remove. --For Unix interacts┆
0x1360…1380 20 70 6f 6f 72 6c 79 20 77 69 74 68 20 74 63 73 68 20 61 6c 74 68 6f 75 67 68 20 63 73 68 2c 73 ┆ poorly with tcsh although csh,s┆
0x1380…13a0 68 2c 6b 73 68 20 61 72 65 20 6f 6b 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 ┆h,ksh are ok." (interactive) (by┆
0x13a0…13c0 74 65 2d 63 6f 64 65 20 22 cd 88 ce 20 88 cf 89 10 88 d0 89 11 88 d1 89 12 88 d2 c8 21 88 d3 0b ┆te-code " ! ┆
0x13c0…13e0 21 88 0d 1c d2 c5 21 88 0c 89 15 29 88 d2 c6 21 88 d4 89 16 06 88 d2 c7 21 88 d5 89 16 07 88 d2 ┆! ! ) ! ! ┆
0x13e0…1400 c8 21 88 d6 20 89 16 08 88 d2 c9 21 88 d6 20 89 16 09 88 d2 ca 21 88 cb 89 16 0a 88 d2 cc 21 88 ┆ ! ! ! ! ┆
0x1400…1420 cd 89 16 0c 87 22 20 5b 6d 61 6a 6f 72 2d 6d 6f 64 65 20 6d 6f 64 65 2d 6e 61 6d 65 20 6d 6f 64 ┆ " [major-mode mode-name mod┆
0x1420…1440 65 2d 6c 69 6e 65 2d 70 72 6f 63 65 73 73 20 74 65 6c 6e 65 74 2d 6d 6f 64 65 2d 6d 61 70 20 74 ┆e-line-process telnet-mode-map t┆
0x1440…1460 65 6d 20 74 65 6c 6e 65 74 2d 70 72 6f 6d 70 74 2d 70 61 74 74 65 72 6e 20 74 65 6c 6e 65 74 2d ┆em telnet-prompt-pattern telnet-┆
0x1460…1480 69 6e 74 65 72 72 75 70 74 2d 73 74 72 69 6e 67 20 74 65 6c 6e 65 74 2d 6e 65 77 2d 6c 69 6e 65 ┆interrupt-string telnet-new-line┆
0x1480…14a0 20 6c 61 73 74 2d 69 6e 70 75 74 2d 73 74 61 72 74 20 6c 61 73 74 2d 69 6e 70 75 74 2d 65 6e 64 ┆ last-input-start last-input-end┆
0x14a0…14c0 20 74 65 6c 6e 65 74 2d 72 65 6d 6f 74 65 2d 65 63 68 6f 65 73 20 74 20 74 65 6c 6e 65 74 2d 72 ┆ telnet-remote-echoes t telnet-r┆
0x14c0…14e0 65 70 6c 61 63 65 2d 63 2d 67 20 6e 69 6c 20 6b 69 6c 6c 2d 61 6c 6c 2d 6c 6f 63 61 6c 2d 76 61 ┆eplace-c-g nil kill-all-local-va┆
0x14e0…1500 72 69 61 62 6c 65 73 20 74 65 6c 6e 65 74 2d 6d 6f 64 65 20 22 54 65 6c 6e 65 74 22 20 28 22 3a ┆riables telnet-mode "Telnet" (":┆
0x1500…1520 20 25 73 22 29 20 6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 20 75 73 65 2d 6c 6f ┆ %s") make-local-variable use-lo┆
0x1520…1540 63 61 6c 2d 6d 61 70 20 22 03 22 20 22 0d 22 20 6d 61 6b 65 2d 6d 61 72 6b 65 72 5d 20 31 34 29 ┆cal-map " " " " make-marker] 14)┆
0x1540…1542 29 0a ┆) ┆