|
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: 23792 (0x5cf0) Names: »terminal.elc«
└─⟦a05ed705a⟧ Bits:30007078 DKUUG GNU 2/12/89 └─⟦46d41b2d0⟧ »./emacs-18.55.tar.Z« └─⟦fa971747f⟧ └─⟦this⟧ »dist-18.55/lisp/terminal.elc«
0x0000…0020 0a 28 70 72 6f 76 69 64 65 20 28 71 75 6f 74 65 20 74 65 72 6d 69 6e 61 6c 29 29 0a 0a 28 72 65 ┆ (provide (quote terminal)) (re┆ 0x0020…0040 71 75 69 72 65 20 28 71 75 6f 74 65 20 65 68 65 6c 70 29 29 0a 0a 28 64 65 66 76 61 72 20 74 65 ┆quire (quote ehelp)) (defvar te┆ 0x0040…0060 72 6d 69 6e 61 6c 2d 65 73 63 61 70 65 2d 63 68 61 72 20 33 30 20 22 5c 0a 2a 41 6c 6c 20 63 68 ┆rminal-escape-char 30 "\ *All ch┆ 0x0060…0080 61 72 61 63 74 65 72 73 20 65 78 63 65 70 74 20 66 6f 72 20 74 68 69 73 20 61 72 65 20 70 61 73 ┆aracters except for this are pas┆ 0x0080…00a0 73 65 64 20 76 65 72 62 61 74 69 6d 20 74 68 72 6f 75 67 68 20 74 68 65 0a 74 65 72 6d 69 6e 61 ┆sed verbatim through the termina┆ 0x00a0…00c0 6c 2d 65 6d 75 6c 61 74 6f 72 2e 20 20 54 68 69 73 20 63 68 61 72 61 63 74 65 72 20 61 63 74 73 ┆l-emulator. This character acts┆ 0x00c0…00e0 20 61 73 20 61 20 70 72 65 66 69 78 20 66 6f 72 20 63 6f 6d 6d 61 6e 64 73 0a 74 6f 20 74 68 65 ┆ as a prefix for commands to the┆ 0x00e0…0100 20 65 6d 75 6c 61 74 6f 72 20 70 72 6f 67 72 61 6d 20 69 74 73 65 6c 66 2e 20 20 54 79 70 65 20 ┆ emulator program itself. Type ┆ 0x0100…0120 74 68 69 73 20 63 68 61 72 61 63 74 65 72 20 74 77 69 63 65 20 74 6f 20 73 65 6e 64 0a 69 74 20 ┆this character twice to send it ┆ 0x0120…0140 74 68 72 6f 75 67 68 20 74 68 65 20 65 6d 75 6c 61 74 6f 72 2e 20 20 54 79 70 65 20 3f 20 61 66 ┆through the emulator. Type ? af┆ 0x0140…0160 74 65 72 20 74 79 70 69 6e 67 20 69 74 20 66 6f 72 20 61 20 6c 69 73 74 20 6f 66 0a 70 6f 73 73 ┆ter typing it for a list of poss┆ 0x0160…0180 69 62 6c 65 20 63 6f 6d 6d 61 6e 64 73 2e 0a 54 68 69 73 20 76 61 72 69 61 62 6c 65 20 69 73 20 ┆ible commands. This variable is ┆ 0x0180…01a0 6c 6f 63 61 6c 20 74 6f 20 65 61 63 68 20 74 65 72 6d 69 6e 61 6c 2d 65 6d 75 6c 61 74 6f 72 20 ┆local to each terminal-emulator ┆ 0x01a0…01c0 62 75 66 66 65 72 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 74 65 72 6d 69 6e 61 6c 2d 73 63 72 6f ┆buffer.") (defvar terminal-scro┆ 0x01c0…01e0 6c 6c 69 6e 67 20 74 20 22 5c 0a 2a 49 66 20 6e 6f 6e 2d 6e 69 6c 2c 20 74 68 65 20 74 65 72 6d ┆lling t "\ *If non-nil, the term┆ 0x01e0…0200 69 6e 61 6c 2d 65 6d 75 6c 61 74 6f 72 20 77 69 6c 6c 20 60 73 63 72 6f 6c 6c 27 20 77 68 65 6e ┆inal-emulator will `scroll' when┆ 0x0200…0220 20 6f 75 74 70 75 74 20 6f 63 63 75 72 73 0a 70 61 73 74 20 74 68 65 20 62 6f 74 74 6f 6d 20 6f ┆ output occurs past the bottom o┆ 0x0220…0240 66 20 74 68 65 20 73 63 72 65 65 6e 2e 20 20 49 66 20 6e 69 6c 2c 20 6f 75 74 70 75 74 20 77 69 ┆f the screen. If nil, output wi┆ 0x0240…0260 6c 6c 20 60 77 72 61 70 27 20 74 6f 20 74 68 65 20 74 6f 70 0a 6f 66 20 74 68 65 20 73 63 72 65 ┆ll `wrap' to the top of the scre┆ 0x0260…0280 65 6e 2e 0a 54 68 69 73 20 76 61 72 69 61 62 6c 65 20 69 73 20 6c 6f 63 61 6c 20 74 6f 20 65 61 ┆en. This variable is local to ea┆ 0x0280…02a0 63 68 20 74 65 72 6d 69 6e 61 6c 2d 65 6d 75 6c 61 74 6f 72 20 62 75 66 66 65 72 2e 22 29 0a 0a ┆ch terminal-emulator buffer.") ┆ 0x02a0…02c0 28 64 65 66 76 61 72 20 74 65 72 6d 69 6e 61 6c 2d 6d 6f 72 65 2d 70 72 6f 63 65 73 73 69 6e 67 ┆(defvar terminal-more-processing┆ 0x02c0…02e0 20 74 20 22 5c 0a 2a 49 66 20 6e 6f 6e 2d 6e 69 6c 2c 20 64 6f 20 6d 6f 72 65 2d 70 72 6f 63 65 ┆ t "\ *If non-nil, do more-proce┆ 0x02e0…0300 73 73 69 6e 67 2e 0a 54 68 69 73 20 76 61 72 69 61 62 6c 65 20 69 73 20 6c 6f 63 61 6c 20 74 6f ┆ssing. This variable is local to┆ 0x0300…0320 20 65 61 63 68 20 74 65 72 6d 69 6e 61 6c 2d 65 6d 75 6c 61 74 6f 72 20 62 75 66 66 65 72 2e 22 ┆ each terminal-emulator buffer."┆ 0x0320…0340 29 0a 0a 28 64 65 66 76 61 72 20 74 65 72 6d 69 6e 61 6c 2d 72 65 64 69 73 70 6c 61 79 2d 69 6e ┆) (defvar terminal-redisplay-in┆ 0x0340…0360 74 65 72 76 61 6c 20 35 30 30 30 20 22 5c 0a 2a 4d 61 78 69 6d 75 6d 20 6e 75 6d 62 65 72 20 6f ┆terval 5000 "\ *Maximum number o┆ 0x0360…0380 66 20 63 68 61 72 61 63 74 65 72 73 20 77 68 69 63 68 20 77 69 6c 6c 20 62 65 20 70 72 6f 63 65 ┆f characters which will be proce┆ 0x0380…03a0 73 73 65 64 20 62 79 20 74 68 65 0a 74 65 72 6d 69 6e 61 6c 2d 65 6d 75 6c 61 74 6f 72 20 62 65 ┆ssed by the terminal-emulator be┆ 0x03a0…03c0 66 6f 72 65 20 61 20 73 63 72 65 65 6e 20 72 65 64 69 73 70 6c 61 79 20 69 73 20 66 6f 72 63 65 ┆fore a screen redisplay is force┆ 0x03c0…03e0 64 2e 0a 53 65 74 20 74 68 69 73 20 74 6f 20 61 20 6c 61 72 67 65 20 76 61 6c 75 65 20 66 6f 72 ┆d. Set this to a large value for┆ 0x03e0…0400 20 67 72 65 61 74 65 72 20 74 68 72 6f 75 67 68 70 75 74 2c 0a 73 65 74 20 69 74 20 73 6d 61 6c ┆ greater throughput, set it smal┆ 0x0400…0420 6c 65 72 20 66 6f 72 20 6d 6f 72 65 20 66 72 65 71 75 65 6e 74 20 75 70 64 61 74 65 73 20 62 75 ┆ler for more frequent updates bu┆ 0x0420…0440 74 20 6f 76 65 72 61 6c 6c 20 73 6c 6f 77 65 72 0a 70 65 72 66 6f 72 6d 61 6e 63 65 2e 22 29 0a ┆t overall slower performance.") ┆ 0x0440…0460 0a 28 64 65 66 76 61 72 20 74 65 72 6d 69 6e 61 6c 2d 6d 6f 72 65 2d 62 72 65 61 6b 2d 69 6e 73 ┆ (defvar terminal-more-break-ins┆ 0x0460…0480 65 72 74 69 6f 6e 20 22 2a 2a 2a 20 4d 6f 72 65 20 62 72 65 61 6b 20 2d 2d 20 50 72 65 73 73 20 ┆ertion "*** More break -- Press ┆ 0x0480…04a0 73 70 61 63 65 20 74 6f 20 63 6f 6e 74 69 6e 75 65 20 2a 2a 2a 22 29 0a 0a 28 64 65 66 76 61 72 ┆space to continue ***") (defvar┆ 0x04a0…04c0 20 74 65 72 6d 69 6e 61 6c 2d 65 73 63 61 70 65 2d 6d 61 70 20 6e 69 6c 29 0a 0a 28 64 65 66 76 ┆ terminal-escape-map nil) (defv┆ 0x04c0…04e0 61 72 20 74 65 72 6d 69 6e 61 6c 2d 6d 61 70 20 6e 69 6c 29 0a 0a 28 64 65 66 76 61 72 20 74 65 ┆ar terminal-map nil) (defvar te┆ 0x04e0…0500 72 6d 69 6e 61 6c 2d 6d 6f 72 65 2d 62 72 65 61 6b 2d 6d 61 70 20 6e 69 6c 29 0a 0a 28 69 66 20 ┆rminal-more-break-map nil) (if ┆ 0x0500…0520 74 65 72 6d 69 6e 61 6c 2d 6d 61 70 20 6e 69 6c 20 28 6c 65 74 20 28 28 6d 61 70 20 28 6d 61 6b ┆terminal-map nil (let ((map (mak┆ 0x0520…0540 65 2d 6b 65 79 6d 61 70 29 29 29 20 28 66 69 6c 6c 61 72 72 61 79 20 6d 61 70 20 28 71 75 6f 74 ┆e-keymap))) (fillarray map (quot┆ 0x0540…0560 65 20 74 65 2d 70 61 73 73 2d 74 68 72 6f 75 67 68 29 29 20 28 73 65 74 71 20 74 65 72 6d 69 6e ┆e te-pass-through)) (setq termin┆ 0x0560…0580 61 6c 2d 6d 61 70 20 6d 61 70 29 29 29 0a 0a 28 69 66 20 74 65 72 6d 69 6e 61 6c 2d 65 73 63 61 ┆al-map map))) (if terminal-esca┆ 0x0580…05a0 70 65 2d 6d 61 70 20 6e 69 6c 20 28 6c 65 74 20 28 28 6d 61 70 20 28 6d 61 6b 65 2d 6b 65 79 6d ┆pe-map nil (let ((map (make-keym┆ 0x05a0…05c0 61 70 29 29 29 20 28 66 69 6c 6c 61 72 72 61 79 20 6d 61 70 20 28 71 75 6f 74 65 20 75 6e 64 65 ┆ap))) (fillarray map (quote unde┆ 0x05c0…05e0 66 69 6e 65 64 29 29 20 28 6c 65 74 20 28 28 73 20 22 30 22 29 29 20 28 77 68 69 6c 65 20 28 3c ┆fined)) (let ((s "0")) (while (<┆ 0x05e0…0600 3d 20 28 61 72 65 66 20 73 20 30 29 20 35 37 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 ┆= (aref s 0) 57) (define-key map┆ 0x0600…0620 20 73 20 28 71 75 6f 74 65 20 64 69 67 69 74 2d 61 72 67 75 6d 65 6e 74 29 29 20 28 61 73 65 74 ┆ s (quote digit-argument)) (aset┆ 0x0620…0640 20 73 20 30 20 28 31 2b 20 28 61 72 65 66 20 73 20 30 29 29 29 29 29 20 28 64 65 66 69 6e 65 2d ┆ s 0 (1+ (aref s 0))))) (define-┆ 0x0640…0660 6b 65 79 20 6d 61 70 20 22 62 22 20 28 71 75 6f 74 65 20 73 77 69 74 63 68 2d 74 6f 2d 62 75 66 ┆key map "b" (quote switch-to-buf┆ 0x0660…0680 66 65 72 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 6f 22 20 28 71 75 6f 74 65 ┆fer)) (define-key map "o" (quote┆ 0x0680…06a0 20 6f 74 68 65 72 2d 77 69 6e 64 6f 77 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 ┆ other-window)) (define-key map ┆ 0x06a0…06c0 22 65 22 20 28 71 75 6f 74 65 20 74 65 2d 73 65 74 2d 65 73 63 61 70 65 2d 63 68 61 72 29 29 20 ┆"e" (quote te-set-escape-char)) ┆ 0x06c0…06e0 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 0c 22 20 28 71 75 6f 74 65 20 72 65 64 72 61 ┆(define-key map " " (quote redra┆ 0x06e0…0700 77 2d 64 69 73 70 6c 61 79 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 0f 22 20 ┆w-display)) (define-key map " " ┆ 0x0700…0720 28 71 75 6f 74 65 20 74 65 2d 66 6c 75 73 68 2d 70 65 6e 64 69 6e 67 2d 6f 75 74 70 75 74 29 29 ┆(quote te-flush-pending-output))┆ 0x0720…0740 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 6d 22 20 28 71 75 6f 74 65 20 74 65 2d 74 ┆ (define-key map "m" (quote te-t┆ 0x0740…0760 6f 67 67 6c 65 2d 6d 6f 72 65 2d 70 72 6f 63 65 73 73 69 6e 67 29 29 20 28 64 65 66 69 6e 65 2d ┆oggle-more-processing)) (define-┆ 0x0760…0780 6b 65 79 20 6d 61 70 20 22 78 22 20 28 71 75 6f 74 65 20 74 65 2d 65 73 63 61 70 65 2d 65 78 74 ┆key map "x" (quote te-escape-ext┆ 0x0780…07a0 65 6e 64 65 64 2d 63 6f 6d 6d 61 6e 64 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 ┆ended-command)) (define-key map ┆ 0x07a0…07c0 22 3f 22 20 28 71 75 6f 74 65 20 74 65 2d 65 73 63 61 70 65 2d 68 65 6c 70 29 29 20 28 64 65 66 ┆"?" (quote te-escape-help)) (def┆ 0x07c0…07e0 69 6e 65 2d 6b 65 79 20 6d 61 70 20 28 63 68 61 72 2d 74 6f 2d 73 74 72 69 6e 67 20 68 65 6c 70 ┆ine-key map (char-to-string help┆ 0x07e0…0800 2d 63 68 61 72 29 20 28 71 75 6f 74 65 20 74 65 2d 65 73 63 61 70 65 2d 68 65 6c 70 29 29 20 28 ┆-char) (quote te-escape-help)) (┆ 0x0800…0820 73 65 74 71 20 74 65 72 6d 69 6e 61 6c 2d 65 73 63 61 70 65 2d 6d 61 70 20 6d 61 70 29 29 29 0a ┆setq terminal-escape-map map))) ┆ 0x0820…0840 0a 28 64 65 66 76 61 72 20 74 65 2d 65 73 63 61 70 65 2d 63 6f 6d 6d 61 6e 64 2d 61 6c 69 73 74 ┆ (defvar te-escape-command-alist┆ 0x0840…0860 20 6e 69 6c 29 0a 0a 28 69 66 20 74 65 2d 65 73 63 61 70 65 2d 63 6f 6d 6d 61 6e 64 2d 61 6c 69 ┆ nil) (if te-escape-command-ali┆ 0x0860…0880 73 74 20 6e 69 6c 20 28 73 65 74 71 20 74 65 2d 65 73 63 61 70 65 2d 63 6f 6d 6d 61 6e 64 2d 61 ┆st nil (setq te-escape-command-a┆ 0x0880…08a0 6c 69 73 74 20 28 71 75 6f 74 65 20 28 28 22 53 65 74 20 45 73 63 61 70 65 20 43 68 61 72 61 63 ┆list (quote (("Set Escape Charac┆ 0x08a0…08c0 74 65 72 22 20 2e 20 74 65 2d 73 65 74 2d 65 73 63 61 70 65 2d 63 68 61 72 29 20 28 22 52 65 66 ┆ter" . te-set-escape-char) ("Ref┆ 0x08c0…08e0 72 65 73 68 22 20 2e 20 72 65 64 72 61 77 2d 64 69 73 70 6c 61 79 29 20 28 22 52 65 63 6f 72 64 ┆resh" . redraw-display) ("Record┆ 0x08e0…0900 20 4f 75 74 70 75 74 22 20 2e 20 74 65 2d 73 65 74 2d 6f 75 74 70 75 74 2d 6c 6f 67 29 20 28 22 ┆ Output" . te-set-output-log) ("┆ 0x0900…0920 50 68 6f 74 6f 22 20 2e 20 74 65 2d 73 65 74 2d 6f 75 74 70 75 74 2d 6c 6f 67 29 20 28 22 54 6f ┆Photo" . te-set-output-log) ("To┆ 0x0920…0940 66 75 22 20 2e 20 74 65 2d 74 6f 66 75 29 20 28 22 53 74 75 66 66 20 49 6e 70 75 74 22 20 2e 20 ┆fu" . te-tofu) ("Stuff Input" . ┆ 0x0940…0960 74 65 2d 73 74 75 66 66 2d 73 74 72 69 6e 67 29 20 28 22 46 6c 75 73 68 20 50 65 6e 64 69 6e 67 ┆te-stuff-string) ("Flush Pending┆ 0x0960…0980 20 4f 75 74 70 75 74 22 20 2e 20 74 65 2d 66 6c 75 73 68 2d 70 65 6e 64 69 6e 67 2d 6f 75 74 70 ┆ Output" . te-flush-pending-outp┆ 0x0980…09a0 75 74 29 20 28 22 45 6e 61 62 6c 65 20 4d 6f 72 65 20 50 72 6f 63 65 73 73 69 6e 67 22 20 2e 20 ┆ut) ("Enable More Processing" . ┆ 0x09a0…09c0 74 65 2d 65 6e 61 62 6c 65 2d 6d 6f 72 65 2d 70 72 6f 63 65 73 73 69 6e 67 29 20 28 22 44 69 73 ┆te-enable-more-processing) ("Dis┆ 0x09c0…09e0 61 62 6c 65 20 4d 6f 72 65 20 50 72 6f 63 65 73 73 69 6e 67 22 20 2e 20 74 65 2d 64 69 73 61 62 ┆able More Processing" . te-disab┆ 0x09e0…0a00 6c 65 2d 6d 6f 72 65 2d 70 72 6f 63 65 73 73 69 6e 67 29 20 28 22 53 63 72 6f 6c 6c 20 61 74 20 ┆le-more-processing) ("Scroll at ┆ 0x0a00…0a20 65 6e 64 20 6f 66 20 70 61 67 65 22 20 2e 20 74 65 2d 64 6f 2d 73 63 72 6f 6c 6c 69 6e 67 29 20 ┆end of page" . te-do-scrolling) ┆ 0x0a20…0a40 28 22 57 72 61 70 20 61 74 20 65 6e 64 20 6f 66 20 70 61 67 65 22 20 2e 20 74 65 2d 64 6f 2d 77 ┆("Wrap at end of page" . te-do-w┆ 0x0a40…0a60 72 61 70 70 69 6e 67 29 20 28 22 53 77 69 74 63 68 20 54 6f 20 42 75 66 66 65 72 22 20 2e 20 73 ┆rapping) ("Switch To Buffer" . s┆ 0x0a60…0a80 77 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 29 20 28 22 4f 74 68 65 72 20 57 69 6e 64 6f 77 22 ┆witch-to-buffer) ("Other Window"┆ 0x0a80…0aa0 20 2e 20 6f 74 68 65 72 2d 77 69 6e 64 6f 77 29 20 28 22 4b 69 6c 6c 20 42 75 66 66 65 72 22 20 ┆ . other-window) ("Kill Buffer" ┆ 0x0aa0…0ac0 2e 20 6b 69 6c 6c 2d 62 75 66 66 65 72 29 20 28 22 48 65 6c 70 22 20 2e 20 74 65 2d 65 73 63 61 ┆. kill-buffer) ("Help" . te-esca┆ 0x0ac0…0ae0 70 65 2d 68 65 6c 70 29 20 28 22 53 65 74 20 52 65 64 69 73 70 6c 61 79 20 49 6e 74 65 72 76 61 ┆pe-help) ("Set Redisplay Interva┆ 0x0ae0…0b00 6c 22 20 2e 20 74 65 2d 73 65 74 2d 72 65 64 69 73 70 6c 61 79 2d 69 6e 74 65 72 76 61 6c 29 29 ┆l" . te-set-redisplay-interval))┆ 0x0b00…0b20 29 29 29 0a 0a 28 69 66 20 74 65 72 6d 69 6e 61 6c 2d 6d 6f 72 65 2d 62 72 65 61 6b 2d 6d 61 70 ┆))) (if terminal-more-break-map┆ 0x0b20…0b40 20 6e 69 6c 20 28 6c 65 74 20 28 28 6d 61 70 20 28 6d 61 6b 65 2d 6b 65 79 6d 61 70 29 29 29 20 ┆ nil (let ((map (make-keymap))) ┆ 0x0b40…0b60 28 66 69 6c 6c 61 72 72 61 79 20 6d 61 70 20 28 71 75 6f 74 65 20 74 65 2d 6d 6f 72 65 2d 62 72 ┆(fillarray map (quote te-more-br┆ 0x0b60…0b80 65 61 6b 2d 75 6e 72 65 61 64 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 28 63 68 ┆eak-unread)) (define-key map (ch┆ 0x0b80…0ba0 61 72 2d 74 6f 2d 73 74 72 69 6e 67 20 68 65 6c 70 2d 63 68 61 72 29 20 28 71 75 6f 74 65 20 74 ┆ar-to-string help-char) (quote t┆ 0x0ba0…0bc0 65 2d 6d 6f 72 65 2d 62 72 65 61 6b 2d 68 65 6c 70 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 ┆e-more-break-help)) (define-key ┆ 0x0bc0…0be0 6d 61 70 20 22 20 22 20 28 71 75 6f 74 65 20 74 65 2d 6d 6f 72 65 2d 62 72 65 61 6b 2d 72 65 73 ┆map " " (quote te-more-break-res┆ 0x0be0…0c00 75 6d 65 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 0c 22 20 28 71 75 6f 74 65 ┆ume)) (define-key map " " (quote┆ 0x0c00…0c20 20 72 65 64 72 61 77 2d 64 69 73 70 6c 61 79 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 ┆ redraw-display)) (define-key ma┆ 0x0c20…0c40 70 20 22 0f 22 20 28 71 75 6f 74 65 20 74 65 2d 6d 6f 72 65 2d 62 72 65 61 6b 2d 66 6c 75 73 68 ┆p " " (quote te-more-break-flush┆ 0x0c40…0c60 2d 70 65 6e 64 69 6e 67 2d 6f 75 74 70 75 74 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 ┆-pending-output)) (define-key ma┆ 0x0c60…0c80 70 20 22 0d 22 20 28 71 75 6f 74 65 20 74 65 2d 6d 6f 72 65 2d 62 72 65 61 6b 2d 61 64 76 61 6e ┆p " " (quote te-more-break-advan┆ 0x0c80…0ca0 63 65 2d 6f 6e 65 2d 6c 69 6e 65 29 29 20 28 73 65 74 71 20 74 65 72 6d 69 6e 61 6c 2d 6d 6f 72 ┆ce-one-line)) (setq terminal-mor┆ 0x0ca0…0cc0 65 2d 62 72 65 61 6b 2d 6d 61 70 20 6d 61 70 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 65 2d 65 73 ┆e-break-map map))) (defun te-es┆ 0x0cc0…0ce0 63 61 70 65 20 6e 69 6c 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 ┆cape nil (interactive) (byte-cod┆ 0x0ce0…0d00 65 20 22 c7 88 c7 c8 20 c9 20 1a 19 18 ca 8e cb 0b 21 88 cc 0b 21 88 cd 0c 83 5c 22 00 ce cf d0 ┆e " ! ! \" ┆ 0x0d00…0d20 0c 21 5c 22 82 23 00 d1 21 89 10 29 88 d2 d3 21 88 d4 08 d5 d6 0d 5c 22 5c 22 83 43 00 0d 89 16 ┆ !\" # ! ) ! \"\" C ┆ 0x0d20…0d40 06 88 d7 1d d8 20 29 82 4f 00 d9 0b 08 5c 22 89 10 85 4f 00 da 08 21 2b 87 22 20 5b 73 20 6c 6f ┆ ) O \" O !+ " [s lo┆ 0x0d40…0d60 63 61 6c 20 67 6c 6f 62 61 6c 20 74 65 72 6d 69 6e 61 6c 2d 65 73 63 61 70 65 2d 6d 61 70 20 70 ┆cal global terminal-escape-map p┆ 0x0d60…0d80 72 65 66 69 78 2d 61 72 67 20 74 65 72 6d 69 6e 61 6c 2d 65 73 63 61 70 65 2d 63 68 61 72 20 6c ┆refix-arg terminal-escape-char l┆ 0x0d80…0da0 61 73 74 2d 63 6f 6d 6d 61 6e 64 2d 63 68 61 72 20 6e 69 6c 20 63 75 72 72 65 6e 74 2d 6c 6f 63 ┆ast-command-char nil current-loc┆ 0x0da0…0dc0 61 6c 2d 6d 61 70 20 63 75 72 72 65 6e 74 2d 67 6c 6f 62 61 6c 2d 6d 61 70 20 28 28 62 79 74 65 ┆al-map current-global-map ((byte┆ 0x0dc0…0de0 2d 63 6f 64 65 20 22 c2 08 21 88 c3 09 21 87 22 20 5b 67 6c 6f 62 61 6c 20 6c 6f 63 61 6c 20 75 ┆-code " ! ! " [global local u┆ 0x0de0…0e00 73 65 2d 67 6c 6f 62 61 6c 2d 6d 61 70 20 75 73 65 2d 6c 6f 63 61 6c 2d 6d 61 70 5d 20 33 29 29 ┆se-global-map use-local-map] 3))┆ 0x0e00…0e20 20 75 73 65 2d 67 6c 6f 62 61 6c 2d 6d 61 70 20 75 73 65 2d 6c 6f 63 61 6c 2d 6d 61 70 20 72 65 ┆ use-global-map use-local-map re┆ 0x0e20…0e40 61 64 2d 6b 65 79 2d 73 65 71 75 65 6e 63 65 20 66 6f 72 6d 61 74 20 22 45 6d 61 63 73 20 54 65 ┆ad-key-sequence format "Emacs Te┆ 0x0e40…0e60 72 6d 69 6e 61 6c 20 65 73 63 61 70 65 3e 20 25 64 20 22 20 70 72 65 66 69 78 2d 6e 75 6d 65 72 ┆rminal escape> %d " prefix-numer┆ 0x0e60…0e80 69 63 2d 76 61 6c 75 65 20 22 45 6d 61 63 73 20 54 65 72 6d 69 6e 61 6c 20 65 73 63 61 70 65 3e ┆ic-value "Emacs Terminal escape>┆ 0x0e80…0ea0 20 22 20 6d 65 73 73 61 67 65 20 22 22 20 73 74 72 69 6e 67 3d 20 6d 61 6b 65 2d 73 74 72 69 6e ┆ " message "" string= make-strin┆ 0x0ea0…0ec0 67 20 31 20 2d 32 35 39 20 74 65 2d 70 61 73 73 2d 74 68 72 6f 75 67 68 20 6c 6f 6f 6b 75 70 2d ┆g 1 -259 te-pass-through lookup-┆ 0x0ec0…0ee0 6b 65 79 20 63 61 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 6c 79 5d 20 31 34 29 29 0a 0a 28 64 ┆key call-interactively] 14)) (d┆ 0x0ee0…0f00 65 66 75 6e 20 74 65 2d 65 73 63 61 70 65 2d 68 65 6c 70 20 6e 69 6c 20 22 5c 0a 50 72 6f 76 69 ┆efun te-escape-help nil "\ Provi┆ 0x0f00…0f20 64 65 20 68 65 6c 70 20 6f 6e 20 63 6f 6d 6d 61 6e 64 73 20 61 76 61 69 6c 61 62 6c 65 20 61 66 ┆de help on commands available af┆ 0x0f20…0f40 74 65 72 20 74 65 72 6d 69 6e 61 6c 2d 65 73 63 61 70 65 2d 63 68 61 72 20 69 73 20 74 79 70 65 ┆ter terminal-escape-char is type┆ 0x0f40…0f60 64 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 c2 88 ┆d." (interactive) (byte-code " ┆ 0x0f60…0f80 c3 c4 21 88 c5 09 21 18 c6 c7 21 29 87 22 20 5b 63 68 61 72 20 74 65 72 6d 69 6e 61 6c 2d 65 73 ┆ ! ! !) " [char terminal-es┆ 0x0f80…0fa0 63 61 70 65 2d 63 68 61 72 20 6e 69 6c 20 6d 65 73 73 61 67 65 20 22 54 65 72 6d 69 6e 61 6c 20 ┆cape-char nil message "Terminal ┆ 0x0fa0…0fc0 65 6d 75 6c 61 74 6f 72 20 65 73 63 61 70 65 20 68 65 6c 70 2e 2e 2e 22 20 73 69 6e 67 6c 65 2d ┆emulator escape help..." single-┆ 0x0fc0…0fe0 6b 65 79 2d 64 65 73 63 72 69 70 74 69 6f 6e 20 77 69 74 68 2d 65 6c 65 63 74 72 69 63 2d 68 65 ┆key-description with-electric-he┆ 0x0fe0…1000 6c 70 20 28 6c 61 6d 62 64 61 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c7 c8 c9 08 08 ┆lp (lambda nil (byte-code " ┆ 0x1000…1020 08 08 25 21 88 c7 ca cb 21 21 88 c7 c8 cc cd ce 09 c2 23 ce 23 21 88 cf d0 21 83 2b 00 d0 d1 0c ┆ %! !! # #! ! + ┆ 0x1020…1040 21 d2 5c 22 82 31 00 d3 d1 0c 21 d4 5c 22 1b 0b 85 6f 00 d5 0b 40 41 21 86 3f 00 d6 1d d7 d8 0d ┆! \" 1 ! \" o @A! ? ┆ 0x1040…1060 5c 22 85 4f 00 0d d9 da d9 21 4f 89 15 88 c7 db 21 88 c7 0b 40 40 21 88 c7 dc 21 88 c7 0d 21 88 ┆\" O !O ! @@! ! ! ┆ 0x1060…1080 dd de 21 29 88 0b 41 89 13 88 82 32 00 29 88 c6 87 22 20 5b 63 68 61 72 20 74 65 72 6d 69 6e 61 ┆ !) A 2 ) " [char termina┆ 0x1080…10a0 6c 2d 65 73 63 61 70 65 2d 6d 61 70 20 74 20 6c 20 74 65 2d 65 73 63 61 70 65 2d 63 6f 6d 6d 61 ┆l-escape-map t l te-escape-comma┆ 0x10a0…10c0 6e 64 2d 61 6c 69 73 74 20 64 6f 63 20 6e 69 6c 20 70 72 69 6e 63 20 66 6f 72 6d 61 74 20 22 54 ┆nd-alist doc nil princ format "T┆ 0x10c0…10e0 65 72 6d 69 6e 61 6c 2d 65 6d 75 6c 61 74 6f 72 20 65 73 63 61 70 65 2c 20 69 6e 76 6f 6b 65 64 ┆erminal-emulator escape, invoked┆ 0x10e0…1100 20 62 79 20 5c 22 25 73 5c 22 0a 54 79 70 65 20 5c 22 25 73 5c 22 20 74 77 69 63 65 20 74 6f 20 ┆ by \"%s\" Type \"%s\" twice to ┆ 0x1100…1120 73 65 6e 64 20 61 20 73 69 6e 67 6c 65 20 5c 22 25 73 5c 22 20 74 68 72 6f 75 67 68 2e 0a 0a 4f ┆send a single \"%s\" through. O┆ 0x1120…1140 74 68 65 72 20 63 68 61 72 73 20 66 6f 6c 6c 6f 77 69 6e 67 20 5c 22 25 73 5c 22 20 61 72 65 20 ┆ther chars following \"%s\" are ┆ 0x1140…1160 69 6e 74 65 72 70 72 65 74 65 64 20 61 73 20 66 6f 6c 6c 6f 77 73 3a 0a 22 20 73 75 62 73 74 69 ┆interpreted as follows: " substi┆ 0x1160…1180 74 75 74 65 2d 63 6f 6d 6d 61 6e 64 2d 6b 65 79 73 20 22 5c 5c 7b 74 65 72 6d 69 6e 61 6c 2d 65 ┆tute-command-keys "\\{terminal-e┆ 0x1180…11a0 73 63 61 70 65 2d 6d 61 70 7d 0a 22 20 22 0a 53 75 62 63 6f 6d 6d 61 6e 64 73 20 6f 66 20 5c 22 ┆scape-map} " " Subcommands of \"┆ 0x11a0…11c0 25 73 5c 22 20 28 25 73 29 0a 22 20 77 68 65 72 65 2d 69 73 2d 69 6e 74 65 72 6e 61 6c 20 74 65 ┆%s\" (%s) " where-is-internal te┆ 0x11c0…11e0 2d 65 73 63 61 70 65 2d 65 78 74 65 6e 64 65 64 2d 63 6f 6d 6d 61 6e 64 20 66 62 6f 75 6e 64 70 ┆-escape-extended-command fboundp┆ 0x11e0…1200 20 73 6f 72 74 63 61 72 20 63 6f 70 79 2d 73 65 71 75 65 6e 63 65 20 73 74 72 69 6e 67 3c 20 73 ┆ sortcar copy-sequence string< s┆ 0x1200…1220 6f 72 74 20 28 6c 61 6d 62 64 61 20 28 61 20 62 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 08 ┆ort (lambda (a b) (byte-code " ┆ 0x1220…1240 40 09 40 5c 22 87 22 20 5b 61 20 62 20 73 74 72 69 6e 67 3c 5d 20 33 29 29 20 64 6f 63 75 6d 65 ┆@ @\" " [a b string<] 3)) docume┆ 0x1240…1260 6e 74 61 74 69 6f 6e 20 22 4e 6f 74 20 64 6f 63 75 6d 65 6e 74 65 64 22 20 73 74 72 69 6e 67 2d ┆ntation "Not documented" string-┆ 0x1260…1280 6d 61 74 63 68 20 22 0a 22 20 30 20 6d 61 74 63 68 2d 62 65 67 69 6e 6e 69 6e 67 20 22 20 20 5c ┆match " " 0 match-beginning " \┆ 0x1280…12a0 22 22 20 22 5c 22 3a 0a 20 20 20 20 20 22 20 77 72 69 74 65 2d 63 68 61 72 20 31 30 5d 20 32 33 ┆"" "\": " write-char 10] 23┆ 0x12a0…12c0 29 29 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 74 65 2d 65 73 63 61 70 65 2d 65 78 74 65 6e 64 ┆))] 4)) (defun te-escape-extend┆ 0x12c0…12e0 65 64 2d 63 6f 6d 6d 61 6e 64 20 6e 69 6c 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 ┆ed-command nil (interactive) (by┆ 0x12e0…1300 74 65 2d 63 6f 64 65 20 22 c4 88 c2 19 c5 c6 0b c4 c2 24 29 18 08 85 13 00 c7 c8 8d 29 87 22 20 ┆te-code " $) ) " ┆ 0x1300…1320 5b 63 20 63 6f 6d 70 6c 65 74 69 6f 6e 2d 69 67 6e 6f 72 65 2d 63 61 73 65 20 74 20 74 65 2d 65 ┆[c completion-ignore-case t te-e┆ 0x1320…1340 73 63 61 70 65 2d 63 6f 6d 6d 61 6e 64 2d 61 6c 69 73 74 20 6e 69 6c 20 63 6f 6d 70 6c 65 74 69 ┆scape-command-alist nil completi┆ 0x1340…1360 6e 67 2d 72 65 61 64 20 22 74 65 72 6d 69 6e 61 6c 20 63 6f 6d 6d 61 6e 64 3a 20 22 20 66 6f 6f ┆ng-read "terminal command: " foo┆ 0x1360…1380 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 08 21 89 10 88 0a 19 09 85 2a 00 c4 08 c3 09 40 40 21 ┆ (byte-code " ! * @@!┆ 0x1380…13a0 5c 22 83 5c 22 00 c5 c6 c7 09 40 41 21 5c 22 82 26 00 09 41 89 11 88 82 08 00 29 87 22 20 5b 63 ┆\" \" @A!\" & A ) " [c┆ 0x13a0…13c0 20 6c 20 74 65 2d 65 73 63 61 70 65 2d 63 6f 6d 6d 61 6e 64 2d 61 6c 69 73 74 20 64 6f 77 6e 63 ┆ l te-escape-command-alist downc┆ 0x13c0…13e0 61 73 65 20 73 74 72 69 6e 67 3d 20 74 68 72 6f 77 20 66 6f 6f 20 63 61 6c 6c 2d 69 6e 74 65 72 ┆ase string= throw foo call-inter┆ 0x13e0…1400 61 63 74 69 76 65 6c 79 5d 20 38 29 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 74 65 2d 65 73 63 ┆actively] 8)] 5)) (defun te-esc┆ 0x1400…1420 61 70 65 2d 65 78 74 65 6e 64 65 64 2d 63 6f 6d 6d 61 6e 64 2d 75 6e 72 65 61 64 20 6e 69 6c 20 ┆ape-extended-command-unread nil ┆ 0x1420…1440 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 c2 88 09 89 10 88 ┆(interactive) (byte-code " ┆ 0x1440…1460 c3 20 87 22 20 5b 75 6e 72 65 61 64 2d 63 6f 6d 6d 61 6e 64 2d 63 68 61 72 20 6c 61 73 74 2d 69 ┆ " [unread-command-char last-i┆ 0x1460…1480 6e 70 75 74 2d 63 68 61 72 20 6e 69 6c 20 74 65 2d 65 73 63 61 70 65 2d 65 78 74 65 6e 64 65 64 ┆nput-char nil te-escape-extended┆ 0x1480…14a0 2d 63 6f 6d 6d 61 6e 64 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 74 65 2d 73 65 74 2d 65 73 63 ┆-command] 2)) (defun te-set-esc┆ 0x14a0…14c0 61 70 65 2d 63 68 61 72 20 28 63 29 20 22 5c 0a 43 68 61 6e 67 65 20 74 68 65 20 74 65 72 6d 69 ┆ape-char (c) "\ Change the termi┆ 0x14c0…14e0 6e 61 6c 2d 65 6d 75 6c 61 74 6f 72 20 65 73 63 61 70 65 20 63 68 61 72 61 63 74 65 72 2e 22 20 ┆nal-emulator escape character." ┆ 0x14e0…1500 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 63 53 65 74 20 65 73 63 61 70 65 20 63 68 61 72 61 63 ┆(interactive "cSet escape charac┆ 0x1500…1520 74 65 72 20 74 6f 3a 20 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 88 09 18 c4 08 0a 55 83 ┆ter to: ") (byte-code " U ┆ 0x1520…1540 0f 00 c5 82 10 00 c6 c7 0a 21 c7 08 21 23 88 0a 89 11 29 87 22 20 5b 6f 20 74 65 72 6d 69 6e 61 ┆ ! !# ) " [o termina┆ 0x1540…1560 6c 2d 65 73 63 61 70 65 2d 63 68 61 72 20 63 20 6e 69 6c 20 6d 65 73 73 61 67 65 20 22 5c 22 25 ┆l-escape-char c nil message "\"%┆ 0x1560…1580 73 5c 22 20 69 73 20 65 73 63 61 70 65 20 63 68 61 72 22 20 22 5c 22 25 73 5c 22 20 69 73 20 6e ┆s\" is escape char" "\"%s\" is n┆ 0x1580…15a0 6f 77 20 65 73 63 61 70 65 3b 20 5c 22 25 73 5c 22 20 70 61 73 73 65 73 20 74 68 6f 75 67 68 22 ┆ow escape; \"%s\" passes though"┆ 0x15a0…15c0 20 73 69 6e 67 6c 65 2d 6b 65 79 2d 64 65 73 63 72 69 70 74 69 6f 6e 5d 20 36 29 29 0a 0a 28 64 ┆ single-key-description] 6)) (d┆ 0x15c0…15e0 65 66 75 6e 20 74 65 2d 73 74 75 66 66 2d 73 74 72 69 6e 67 20 28 73 74 72 69 6e 67 29 20 22 5c ┆efun te-stuff-string (string) "\┆ 0x15e0…1600 0a 52 65 61 64 20 61 20 73 74 72 69 6e 67 20 74 6f 20 73 65 6e 64 20 74 6f 20 74 68 72 6f 75 67 ┆ Read a string to send to throug┆ 0x1600…1620 68 20 74 68 65 20 74 65 72 6d 69 6e 61 6c 20 65 6d 75 6c 61 74 6f 72 0a 61 73 20 74 68 6f 75 67 ┆h the terminal emulator as thoug┆ 0x1620…1640 68 20 74 68 61 74 20 73 74 72 69 6e 67 20 68 61 64 20 62 65 65 6e 20 74 79 70 65 64 20 6f 6e 20 ┆h that string had been typed on ┆ 0x1640…1660 74 68 65 20 6b 65 79 62 6f 61 72 64 2e 0a 0a 56 65 72 79 20 70 6f 6f 72 20 6d 61 6e 27 73 20 66 ┆the keyboard. Very poor man's f┆ 0x1660…1680 69 6c 65 20 74 72 61 6e 73 66 65 72 20 70 72 6f 74 6f 63 6f 6c 2e 22 20 28 69 6e 74 65 72 61 63 ┆ile transfer protocol." (interac┆ 0x1680…16a0 74 69 76 65 20 22 73 53 74 75 66 66 20 73 74 72 69 6e 67 3a 20 22 29 20 28 62 79 74 65 2d 63 6f ┆tive "sStuff string: ") (byte-co┆ 0x16a0…16c0 64 65 20 22 c2 88 c3 08 09 5c 22 87 22 20 5b 74 65 2d 70 72 6f 63 65 73 73 20 73 74 72 69 6e 67 ┆de " \" " [te-process string┆ 0x16c0…16e0 20 6e 69 6c 20 70 72 6f 63 65 73 73 2d 73 65 6e 64 2d 73 74 72 69 6e 67 5d 20 33 29 29 0a 0a 28 ┆ nil process-send-string] 3)) (┆ 0x16e0…1700 64 65 66 75 6e 20 74 65 2d 73 65 74 2d 6f 75 74 70 75 74 2d 6c 6f 67 20 28 6e 61 6d 65 29 20 22 ┆defun te-set-output-log (name) "┆ 0x1700…1720 5c 0a 52 65 63 6f 72 64 20 6f 75 74 70 75 74 20 66 72 6f 6d 20 74 68 65 20 74 65 72 6d 69 6e 61 ┆\ Record output from the termina┆ 0x1720…1740 6c 20 65 6d 75 6c 61 74 6f 72 20 69 6e 20 61 20 62 75 66 66 65 72 2e 22 20 28 69 6e 74 65 72 61 ┆l emulator in a buffer." (intera┆ 0x1740…1760 63 74 69 76 65 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 83 08 00 c1 82 12 00 c2 c3 c4 c5 c6 70 ┆ctive (byte-code " p┆ 0x1760…1780 21 5c 22 c1 23 43 87 22 20 5b 74 65 2d 6c 6f 67 2d 62 75 66 66 65 72 20 6e 69 6c 20 72 65 61 64 ┆!\" #C " [te-log-buffer nil read┆ 0x1780…17a0 2d 62 75 66 66 65 72 20 22 52 65 63 6f 72 64 20 6f 75 74 70 75 74 20 69 6e 20 62 75 66 66 65 72 ┆-buffer "Record output in buffer┆ 0x17a0…17c0 3a 20 22 20 66 6f 72 6d 61 74 20 22 25 73 20 6f 75 74 70 75 74 2d 6c 6f 67 22 20 62 75 66 66 65 ┆: " format "%s output-log" buffe┆ 0x17c0…17e0 72 2d 6e 61 6d 65 5d 20 36 29 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 0a 3f 86 0b 00 c3 ┆r-name] 6)) (byte-code " ? ┆ 0x17e0…1800 0a c4 5c 22 83 18 00 c1 89 10 88 c5 c6 21 82 3f 00 c7 0a 21 83 5c 22 00 c1 82 32 00 8a c8 0a 21 ┆ \" ! ? ! \" 2 !┆ 0x1800…1820 71 88 c9 20 88 ca 70 21 88 cb 20 29 88 c7 0a 21 89 10 88 c5 cc cd 08 21 5c 22 87 22 20 5b 74 65 ┆q p! ) ! !\" " [te┆ 0x1820…1840 2d 6c 6f 67 2d 62 75 66 66 65 72 20 6e 69 6c 20 6e 61 6d 65 20 65 71 75 61 6c 20 22 22 20 6d 65 ┆-log-buffer nil name equal "" me┆ 0x1840…1860 73 73 61 67 65 20 22 4f 75 74 70 75 74 20 6c 6f 67 67 69 6e 67 20 6f 66 66 2e 22 20 67 65 74 2d ┆ssage "Output logging off." get-┆ 0x1860…1880 62 75 66 66 65 72 20 67 65 74 2d 62 75 66 66 65 72 2d 63 72 65 61 74 65 20 66 75 6e 64 61 6d 65 ┆buffer get-buffer-create fundame┆ 0x1880…18a0 6e 74 61 6c 2d 6d 6f 64 65 20 62 75 66 66 65 72 2d 66 6c 75 73 68 2d 75 6e 64 6f 20 65 72 61 73 ┆ntal-mode buffer-flush-undo eras┆ 0x18a0…18c0 65 2d 62 75 66 66 65 72 20 22 52 65 63 6f 72 64 69 6e 67 20 74 65 72 6d 69 6e 61 6c 20 65 6d 75 ┆e-buffer "Recording terminal emu┆ 0x18c0…18e0 6c 61 74 6f 72 20 6f 75 74 70 75 74 20 69 6e 74 6f 20 62 75 66 66 65 72 20 5c 22 25 73 5c 22 22 ┆lator output into buffer \"%s\""┆ 0x18e0…1900 20 62 75 66 66 65 72 2d 6e 61 6d 65 5d 20 31 32 29 29 0a 0a 28 64 65 66 75 6e 20 74 65 2d 74 6f ┆ buffer-name] 12)) (defun te-to┆ 0x1900…1920 66 75 20 6e 69 6c 20 22 5c 0a 44 69 73 63 6f 6e 74 69 6e 75 65 20 6f 75 74 70 75 74 20 6c 6f 67 ┆fu nil "\ Discontinue output log┆ […truncated at 200 lines…]