|
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: ┃ e ┃
Length: 12676 (0x3184)
Names: »edt.elc«
└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
└─ ⟦this⟧ »EUUGD11/gnu-31mar87/emacs/lisp/edt.elc«
0x0000…0020 0a 28 72 65 71 75 69 72 65 20 28 71 75 6f 74 65 20 6b 65 79 70 61 64 29 29 0a 0a 28 64 65 66 76 ┆ (require (quote keypad)) (defv┆ 0x0020…0040 61 72 20 65 64 74 2d 6c 61 73 74 2d 64 65 6c 65 74 65 64 2d 6c 69 6e 65 73 20 22 22 20 22 5c 0a ┆ar edt-last-deleted-lines "" "\ ┆ 0x0040…0060 4c 61 73 74 20 74 65 78 74 20 64 65 6c 65 74 65 64 20 62 79 20 61 6e 20 45 44 54 20 65 6d 75 6c ┆Last text deleted by an EDT emul┆ 0x0060…0080 61 74 69 6f 6e 20 6c 69 6e 65 2d 64 65 6c 65 74 65 20 63 6f 6d 6d 61 6e 64 2e 22 29 0a 0a 28 64 ┆ation line-delete command.") (d┆ 0x0080…00a0 65 66 76 61 72 20 65 64 74 2d 6c 61 73 74 2d 64 65 6c 65 74 65 64 2d 77 6f 72 64 73 20 22 22 20 ┆efvar edt-last-deleted-words "" ┆ 0x00a0…00c0 22 5c 0a 4c 61 73 74 20 74 65 78 74 20 64 65 6c 65 74 65 64 20 62 79 20 61 6e 20 45 44 54 20 65 ┆"\ Last text deleted by an EDT e┆ 0x00c0…00e0 6d 75 6c 61 74 69 6f 6e 20 77 6f 72 64 2d 64 65 6c 65 74 65 20 63 6f 6d 6d 61 6e 64 2e 22 29 0a ┆mulation word-delete command.") ┆ 0x00e0…0100 0a 28 64 65 66 76 61 72 20 65 64 74 2d 6c 61 73 74 2d 64 65 6c 65 74 65 64 2d 63 68 61 72 73 20 ┆ (defvar edt-last-deleted-chars ┆ 0x0100…0120 22 22 20 22 5c 0a 4c 61 73 74 20 74 65 78 74 20 64 65 6c 65 74 65 64 20 62 79 20 61 6e 20 45 44 ┆"" "\ Last text deleted by an ED┆ 0x0120…0140 54 20 65 6d 75 6c 61 74 69 6f 6e 20 63 68 61 72 61 63 74 65 72 2d 64 65 6c 65 74 65 20 63 6f 6d ┆T emulation character-delete com┆ 0x0140…0160 6d 61 6e 64 2e 22 29 0a 0a 28 64 65 66 75 6e 20 64 65 6c 65 74 65 2d 63 75 72 72 65 6e 74 2d 6c ┆mand.") (defun delete-current-l┆ 0x0160…0180 69 6e 65 20 28 6e 75 6d 29 20 22 5c 0a 44 65 6c 65 74 65 20 6f 6e 65 20 6f 72 20 73 70 65 63 69 ┆ine (num) "\ Delete one or speci┆ 0x0180…01a0 66 69 65 64 20 6e 75 6d 62 65 72 20 6f 66 20 6c 69 6e 65 73 20 61 66 74 65 72 20 70 6f 69 6e 74 ┆fied number of lines after point┆ 0x01a0…01c0 2e 0a 54 68 69 73 20 69 6e 63 6c 75 64 65 73 20 74 68 65 20 6e 65 77 6c 69 6e 65 20 63 68 61 72 ┆. This includes the newline char┆ 0x01c0…01e0 61 63 74 65 72 20 61 74 20 74 68 65 20 65 6e 64 20 6f 66 20 65 61 63 68 20 6c 69 6e 65 2e 0a 54 ┆acter at the end of each line. T┆ 0x01e0…0200 68 65 79 20 61 72 65 20 73 61 76 65 64 20 66 6f 72 20 74 68 65 20 45 44 54 20 75 6e 64 65 6c 65 ┆hey are saved for the EDT undele┆ 0x0200…0220 74 65 2d 6c 69 6e 65 73 20 63 6f 6d 6d 61 6e 64 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 ┆te-lines command." (interactive ┆ 0x0220…0240 22 70 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 88 60 18 c4 09 21 88 68 c5 3d 3f 85 11 00 ┆"p") (byte-code " ` ! h =? ┆ 0x0240…0260 c6 63 88 c7 08 60 5c 22 89 12 88 c8 08 60 5c 22 29 87 22 20 5b 62 65 67 20 6e 75 6d 20 65 64 74 ┆ c `\" `\") " [beg num edt┆ 0x0260…0280 2d 6c 61 73 74 2d 64 65 6c 65 74 65 64 2d 6c 69 6e 65 73 20 6e 69 6c 20 66 6f 72 77 61 72 64 2d ┆-last-deleted-lines nil forward-┆ 0x0280…02a0 6c 69 6e 65 20 31 30 20 22 0a 22 20 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 64 65 6c ┆line 10 " " buffer-substring del┆ 0x02a0…02c0 65 74 65 2d 72 65 67 69 6f 6e 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 64 65 6c 65 74 65 2d 74 ┆ete-region] 5)) (defun delete-t┆ 0x02c0…02e0 6f 2d 65 6f 6c 20 28 6e 75 6d 29 20 22 5c 0a 44 65 6c 65 74 65 20 74 65 78 74 20 75 70 20 74 6f ┆o-eol (num) "\ Delete text up to┆ 0x02e0…0300 20 65 6e 64 20 6f 66 20 6c 69 6e 65 2e 0a 57 69 74 68 20 61 72 67 75 6d 65 6e 74 2c 20 64 65 6c ┆ end of line. With argument, del┆ 0x0300…0320 65 74 65 20 75 70 20 74 6f 20 74 6f 20 4e 74 68 20 6c 69 6e 65 2d 65 6e 64 20 70 61 73 74 20 70 ┆ete up to to Nth line-end past p┆ 0x0320…0340 6f 69 6e 74 2e 0a 54 68 65 79 20 61 72 65 20 73 61 76 65 64 20 66 6f 72 20 74 68 65 20 45 44 54 ┆oint. They are saved for the EDT┆ 0x0340…0360 20 75 6e 64 65 6c 65 74 65 2d 6c 69 6e 65 73 20 63 6f 6d 6d 61 6e 64 2e 22 20 28 69 6e 74 65 72 ┆ undelete-lines command." (inter┆ 0x0360…0380 61 63 74 69 76 65 20 22 70 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 88 60 18 c4 c5 21 88 ┆active "p") (byte-code " ` ! ┆ 0x0380…03a0 c6 09 21 88 c7 08 60 5c 22 89 12 88 c8 08 60 5c 22 29 87 22 20 5b 62 65 67 20 6e 75 6d 20 65 64 ┆ ! `\" `\") " [beg num ed┆ 0x03a0…03c0 74 2d 6c 61 73 74 2d 64 65 6c 65 74 65 64 2d 6c 69 6e 65 73 20 6e 69 6c 20 66 6f 72 77 61 72 64 ┆t-last-deleted-lines nil forward┆ 0x03c0…03e0 2d 63 68 61 72 20 31 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 62 75 66 66 65 72 2d 73 75 62 73 74 ┆-char 1 end-of-line buffer-subst┆ 0x03e0…0400 72 69 6e 67 20 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20 ┆ring delete-region] 6)) (defun ┆ 0x0400…0420 64 65 6c 65 74 65 2d 63 75 72 72 65 6e 74 2d 77 6f 72 64 20 28 6e 75 6d 29 20 22 5c 0a 44 65 6c ┆delete-current-word (num) "\ Del┆ 0x0420…0440 65 74 65 20 6f 6e 65 20 6f 72 20 73 70 65 63 69 66 69 65 64 20 6e 75 6d 62 65 72 20 6f 66 20 77 ┆ete one or specified number of w┆ 0x0440…0460 6f 72 64 73 20 61 66 74 65 72 20 70 6f 69 6e 74 2e 0a 54 68 65 79 20 61 72 65 20 73 61 76 65 64 ┆ords after point. They are saved┆ 0x0460…0480 20 66 6f 72 20 74 68 65 20 45 44 54 20 75 6e 64 65 6c 65 74 65 2d 77 6f 72 64 73 20 63 6f 6d 6d ┆ for the EDT undelete-words comm┆ 0x0480…04a0 61 6e 64 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 70 22 29 20 28 62 79 74 65 2d 63 6f ┆and." (interactive "p") (byte-co┆ 0x04a0…04c0 64 65 20 22 c3 88 60 18 c4 09 21 88 c5 08 60 5c 22 89 12 88 c6 08 60 5c 22 29 87 22 20 5b 62 65 ┆de " ` ! `\" `\") " [be┆ 0x04c0…04e0 67 20 6e 75 6d 20 65 64 74 2d 6c 61 73 74 2d 64 65 6c 65 74 65 64 2d 77 6f 72 64 73 20 6e 69 6c ┆g num edt-last-deleted-words nil┆ 0x04e0…0500 20 66 6f 72 77 61 72 64 2d 77 6f 72 64 20 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 64 ┆ forward-word buffer-substring d┆ 0x0500…0520 65 6c 65 74 65 2d 72 65 67 69 6f 6e 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 64 65 6c 65 74 65 ┆elete-region] 5)) (defun delete┆ 0x0520…0540 2d 70 72 65 76 69 6f 75 73 2d 77 6f 72 64 20 28 6e 75 6d 29 20 22 5c 0a 44 65 6c 65 74 65 20 6f ┆-previous-word (num) "\ Delete o┆ 0x0540…0560 6e 65 20 6f 72 20 73 70 65 63 69 66 69 65 64 20 6e 75 6d 62 65 72 20 6f 66 20 77 6f 72 64 73 20 ┆ne or specified number of words ┆ 0x0560…0580 62 65 66 6f 72 65 20 70 6f 69 6e 74 2e 0a 54 68 65 79 20 61 72 65 20 73 61 76 65 64 20 66 6f 72 ┆before point. They are saved for┆ 0x0580…05a0 20 74 68 65 20 45 44 54 20 75 6e 64 65 6c 65 74 65 2d 77 6f 72 64 73 20 63 6f 6d 6d 61 6e 64 2e ┆ the EDT undelete-words command.┆ 0x05a0…05c0 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 70 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 ┆" (interactive "p") (byte-code "┆ 0x05c0…05e0 c3 88 60 18 c4 09 5b 21 88 c5 60 08 5c 22 89 12 88 c6 08 60 5c 22 29 87 22 20 5b 62 65 67 20 6e ┆ ` [! ` \" `\") " [beg n┆ 0x05e0…0600 75 6d 20 65 64 74 2d 6c 61 73 74 2d 64 65 6c 65 74 65 64 2d 77 6f 72 64 73 20 6e 69 6c 20 66 6f ┆um edt-last-deleted-words nil fo┆ 0x0600…0620 72 77 61 72 64 2d 77 6f 72 64 20 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 64 65 6c 65 ┆rward-word buffer-substring dele┆ 0x0620…0640 74 65 2d 72 65 67 69 6f 6e 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 64 65 6c 65 74 65 2d 63 75 ┆te-region] 5)) (defun delete-cu┆ 0x0640…0660 72 72 65 6e 74 2d 63 68 61 72 20 28 6e 75 6d 29 20 22 5c 0a 44 65 6c 65 74 65 20 6f 6e 65 20 6f ┆rrent-char (num) "\ Delete one o┆ 0x0660…0680 72 20 73 70 65 63 69 66 69 65 64 20 6e 75 6d 62 65 72 20 6f 66 20 63 68 61 72 61 63 74 65 72 73 ┆r specified number of characters┆ 0x0680…06a0 20 61 66 74 65 72 20 70 6f 69 6e 74 2e 0a 54 68 65 79 20 61 72 65 20 73 61 76 65 64 20 66 6f 72 ┆ after point. They are saved for┆ 0x06a0…06c0 20 74 68 65 20 45 44 54 20 75 6e 64 65 6c 65 74 65 2d 63 68 61 72 73 20 63 6f 6d 6d 61 6e 64 2e ┆ the EDT undelete-chars command.┆ 0x06c0…06e0 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 70 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 ┆" (interactive "p") (byte-code "┆ 0x06e0…0700 c2 88 c3 60 64 60 09 5c 5c 5e 5c 22 89 10 88 c4 60 64 60 09 5c 5c 5e 5c 22 87 22 20 5b 65 64 74 ┆ `d` \\^\" `d` \\^\" " [edt┆ 0x0700…0720 2d 6c 61 73 74 2d 64 65 6c 65 74 65 64 2d 63 68 61 72 73 20 6e 75 6d 20 6e 69 6c 20 62 75 66 66 ┆-last-deleted-chars num nil buff┆ 0x0720…0740 65 72 2d 73 75 62 73 74 72 69 6e 67 20 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 5d 20 36 29 29 0a ┆er-substring delete-region] 6)) ┆ 0x0740…0760 0a 28 64 65 66 75 6e 20 64 65 6c 65 74 65 2d 70 72 65 76 69 6f 75 73 2d 63 68 61 72 20 28 6e 75 ┆ (defun delete-previous-char (nu┆ 0x0760…0780 6d 29 20 22 5c 0a 44 65 6c 65 74 65 20 6f 6e 65 20 6f 72 20 73 70 65 63 69 66 69 65 64 20 6e 75 ┆m) "\ Delete one or specified nu┆ 0x0780…07a0 6d 62 65 72 20 6f 66 20 63 68 61 72 61 63 74 65 72 73 20 62 65 66 6f 72 65 20 70 6f 69 6e 74 2e ┆mber of characters before point.┆ 0x07a0…07c0 0a 54 68 65 79 20 61 72 65 20 73 61 76 65 64 20 66 6f 72 20 74 68 65 20 45 44 54 20 75 6e 64 65 ┆ They are saved for the EDT unde┆ 0x07c0…07e0 6c 65 74 65 2d 63 68 61 72 73 20 63 6f 6d 6d 61 6e 64 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 ┆lete-chars command." (interactiv┆ 0x07e0…0800 65 20 22 70 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 88 c3 65 60 09 5a 5d 60 5c 22 89 10 ┆e "p") (byte-code " e` Z]`\" ┆ 0x0800…0820 88 c4 65 60 09 5a 5d 60 5c 22 87 22 20 5b 65 64 74 2d 6c 61 73 74 2d 64 65 6c 65 74 65 64 2d 63 ┆ e` Z]`\" " [edt-last-deleted-c┆ 0x0820…0840 68 61 72 73 20 6e 75 6d 20 6e 69 6c 20 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 64 65 ┆hars num nil buffer-substring de┆ 0x0840…0860 6c 65 74 65 2d 72 65 67 69 6f 6e 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 75 6e 64 65 6c 65 74 ┆lete-region] 5)) (defun undelet┆ 0x0860…0880 65 2d 6c 69 6e 65 73 20 6e 69 6c 20 22 5c 0a 59 61 6e 6b 20 6c 69 6e 65 73 20 64 65 6c 65 74 65 ┆e-lines nil "\ Yank lines delete┆ 0x0880…08a0 64 20 62 79 20 6c 61 73 74 20 45 44 54 20 6c 69 6e 65 2d 64 65 6c 65 74 69 6f 6e 20 63 6f 6d 6d ┆d by last EDT line-deletion comm┆ 0x08a0…08c0 61 6e 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 ┆and." (interactive) (byte-code "┆ 0x08c0…08e0 c1 88 08 63 87 22 20 5b 65 64 74 2d 6c 61 73 74 2d 64 65 6c 65 74 65 64 2d 6c 69 6e 65 73 20 6e ┆ c " [edt-last-deleted-lines n┆ 0x08e0…0900 69 6c 5d 20 31 29 29 0a 0a 28 64 65 66 75 6e 20 75 6e 64 65 6c 65 74 65 2d 77 6f 72 64 73 20 6e ┆il] 1)) (defun undelete-words n┆ 0x0900…0920 69 6c 20 22 5c 0a 59 61 6e 6b 20 77 6f 72 64 73 20 64 65 6c 65 74 65 64 20 62 79 20 6c 61 73 74 ┆il "\ Yank words deleted by last┆ 0x0920…0940 20 45 44 54 20 77 6f 72 64 2d 64 65 6c 65 74 69 6f 6e 20 63 6f 6d 6d 61 6e 64 2e 22 20 28 69 6e ┆ EDT word-deletion command." (in┆ 0x0940…0960 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 08 63 87 22 20 5b 65 ┆teractive) (byte-code " c " [e┆ 0x0960…0980 64 74 2d 6c 61 73 74 2d 64 65 6c 65 74 65 64 2d 77 6f 72 64 73 20 6e 69 6c 5d 20 31 29 29 0a 0a ┆dt-last-deleted-words nil] 1)) ┆ 0x0980…09a0 28 64 65 66 75 6e 20 75 6e 64 65 6c 65 74 65 2d 63 68 61 72 73 20 6e 69 6c 20 22 5c 0a 59 61 6e ┆(defun undelete-chars nil "\ Yan┆ 0x09a0…09c0 6b 20 63 68 61 72 61 63 74 65 72 73 20 64 65 6c 65 74 65 64 20 62 79 20 6c 61 73 74 20 45 44 54 ┆k characters deleted by last EDT┆ 0x09c0…09e0 20 63 68 61 72 61 63 74 65 72 2d 64 65 6c 65 74 69 6f 6e 20 63 6f 6d 6d 61 6e 64 2e 22 20 28 69 ┆ character-deletion command." (i┆ 0x09e0…0a00 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 08 63 87 22 20 5b ┆nteractive) (byte-code " c " [┆ 0x0a00…0a20 65 64 74 2d 6c 61 73 74 2d 64 65 6c 65 74 65 64 2d 63 68 61 72 73 20 6e 69 6c 5d 20 31 29 29 0a ┆edt-last-deleted-chars nil] 1)) ┆ 0x0a20…0a40 0a 28 64 65 66 75 6e 20 6e 65 78 74 2d 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 28 6e 75 6d 29 20 22 ┆ (defun next-end-of-line (num) "┆ 0x0a40…0a60 5c 0a 4d 6f 76 65 20 74 6f 20 65 6e 64 20 6f 66 20 6c 69 6e 65 3b 20 69 66 20 61 74 20 65 6e 64 ┆\ Move to end of line; if at end┆ 0x0a60…0a80 2c 20 6d 6f 76 65 20 74 6f 20 65 6e 64 20 6f 66 20 6e 65 78 74 20 6c 69 6e 65 2e 0a 41 63 63 65 ┆, move to end of next line. Acce┆ 0x0a80…0aa0 70 74 73 20 61 20 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 20 66 6f 72 20 74 68 65 20 6e 75 ┆pts a prefix argument for the nu┆ 0x0aa0…0ac0 6d 62 65 72 20 6f 66 20 6c 69 6e 65 73 20 74 6f 20 6d 6f 76 65 2e 22 20 28 69 6e 74 65 72 61 63 ┆mber of lines to move." (interac┆ 0x0ac0…0ae0 74 69 76 65 20 22 70 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 c2 20 88 c3 08 21 87 22 ┆tive "p") (byte-code " ! "┆ 0x0ae0…0b00 20 5b 6e 75 6d 20 6e 69 6c 20 66 6f 72 77 61 72 64 2d 63 68 61 72 20 65 6e 64 2d 6f 66 2d 6c 69 ┆ [num nil forward-char end-of-li┆ 0x0b00…0b20 6e 65 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 70 72 65 76 69 6f 75 73 2d 65 6e 64 2d 6f 66 2d ┆ne] 3)) (defun previous-end-of-┆ 0x0b20…0b40 6c 69 6e 65 20 28 6e 75 6d 29 20 22 5c 0a 4d 6f 76 65 20 45 4f 4c 20 75 70 77 61 72 64 2e 0a 41 ┆line (num) "\ Move EOL upward. A┆ 0x0b40…0b60 63 63 65 70 74 73 20 61 20 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 20 66 6f 72 20 74 68 65 ┆ccepts a prefix argument for the┆ 0x0b60…0b80 20 6e 75 6d 62 65 72 20 6f 66 20 6c 69 6e 65 73 20 74 6f 20 6d 6f 76 65 2e 22 20 28 69 6e 74 65 ┆ number of lines to move." (inte┆ 0x0b80…0ba0 72 61 63 74 69 76 65 20 22 70 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 c2 c3 08 5a 21 ┆ractive "p") (byte-code " Z!┆ 0x0ba0…0bc0 87 22 20 5b 6e 75 6d 20 6e 69 6c 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 31 5d 20 33 29 29 0a 0a ┆ " [num nil end-of-line 1] 3)) ┆ 0x0bc0…0be0 28 64 65 66 75 6e 20 66 6f 72 77 61 72 64 2d 74 6f 2d 77 6f 72 64 20 28 6e 75 6d 29 20 22 5c 0a ┆(defun forward-to-word (num) "\ ┆ 0x0be0…0c00 4d 6f 76 65 20 74 6f 20 6e 65 78 74 20 77 6f 72 64 2d 62 65 67 69 6e 6e 69 6e 67 2c 20 6f 72 20 ┆Move to next word-beginning, or ┆ 0x0c00…0c20 74 6f 20 4e 74 68 20 66 6f 6c 6c 6f 77 69 6e 67 20 77 6f 72 64 2d 62 65 67 69 6e 6e 69 6e 67 2e ┆to Nth following word-beginning.┆ 0x0c20…0c40 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 70 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 ┆" (interactive "p") (byte-code "┆ 0x0c40…0c60 c1 88 c2 08 54 21 88 c2 c3 21 87 22 20 5b 6e 75 6d 20 6e 69 6c 20 66 6f 72 77 61 72 64 2d 77 6f ┆ T! ! " [num nil forward-wo┆ 0x0c60…0c80 72 64 20 2d 31 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 62 61 63 6b 77 61 72 64 2d 74 6f 2d 77 ┆rd -1] 3)) (defun backward-to-w┆ 0x0c80…0ca0 6f 72 64 20 28 6e 75 6d 29 20 22 5c 0a 4d 6f 76 65 20 62 61 63 6b 20 74 6f 20 77 6f 72 64 2d 65 ┆ord (num) "\ Move back to word-e┆ 0x0ca0…0cc0 6e 64 2c 20 6f 72 20 74 6f 20 4e 74 68 20 77 6f 72 64 2d 65 6e 64 20 73 65 65 6e 2e 22 20 28 69 ┆nd, or to Nth word-end seen." (i┆ 0x0cc0…0ce0 6e 74 65 72 61 63 74 69 76 65 20 22 70 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 c2 08 ┆nteractive "p") (byte-code " ┆ 0x0ce0…0d00 54 5b 21 88 c2 c3 21 87 22 20 5b 6e 75 6d 20 6e 69 6c 20 66 6f 72 77 61 72 64 2d 77 6f 72 64 20 ┆T[! ! " [num nil forward-word ┆ 0x0d00…0d20 31 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 62 61 63 6b 77 61 72 64 2d 6c 69 6e 65 20 28 6e 75 ┆1] 3)) (defun backward-line (nu┆ 0x0d20…0d40 6d 29 20 22 5c 0a 4d 6f 76 65 20 70 6f 69 6e 74 20 74 6f 20 73 74 61 72 74 20 6f 66 20 70 72 65 ┆m) "\ Move point to start of pre┆ 0x0d40…0d60 76 69 6f 75 73 20 6c 69 6e 65 2e 0a 50 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 20 73 65 72 76 ┆vious line. Prefix argument serv┆ 0x0d60…0d80 65 73 20 61 73 20 72 65 70 65 61 74 2d 63 6f 75 6e 74 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 ┆es as repeat-count." (interactiv┆ 0x0d80…0da0 65 20 22 70 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 c2 08 5b 21 87 22 20 5b 6e 75 6d ┆e "p") (byte-code " [! " [num┆ 0x0da0…0dc0 20 6e 69 6c 20 66 6f 72 77 61 72 64 2d 6c 69 6e 65 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 73 ┆ nil forward-line] 2)) (defun s┆ 0x0dc0…0de0 63 72 6f 6c 6c 2d 77 69 6e 64 6f 77 2d 64 6f 77 6e 20 28 6e 75 6d 29 20 22 5c 0a 53 63 72 6f 6c ┆croll-window-down (num) "\ Scrol┆ 0x0de0…0e00 6c 20 74 68 65 20 64 69 73 70 6c 61 79 20 64 6f 77 6e 20 61 20 77 69 6e 64 6f 77 2d 66 75 6c 6c ┆l the display down a window-full┆ 0x0e00…0e20 2e 0a 41 63 63 65 70 74 73 20 61 20 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 20 66 6f 72 20 ┆. Accepts a prefix argument for ┆ 0x0e20…0e40 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 77 69 6e 64 6f 77 2d 66 75 6c 6c 73 20 74 6f 20 73 63 ┆the number of window-fulls to sc┆ 0x0e40…0e60 72 6f 6c 6c 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 70 22 29 20 28 62 79 74 65 2d 63 ┆roll." (interactive "p") (byte-c┆ 0x0e60…0e80 6f 64 65 20 22 c1 88 c2 c3 c4 20 08 5c 22 c5 5a 21 87 22 20 5b 6e 75 6d 20 6e 69 6c 20 73 63 72 ┆ode " \" Z! " [num nil scr┆ 0x0e80…0ea0 6f 6c 6c 2d 64 6f 77 6e 20 2a 20 77 69 6e 64 6f 77 2d 68 65 69 67 68 74 20 32 5d 20 35 29 29 0a ┆oll-down * window-height 2] 5)) ┆ 0x0ea0…0ec0 0a 28 64 65 66 75 6e 20 73 63 72 6f 6c 6c 2d 77 69 6e 64 6f 77 2d 75 70 20 28 6e 75 6d 29 20 22 ┆ (defun scroll-window-up (num) "┆ 0x0ec0…0ee0 5c 0a 53 63 72 6f 6c 6c 20 74 68 65 20 64 69 73 70 6c 61 79 20 75 70 20 61 20 77 69 6e 64 6f 77 ┆\ Scroll the display up a window┆ 0x0ee0…0f00 2d 66 75 6c 6c 2e 0a 41 63 63 65 70 74 73 20 61 20 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 ┆-full. Accepts a prefix argument┆ 0x0f00…0f20 20 66 6f 72 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 77 69 6e 64 6f 77 2d 66 75 6c 6c 73 20 ┆ for the number of window-fulls ┆ 0x0f20…0f40 74 6f 20 73 63 72 6f 6c 6c 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 70 22 29 20 28 62 ┆to scroll." (interactive "p") (b┆ 0x0f40…0f60 79 74 65 2d 63 6f 64 65 20 22 c1 88 c2 c3 c4 20 08 5c 22 c5 5a 21 87 22 20 5b 6e 75 6d 20 6e 69 ┆yte-code " \" Z! " [num ni┆ 0x0f60…0f80 6c 20 73 63 72 6f 6c 6c 2d 75 70 20 2a 20 77 69 6e 64 6f 77 2d 68 65 69 67 68 74 20 32 5d 20 35 ┆l scroll-up * window-height 2] 5┆ 0x0f80…0fa0 29 29 0a 0a 28 64 65 66 75 6e 20 6e 65 78 74 2d 70 61 72 61 67 72 61 70 68 20 28 6e 75 6d 29 20 ┆)) (defun next-paragraph (num) ┆ 0x0fa0…0fc0 22 5c 0a 4d 6f 76 65 20 74 6f 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 74 68 65 20 6e 65 78 74 ┆"\ Move to beginning of the next┆ 0x0fc0…0fe0 20 69 6e 64 65 6e 74 65 64 20 70 61 72 61 67 72 61 70 68 2e 0a 41 63 63 65 70 74 73 20 61 20 70 ┆ indented paragraph. Accepts a p┆ 0x0fe0…1000 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 20 66 6f 72 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 ┆refix argument for the number of┆ 0x1000…1020 20 70 61 72 61 67 72 61 70 68 73 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 70 22 29 20 ┆ paragraphs." (interactive "p") ┆ 0x1020…1040 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 08 c2 56 85 23 00 c3 c4 21 88 c5 20 88 c6 c4 21 88 6c ┆(byte-code " V # ! ! l┆ 0x1040…1060 85 1a 00 c3 c4 21 88 08 53 89 10 88 82 02 00 87 22 20 5b 6e 75 6d 20 6e 69 6c 20 30 20 6e 65 78 ┆ ! S " [num nil 0 nex┆ 0x1060…1080 74 2d 6c 69 6e 65 20 31 20 66 6f 72 77 61 72 64 2d 70 61 72 61 67 72 61 70 68 20 70 72 65 76 69 ┆t-line 1 forward-paragraph previ┆ 0x1080…10a0 6f 75 73 2d 6c 69 6e 65 5d 20 37 29 29 0a 0a 28 64 65 66 75 6e 20 70 72 65 76 69 6f 75 73 2d 70 ┆ous-line] 7)) (defun previous-p┆ 0x10a0…10c0 61 72 61 67 72 61 70 68 20 28 6e 75 6d 29 20 22 5c 0a 4d 6f 76 65 20 74 6f 20 62 65 67 69 6e 6e ┆aragraph (num) "\ Move to beginn┆ 0x10c0…10e0 69 6e 67 20 6f 66 20 70 72 65 76 69 6f 75 73 20 69 6e 64 65 6e 74 65 64 20 70 61 72 61 67 72 61 ┆ing of previous indented paragra┆ 0x10e0…1100 70 68 2e 0a 41 63 63 65 70 74 73 20 61 20 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 20 66 6f ┆ph. Accepts a prefix argument fo┆ 0x1100…1120 72 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 70 61 72 61 67 72 61 70 68 73 2e 22 20 28 69 6e ┆r the number of paragraphs." (in┆ 0x1120…1140 74 65 72 61 63 74 69 76 65 20 22 70 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 08 c2 56 ┆teractive "p") (byte-code " V┆ 0x1140…1160 85 1f 00 c3 20 88 c4 c5 21 88 6c 85 16 00 c6 c5 21 88 08 53 89 10 88 82 02 00 87 22 20 5b 6e 75 ┆ ! l ! S " [nu┆ 0x1160…1180 6d 20 6e 69 6c 20 30 20 62 61 63 6b 77 61 72 64 2d 70 61 72 61 67 72 61 70 68 20 70 72 65 76 69 ┆m nil 0 backward-paragraph previ┆ 0x1180…11a0 6f 75 73 2d 6c 69 6e 65 20 31 20 6e 65 78 74 2d 6c 69 6e 65 5d 20 36 29 29 0a 0a 28 64 65 66 75 ┆ous-line 1 next-line] 6)) (defu┆ 0x11a0…11c0 6e 20 6d 6f 76 65 2d 74 6f 2d 62 65 67 69 6e 6e 69 6e 67 20 6e 69 6c 20 22 5c 0a 4d 6f 76 65 20 ┆n move-to-beginning nil "\ Move ┆ 0x11c0…11e0 63 75 72 73 6f 72 20 74 6f 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 62 75 66 66 65 ┆cursor to the beginning of buffe┆ 0x11e0…1200 72 2c 20 62 75 74 20 64 6f 6e 27 74 20 73 65 74 20 74 68 65 20 6d 61 72 6b 2e 22 20 28 69 6e 74 ┆r, but don't set the mark." (int┆ 0x1200…1220 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 65 62 87 22 20 5b 6e 69 ┆eractive) (byte-code " eb " [ni┆ 0x1220…1240 6c 5d 20 31 29 29 0a 0a 28 64 65 66 75 6e 20 6d 6f 76 65 2d 74 6f 2d 65 6e 64 20 6e 69 6c 20 22 ┆l] 1)) (defun move-to-end nil "┆ 0x1240…1260 5c 0a 4d 6f 76 65 20 63 75 72 73 6f 72 20 74 6f 20 74 68 65 20 65 6e 64 20 6f 66 20 62 75 66 66 ┆\ Move cursor to the end of buff┆ 0x1260…1280 65 72 2c 20 62 75 74 20 64 6f 6e 27 74 20 73 65 74 20 74 68 65 20 6d 61 72 6b 2e 22 20 28 69 6e ┆er, but don't set the mark." (in┆ 0x1280…12a0 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 64 62 87 22 20 5b 6e ┆teractive) (byte-code " db " [n┆ 0x12a0…12c0 69 6c 5d 20 31 29 29 0a 0a 28 64 65 66 75 6e 20 67 6f 74 6f 2d 70 65 72 63 65 6e 74 20 28 70 65 ┆il] 1)) (defun goto-percent (pe┆ 0x12c0…12e0 72 63 29 20 22 5c 0a 4d 6f 76 65 20 70 6f 69 6e 74 20 74 6f 20 41 52 47 20 70 65 72 63 65 6e 74 ┆rc) "\ Move point to ARG percent┆ 0x12e0…1300 61 67 65 20 6f 66 20 74 68 65 20 62 75 66 66 65 72 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 ┆age of the buffer." (interactive┆ 0x1300…1320 20 22 4e 47 6f 74 6f 2d 70 65 72 63 65 6e 74 61 67 65 3a 20 22 29 20 28 62 79 74 65 2d 63 6f 64 ┆ "NGoto-percentage: ") (byte-cod┆ 0x1320…1340 65 20 22 c1 88 08 c2 56 86 0b 00 08 c3 57 83 15 00 c4 c5 08 5c 22 82 1d 00 c6 c7 64 08 5c 22 c2 ┆e " V W \" d \" ┆ 0x1340…1360 5c 22 62 87 22 20 5b 70 65 72 63 20 6e 69 6c 20 31 30 30 20 30 20 65 72 72 6f 72 20 22 50 65 72 ┆\"b " [perc nil 100 0 error "Per┆ 0x1360…1380 63 65 6e 74 61 67 65 20 25 64 20 6f 75 74 20 6f 66 20 72 61 6e 67 65 20 30 20 3c 20 70 65 72 63 ┆centage %d out of range 0 < perc┆ 0x1380…13a0 65 6e 74 20 3c 20 31 30 30 22 20 2f 20 2a 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 75 70 64 61 ┆ent < 100" / *] 5)) (defun upda┆ 0x13a0…13c0 74 65 2d 6d 6f 64 65 2d 6c 69 6e 65 20 6e 69 6c 20 22 5c 0a 4d 61 6b 65 20 73 75 72 65 20 6d 6f ┆te-mode-line nil "\ Make sure mo┆ 0x13c0…13e0 64 65 2d 6c 69 6e 65 20 69 6e 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 20 72 65 ┆de-line in the current buffer re┆ 0x13e0…1400 66 6c 65 63 74 73 20 61 6c 6c 20 63 68 61 6e 67 65 73 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 ┆flects all changes." (byte-code ┆ 0x1400…1420 22 c0 c1 20 21 88 c2 c3 21 87 22 20 5b 73 65 74 2d 62 75 66 66 65 72 2d 6d 6f 64 69 66 69 65 64 ┆" ! ! " [set-buffer-modified┆ 0x1420…1440 2d 70 20 62 75 66 66 65 72 2d 6d 6f 64 69 66 69 65 64 2d 70 20 73 69 74 2d 66 6f 72 20 30 5d 20 ┆-p buffer-modified-p sit-for 0] ┆ 0x1440…1460 34 29 29 0a 0a 28 64 65 66 75 6e 20 61 64 76 61 6e 63 65 2d 64 69 72 65 63 74 69 6f 6e 20 6e 69 ┆4)) (defun advance-direction ni┆ 0x1460…1480 6c 20 22 5c 0a 53 65 74 20 45 44 54 20 41 64 76 61 6e 63 65 20 6d 6f 64 65 20 73 6f 20 6b 65 79 ┆l "\ Set EDT Advance mode so key┆ 0x1480…14a0 70 61 64 20 63 6f 6d 6d 61 6e 64 73 20 6d 6f 76 65 20 66 6f 72 77 61 72 64 2e 22 20 28 69 6e 74 ┆pad commands move forward." (int┆ 0x14a0…14c0 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 88 c3 89 10 88 c4 09 c5 c6 ┆eractive) (byte-code " ┆ 0x14c0…14e0 23 88 c4 09 c7 c8 23 88 c4 09 c9 ca 23 88 c4 09 cb cc 23 88 c4 09 cd ce 23 88 c4 09 cf d0 23 88 ┆# # # # # # ┆ 0x14e0…1500 c4 09 d1 d2 23 88 d3 20 87 22 20 5b 65 64 74 2d 64 69 72 65 63 74 69 6f 6e 2d 73 74 72 69 6e 67 ┆ # " [edt-direction-string┆ 0x1500…1520 20 66 75 6e 63 74 69 6f 6e 2d 6b 65 79 6d 61 70 20 6e 69 6c 20 22 20 41 44 56 41 4e 43 45 22 20 ┆ function-keymap nil " ADVANCE" ┆ 0x1520…1540 64 65 66 69 6e 65 2d 6b 65 79 20 22 03 22 20 69 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 ┆define-key " " isearch-forward "┆ 0x1540…1560 38 22 20 73 63 72 6f 6c 6c 2d 77 69 6e 64 6f 77 2d 75 70 20 22 37 22 20 6e 65 78 74 2d 70 61 72 ┆8" scroll-window-up "7" next-par┆ 0x1560…1580 61 67 72 61 70 68 20 22 31 22 20 66 6f 72 77 61 72 64 2d 74 6f 2d 77 6f 72 64 20 22 32 22 20 6e ┆agraph "1" forward-to-word "2" n┆ 0x1580…15a0 65 78 74 2d 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 22 33 22 20 66 6f 72 77 61 72 64 2d 63 68 61 72 ┆ext-end-of-line "3" forward-char┆ 0x15a0…15c0 20 22 30 22 20 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 75 70 64 61 74 65 2d 6d 6f 64 65 2d 6c 69 ┆ "0" forward-line update-mode-li┆ 0x15c0…15e0 6e 65 5d 20 31 30 29 29 0a 0a 28 64 65 66 75 6e 20 62 61 63 6b 75 70 2d 64 69 72 65 63 74 69 6f ┆ne] 10)) (defun backup-directio┆ 0x15e0…1600 6e 20 6e 69 6c 20 22 5c 0a 53 65 74 20 45 44 54 20 42 61 63 6b 75 70 20 6d 6f 64 65 20 73 6f 20 ┆n nil "\ Set EDT Backup mode so ┆ 0x1600…1620 6b 65 79 70 61 64 20 63 6f 6d 6d 61 6e 64 73 20 6d 6f 76 65 20 62 61 63 6b 77 61 72 64 2e 22 20 ┆keypad commands move backward." ┆ 0x1620…1640 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 c3 89 10 88 ┆(interactive) (byte-code " ┆ 0x1640…1660 c4 09 c5 c6 23 88 c4 09 c7 c8 23 88 c4 09 c9 ca 23 88 c4 09 cb cc 23 88 c4 09 cd ce 23 88 c4 09 ┆ # # # # # ┆ 0x1660…1680 cf d0 23 88 c4 09 d1 d2 23 88 d3 20 87 22 20 5b 65 64 74 2d 64 69 72 65 63 74 69 6f 6e 2d 73 74 ┆ # # " [edt-direction-st┆ 0x1680…16a0 72 69 6e 67 20 66 75 6e 63 74 69 6f 6e 2d 6b 65 79 6d 61 70 20 6e 69 6c 20 22 20 42 41 43 4b 55 ┆ring function-keymap nil " BACKU┆ 0x16a0…16c0 50 22 20 64 65 66 69 6e 65 2d 6b 65 79 20 22 03 22 20 69 73 65 61 72 63 68 2d 62 61 63 6b 77 61 ┆P" define-key " " isearch-backwa┆ 0x16c0…16e0 72 64 20 22 38 22 20 73 63 72 6f 6c 6c 2d 77 69 6e 64 6f 77 2d 64 6f 77 6e 20 22 37 22 20 70 72 ┆rd "8" scroll-window-down "7" pr┆ 0x16e0…1700 65 76 69 6f 75 73 2d 70 61 72 61 67 72 61 70 68 20 22 31 22 20 62 61 63 6b 77 61 72 64 2d 74 6f ┆evious-paragraph "1" backward-to┆ 0x1700…1720 2d 77 6f 72 64 20 22 32 22 20 70 72 65 76 69 6f 75 73 2d 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 22 ┆-word "2" previous-end-of-line "┆ 0x1720…1740 33 22 20 62 61 63 6b 77 61 72 64 2d 63 68 61 72 20 22 30 22 20 62 61 63 6b 77 61 72 64 2d 6c 69 ┆3" backward-char "0" backward-li┆ 0x1740…1760 6e 65 20 75 70 64 61 74 65 2d 6d 6f 64 65 2d 6c 69 6e 65 5d 20 31 30 29 29 0a 0a 28 64 65 66 75 ┆ne update-mode-line] 10)) (defu┆ 0x1760…1780 6e 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 77 69 6e 64 6f 77 20 6e 69 6c 20 22 5c 0a 48 6f 6d ┆n beginning-of-window nil "\ Hom┆ 0x1780…17a0 65 20 63 75 72 73 6f 72 20 74 6f 20 74 6f 70 20 6f 66 20 77 69 6e 64 6f 77 2e 22 20 28 69 6e 74 ┆e cursor to top of window." (int┆ 0x17a0…17c0 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 c2 21 87 22 20 5b 6e ┆eractive) (byte-code " ! " [n┆ 0x17c0…17e0 69 6c 20 6d 6f 76 65 2d 74 6f 2d 77 69 6e 64 6f 77 2d 6c 69 6e 65 20 30 5d 20 32 29 29 0a 0a 28 ┆il move-to-window-line 0] 2)) (┆ 0x17e0…1800 64 65 66 75 6e 20 6c 69 6e 65 2d 74 6f 2d 62 6f 74 74 6f 6d 2d 6f 66 2d 77 69 6e 64 6f 77 20 6e ┆defun line-to-bottom-of-window n┆ 0x1800…1820 69 6c 20 22 5c 0a 4d 6f 76 65 20 74 68 65 20 63 75 72 72 65 6e 74 20 6c 69 6e 65 20 74 6f 20 74 ┆il "\ Move the current line to t┆ 0x1820…1840 68 65 20 74 6f 70 20 6f 66 20 74 68 65 20 77 69 6e 64 6f 77 2e 22 20 28 69 6e 74 65 72 61 63 74 ┆he top of the window." (interact┆ 0x1840…1860 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 c2 21 87 22 20 5b 6e 69 6c 20 72 65 ┆ive) (byte-code " ! " [nil re┆ 0x1860…1880 63 65 6e 74 65 72 20 2d 31 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 6c 69 6e 65 2d 74 6f 2d 74 ┆center -1] 2)) (defun line-to-t┆ 0x1880…18a0 6f 70 2d 6f 66 2d 77 69 6e 64 6f 77 20 6e 69 6c 20 22 5c 0a 4d 6f 76 65 20 74 68 65 20 63 75 72 ┆op-of-window nil "\ Move the cur┆ 0x18a0…18c0 72 65 6e 74 20 6c 69 6e 65 20 74 6f 20 74 68 65 20 74 6f 70 20 6f 66 20 74 68 65 20 77 69 6e 64 ┆rent line to the top of the wind┆ 0x18c0…18e0 6f 77 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 c0 ┆ow." (interactive) (byte-code " ┆ 0x18e0…1900 88 c1 c2 21 87 22 20 5b 6e 69 6c 20 72 65 63 65 6e 74 65 72 20 30 5d 20 32 29 29 0a 0a 28 64 65 ┆ ! " [nil recenter 0] 2)) (de┆ 0x1900…1920 66 75 6e 20 63 61 73 65 2d 66 6c 69 70 2d 63 68 61 72 61 63 74 65 72 20 28 6e 75 6d 29 20 22 5c ┆fun case-flip-character (num) "\┆ […truncated at 200 lines…]