|
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: ┃ m ┃
Length: 10191 (0x27cf)
Names: »mlsupport.elc«
└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
└─ ⟦this⟧ »EUUGD11/gnu-31mar87/emacs/lisp/mlsupport.elc«
0x0000…0020 0a 28 70 72 6f 76 69 64 65 20 28 71 75 6f 74 65 20 6d 6c 73 75 70 70 6f 72 74 29 29 0a 0a 28 64 ┆ (provide (quote mlsupport)) (d┆ 0x0020…0040 65 66 6d 61 63 72 6f 20 6d 6c 2d 64 65 66 75 6e 20 28 26 72 65 73 74 20 64 65 66 73 29 20 28 62 ┆efmacro ml-defun (&rest defs) (b┆ 0x0040…0060 79 74 65 2d 63 6f 64 65 20 22 c1 c2 08 44 44 87 22 20 5b 64 65 66 73 20 6d 6c 2d 64 65 66 75 6e ┆yte-code " DD " [defs ml-defun┆ 0x0060…0080 2d 31 20 71 75 6f 74 65 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 6d 6c 2d 64 65 66 75 6e 2d 31 ┆-1 quote] 3)) (defun ml-defun-1┆ 0x0080…00a0 20 28 61 72 67 73 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 85 16 00 08 40 40 c1 08 40 41 42 ┆ (args) (byte-code " @@ @AB┆ 0x00a0…00c0 4d 88 08 41 89 10 88 82 00 00 87 22 20 5b 61 72 67 73 20 6d 6f 63 6b 6c 69 73 70 5d 20 34 29 29 ┆M A " [args mocklisp] 4))┆ 0x00c0…00e0 0a 0a 28 64 65 66 6d 61 63 72 6f 20 64 65 63 6c 61 72 65 2d 62 75 66 66 65 72 2d 73 70 65 63 69 ┆ (defmacro declare-buffer-speci┆ 0x00e0…0100 66 69 63 20 28 26 72 65 73 74 20 76 61 72 73 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 c3 c4 ┆fic (&rest vars) (byte-code " ┆ 0x0100…0120 09 5c 22 42 87 22 20 5b 76 61 72 20 76 61 72 73 20 70 72 6f 67 6e 20 6d 61 70 63 61 72 20 28 6c ┆ \"B " [var vars progn mapcar (l┆ 0x0120…0140 61 6d 62 64 61 20 28 76 61 72 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 c2 08 44 44 87 22 20 ┆ambda (var) (byte-code " DD " ┆ 0x0140…0160 5b 76 61 72 20 6d 61 6b 65 2d 76 61 72 69 61 62 6c 65 2d 62 75 66 66 65 72 2d 6c 6f 63 61 6c 20 ┆[var make-variable-buffer-local ┆ 0x0160…0180 71 75 6f 74 65 5d 20 33 29 29 5d 20 34 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 73 65 74 71 2d ┆quote] 3))] 4)) (defmacro setq-┆ 0x0180…01a0 64 65 66 61 75 6c 74 20 28 76 61 72 20 76 61 6c 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 c3 ┆default (var val) (byte-code " ┆ 0x01a0…01c0 08 44 09 45 87 22 20 5b 76 61 72 20 76 61 6c 20 73 65 74 2d 64 65 66 61 75 6c 74 20 71 75 6f 74 ┆ D E " [var val set-default quot┆ 0x01c0…01e0 65 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 6d 6c 2d 73 65 74 2d 64 65 66 61 75 6c 74 20 28 76 ┆e] 3)) (defun ml-set-default (v┆ 0x01e0…0200 61 72 6e 61 6d 65 20 76 61 6c 75 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 c3 08 21 09 5c ┆arname value) (byte-code " ! \┆ 0x0200…0220 22 87 22 20 5b 76 61 72 6e 61 6d 65 20 76 61 6c 75 65 20 73 65 74 2d 64 65 66 61 75 6c 74 20 69 ┆" " [varname value set-default i┆ 0x0220…0240 6e 74 65 72 6e 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 3e 3e 20 28 76 61 6c 20 63 6f 75 6e 74 ┆ntern] 4)) (defun >> (val count┆ 0x0240…0260 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 08 09 5b 5c 22 87 22 20 5b 76 61 6c 20 63 6f 75 6e ┆) (byte-code " [\" " [val coun┆ 0x0260…0280 74 20 6c 73 68 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 6e 6f 76 61 6c 75 65 20 6e 69 6c 20 28 ┆t lsh] 3)) (defun novalue nil (┆ 0x0280…02a0 62 79 74 65 2d 63 6f 64 65 20 22 c0 87 22 20 5b 6e 69 6c 5d 20 31 29 29 0a 0a 28 64 65 66 75 6e ┆byte-code " " [nil] 1)) (defun┆ 0x02a0…02c0 20 6d 6c 2d 6e 6f 74 20 28 61 72 67 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 08 21 83 0a 00 ┆ ml-not (arg) (byte-code " ! ┆ 0x02c0…02e0 c2 82 0b 00 c3 87 22 20 5b 61 72 67 20 7a 65 72 6f 70 20 31 20 30 5d 20 32 29 29 0a 0a 28 64 65 ┆ " [arg zerop 1 0] 2)) (de┆ 0x02e0…0300 66 75 6e 20 70 72 6f 76 69 64 65 2d 70 72 65 66 69 78 2d 61 72 67 20 28 61 72 67 20 66 6f 72 6d ┆fun provide-prefix-arg (arg form┆ 0x0300…0320 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 08 40 09 5c 22 87 22 20 5b 66 6f 72 6d 20 61 72 67 ┆) (byte-code " @ \" " [form arg┆ 0x0320…0340 20 66 75 6e 63 61 6c 6c 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 64 65 66 69 6e 65 2d 6b 65 79 ┆ funcall] 3)) (defun define-key┆ 0x0340…0360 6d 61 70 20 28 6e 61 6d 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 08 21 c2 20 4d 87 22 20 ┆map (name) (byte-code " ! M " ┆ 0x0360…0380 5b 6e 61 6d 65 20 69 6e 74 65 72 6e 20 6d 61 6b 65 2d 6b 65 79 6d 61 70 5d 20 34 29 29 0a 0a 28 ┆[name intern make-keymap] 4)) (┆ 0x0380…03a0 64 65 66 75 6e 20 6d 6c 2d 75 73 65 2d 6c 6f 63 61 6c 2d 6d 61 70 20 28 6e 61 6d 65 29 20 28 62 ┆defun ml-use-local-map (name) (b┆ 0x03a0…03c0 79 74 65 2d 63 6f 64 65 20 22 c1 c2 08 c3 50 21 21 87 22 20 5b 6e 61 6d 65 20 75 73 65 2d 6c 6f ┆yte-code " P!! " [name use-lo┆ 0x03c0…03e0 63 61 6c 2d 6d 61 70 20 69 6e 74 65 72 6e 20 22 2d 6d 61 70 22 5d 20 34 29 29 0a 0a 28 64 65 66 ┆cal-map intern "-map"] 4)) (def┆ 0x03e0…0400 75 6e 20 6d 6c 2d 75 73 65 2d 67 6c 6f 62 61 6c 2d 6d 61 70 20 28 6e 61 6d 65 29 20 28 62 79 74 ┆un ml-use-global-map (name) (byt┆ 0x0400…0420 65 2d 63 6f 64 65 20 22 c1 c2 08 c3 50 21 21 87 22 20 5b 6e 61 6d 65 20 75 73 65 2d 67 6c 6f 62 ┆e-code " P!! " [name use-glob┆ 0x0420…0440 61 6c 2d 6d 61 70 20 69 6e 74 65 72 6e 20 22 2d 6d 61 70 22 5d 20 34 29 29 0a 0a 28 64 65 66 75 ┆al-map intern "-map"] 4)) (defu┆ 0x0440…0460 6e 20 6c 6f 63 61 6c 2d 62 69 6e 64 2d 74 6f 2d 6b 65 79 20 28 6e 61 6d 65 20 6b 65 79 29 20 28 ┆n local-bind-to-key (name key) (┆ 0x0460…0480 62 79 74 65 2d 63 6f 64 65 20 22 c3 20 86 09 00 c4 c5 20 21 88 c6 c3 20 c7 08 21 83 2b 00 08 c8 ┆byte-code " ! ! + ┆ 0x0480…04a0 59 83 25 00 c9 09 21 c9 08 c8 5a 21 50 82 28 00 c9 08 21 82 2c 00 08 ca 0a 21 23 87 22 20 5b 6b ┆Y % ! Z!P ( ! , !# " [k┆ 0x04a0…04c0 65 79 20 6d 65 74 61 2d 70 72 65 66 69 78 2d 63 68 61 72 20 6e 61 6d 65 20 63 75 72 72 65 6e 74 ┆ey meta-prefix-char name current┆ 0x04c0…04e0 2d 6c 6f 63 61 6c 2d 6d 61 70 20 75 73 65 2d 6c 6f 63 61 6c 2d 6d 61 70 20 6d 61 6b 65 2d 6b 65 ┆-local-map use-local-map make-ke┆ 0x04e0…0500 79 6d 61 70 20 64 65 66 69 6e 65 2d 6b 65 79 20 69 6e 74 65 67 65 72 70 20 31 32 38 20 63 68 61 ┆ymap define-key integerp 128 cha┆ 0x0500…0520 72 2d 74 6f 2d 73 74 72 69 6e 67 20 69 6e 74 65 72 6e 5d 20 31 33 29 29 0a 0a 28 64 65 66 75 6e ┆r-to-string intern] 13)) (defun┆ 0x0520…0540 20 62 69 6e 64 2d 74 6f 2d 6b 65 79 20 28 6e 61 6d 65 20 6b 65 79 29 20 28 62 79 74 65 2d 63 6f ┆ bind-to-key (name key) (byte-co┆ 0x0540…0560 64 65 20 22 c3 08 c4 09 21 83 0e 00 c5 09 21 82 0f 00 09 c6 0a 21 23 87 22 20 5b 67 6c 6f 62 61 ┆de " ! ! !# " [globa┆ 0x0560…0580 6c 2d 6d 61 70 20 6b 65 79 20 6e 61 6d 65 20 64 65 66 69 6e 65 2d 6b 65 79 20 69 6e 74 65 67 65 ┆l-map key name define-key intege┆ 0x0580…05a0 72 70 20 63 68 61 72 2d 74 6f 2d 73 74 72 69 6e 67 20 69 6e 74 65 72 6e 5d 20 37 29 29 0a 0a 28 ┆rp char-to-string intern] 7)) (┆ 0x05a0…05c0 64 65 66 75 6e 20 6d 6c 2d 61 75 74 6f 6c 6f 61 64 20 28 6e 61 6d 65 20 66 69 6c 65 29 20 28 62 ┆defun ml-autoload (name file) (b┆ 0x05c0…05e0 79 74 65 2d 63 6f 64 65 20 22 c2 c3 08 21 09 5c 22 87 22 20 5b 6e 61 6d 65 20 66 69 6c 65 20 61 ┆yte-code " ! \" " [name file a┆ 0x05e0…0600 75 74 6f 6c 6f 61 64 20 69 6e 74 65 72 6e 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 6d 6c 2d 64 ┆utoload intern] 4)) (defun ml-d┆ 0x0600…0620 65 66 69 6e 65 2d 73 74 72 69 6e 67 2d 6d 61 63 72 6f 20 28 6e 61 6d 65 20 64 65 66 6e 29 20 28 ┆efine-string-macro (name defn) (┆ 0x0620…0640 62 79 74 65 2d 63 6f 64 65 20 22 c2 08 21 09 4d 87 22 20 5b 6e 61 6d 65 20 64 65 66 6e 20 69 6e ┆byte-code " ! M " [name defn in┆ 0x0640…0660 74 65 72 6e 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 70 75 73 68 2d 62 61 63 6b 2d 63 68 61 72 ┆tern] 3)) (defun push-back-char┆ 0x0660…0680 61 63 74 65 72 20 28 63 68 61 72 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 09 89 10 87 22 20 5b ┆acter (char) (byte-code " " [┆ 0x0680…06a0 75 6e 72 65 61 64 2d 63 6f 6d 6d 61 6e 64 2d 63 68 61 72 20 63 68 61 72 5d 20 32 29 29 0a 0a 28 ┆unread-command-char char] 2)) (┆ 0x06a0…06c0 64 65 66 75 6e 20 74 6f 2d 63 6f 6c 20 28 63 6f 6c 75 6d 6e 29 20 28 62 79 74 65 2d 63 6f 64 65 ┆defun to-col (column) (byte-code┆ 0x06c0…06e0 20 22 c1 08 c2 5c 22 87 22 20 5b 63 6f 6c 75 6d 6e 20 69 6e 64 65 6e 74 2d 74 6f 20 30 5d 20 33 ┆ " \" " [column indent-to 0] 3┆ 0x06e0…0700 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 69 73 2d 62 6f 75 6e 64 20 28 26 72 65 73 74 20 73 79 ┆)) (defmacro is-bound (&rest sy┆ 0x0700…0720 6d 73 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 c3 c4 09 5c 22 42 87 22 20 5b 73 79 6d 20 73 ┆ms) (byte-code " \"B " [sym s┆ 0x0720…0740 79 6d 73 20 61 6e 64 20 6d 61 70 63 61 72 20 28 6c 61 6d 62 64 61 20 28 73 79 6d 29 20 28 62 79 ┆yms and mapcar (lambda (sym) (by┆ 0x0740…0760 74 65 2d 63 6f 64 65 20 22 c1 c2 08 44 44 87 22 20 5b 73 79 6d 20 62 6f 75 6e 64 70 20 71 75 6f ┆te-code " DD " [sym boundp quo┆ 0x0760…0780 74 65 5d 20 33 29 29 5d 20 34 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 64 65 63 6c 61 72 65 2d ┆te] 3))] 4)) (defmacro declare-┆ 0x0780…07a0 67 6c 6f 62 61 6c 20 28 26 72 65 73 74 20 73 79 6d 73 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 ┆global (&rest syms) (byte-code "┆ 0x07a0…07c0 c3 c4 c5 0a 5c 22 42 87 22 20 5b 73 79 6d 20 6e 69 6c 20 73 79 6d 73 20 70 72 6f 67 6e 20 6d 61 ┆ \"B " [sym nil syms progn ma┆ 0x07c0…07e0 70 63 61 72 20 28 6c 61 6d 62 64 61 20 28 73 79 6d 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 ┆pcar (lambda (sym) (byte-code " ┆ 0x07e0…0800 08 c1 45 87 22 20 5b 73 79 6d 20 6e 69 6c 20 64 65 66 76 61 72 5d 20 33 29 29 5d 20 34 29 29 0a ┆ E " [sym nil defvar] 3))] 4)) ┆ 0x0800…0820 0a 28 64 65 66 6d 61 63 72 6f 20 65 72 72 6f 72 2d 6f 63 63 75 72 72 65 64 20 28 26 72 65 73 74 ┆ (defmacro error-occurred (&rest┆ 0x0820…0840 20 62 6f 64 79 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 c0 c3 c4 09 c5 5c 22 42 c6 46 87 22 ┆ body) (byte-code " \"B F "┆ 0x0840…0860 20 5b 6e 69 6c 20 62 6f 64 79 20 63 6f 6e 64 69 74 69 6f 6e 2d 63 61 73 65 20 70 72 6f 67 6e 20 ┆ [nil body condition-case progn ┆ 0x0860…0880 61 70 70 65 6e 64 20 28 6e 69 6c 29 20 28 65 72 72 6f 72 20 74 29 5d 20 36 29 29 0a 0a 28 64 65 ┆append (nil) (error t)] 6)) (de┆ 0x0880…08a0 66 75 6e 20 72 65 74 75 72 6e 2d 70 72 65 66 69 78 2d 61 72 67 75 6d 65 6e 74 20 28 76 61 6c 75 ┆fun return-prefix-argument (valu┆ 0x08a0…08c0 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 09 89 10 87 22 20 5b 70 72 65 66 69 78 2d 61 72 67 ┆e) (byte-code " " [prefix-arg┆ 0x08c0…08e0 20 76 61 6c 75 65 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 6d 6c 2d 70 72 65 66 69 78 2d 61 72 ┆ value] 2)) (defun ml-prefix-ar┆ 0x08e0…0900 67 75 6d 65 6e 74 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 3f 83 09 00 c1 82 1e 00 ┆gument nil (byte-code " ? ┆ 0x0900…0920 08 3c 83 13 00 08 40 82 1e 00 08 c2 3d 83 1d 00 c3 82 1e 00 08 87 22 20 5b 63 75 72 72 65 6e 74 ┆ < @ = " [current┆ 0x0920…0940 2d 70 72 65 66 69 78 2d 61 72 67 20 31 20 2d 20 2d 31 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 ┆-prefix-arg 1 - -1] 2)) (defun ┆ 0x0940…0960 6d 6c 2d 70 72 69 6e 74 20 28 76 61 72 6e 61 6d 65 29 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 ┆ml-print (varname) (interactive ┆ 0x0960…0980 22 76 50 72 69 6e 74 20 76 61 72 69 61 62 6c 65 3a 20 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 ┆"vPrint variable: ") (byte-code ┆ 0x0980…09a0 22 c1 88 c2 08 21 83 13 00 c3 c4 c5 08 21 08 4a 23 82 19 00 c3 c6 c5 08 21 5c 22 87 22 20 5b 76 ┆" ! ! J# !\" " [v┆ 0x09a0…09c0 61 72 6e 61 6d 65 20 6e 69 6c 20 62 6f 75 6e 64 70 20 6d 65 73 73 61 67 65 20 22 25 73 20 3d 3e ┆arname nil boundp message "%s =>┆ 0x09c0…09e0 20 25 73 22 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 22 25 73 20 68 61 73 20 6e 6f 20 76 61 6c 75 ┆ %s" symbol-name "%s has no valu┆ 0x09e0…0a00 65 22 5d 20 37 29 29 0a 0a 28 64 65 66 75 6e 20 6d 6c 2d 73 65 74 20 28 73 74 72 20 76 61 6c 29 ┆e"] 7)) (defun ml-set (str val)┆ 0x0a00…0a20 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 08 21 09 4c 87 22 20 5b 73 74 72 20 76 61 6c 20 69 6e ┆ (byte-code " ! L " [str val in┆ 0x0a20…0a40 74 65 72 6e 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 6d 6c 2d 6d 65 73 73 61 67 65 20 28 26 72 ┆tern] 3)) (defun ml-message (&r┆ 0x0a40…0a60 65 73 74 20 61 72 67 73 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 c2 c3 c4 08 5c 22 5c 22 87 ┆est args) (byte-code " \"\" ┆ 0x0a60…0a80 22 20 5b 61 72 67 73 20 6d 65 73 73 61 67 65 20 22 25 73 22 20 61 70 70 6c 79 20 63 6f 6e 63 61 ┆" [args message "%s" apply conca┆ 0x0a80…0aa0 74 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 6b 69 6c 6c 2d 74 6f 2d 65 6e 64 2d 6f 66 2d 6c 69 ┆t] 5)) (defun kill-to-end-of-li┆ 0x0aa0…0ac0 6e 65 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 6c 83 0d 00 c3 60 60 54 5c 22 82 1e ┆ne nil (byte-code " l ``T\" ┆ 0x0ac0…0ae0 00 c3 60 c4 c5 c0 c1 23 83 1c 00 60 53 82 1d 00 64 5c 22 21 87 22 20 5b 6e 69 6c 20 74 20 6d 6c ┆ ` # `S d\"! " [nil t ml┆ 0x0ae0…0b00 2d 70 72 65 66 69 78 2d 61 72 67 75 6d 65 6e 74 2d 6c 6f 6f 70 20 6b 69 6c 6c 2d 72 65 67 69 6f ┆-prefix-argument-loop kill-regio┆ 0x0b00…0b20 6e 20 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 31 30 5d 20 38 29 29 0a 0a 28 64 65 66 75 6e ┆n search-forward 10] 8)) (defun┆ 0x0b20…0b40 20 73 65 74 2d 61 75 74 6f 2d 66 69 6c 6c 2d 68 6f 6f 6b 20 28 61 72 67 29 20 28 62 79 74 65 2d ┆ set-auto-fill-hook (arg) (byte-┆ 0x0b40…0b60 63 6f 64 65 20 22 c2 09 21 89 10 87 22 20 5b 61 75 74 6f 2d 66 69 6c 6c 2d 68 6f 6f 6b 20 61 72 ┆code " ! " [auto-fill-hook ar┆ 0x0b60…0b80 67 20 69 6e 74 65 72 6e 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 61 75 74 6f 2d 65 78 65 63 75 ┆g intern] 3)) (defun auto-execu┆ 0x0b80…0ba0 74 65 20 28 66 75 6e 63 74 69 6f 6e 20 70 61 74 74 65 72 6e 29 20 28 62 79 74 65 2d 63 6f 64 65 ┆te (function pattern) (byte-code┆ 0x0ba0…0bc0 20 22 c3 08 c4 48 c5 5c 22 83 0f 00 c6 c7 21 82 10 00 c8 88 c9 08 ca c8 4f cb 51 0a 42 09 42 89 ┆ " H \" ! O Q B B ┆ 0x0bc0…0be0 11 87 22 20 5b 70 61 74 74 65 72 6e 20 61 75 74 6f 2d 6d 6f 64 65 2d 61 6c 69 73 74 20 66 75 6e ┆ " [pattern auto-mode-alist fun┆ 0x0be0…0c00 63 74 69 6f 6e 20 2f 3d 20 30 20 34 32 20 65 72 72 6f 72 20 22 4f 6e 6c 79 20 70 61 74 74 65 72 ┆ction /= 0 42 error "Only patter┆ 0x0c00…0c20 6e 73 20 73 74 61 72 74 69 6e 67 20 77 69 74 68 20 2a 20 73 75 70 70 6f 72 74 65 64 20 69 6e 20 ┆ns starting with * supported in ┆ 0x0c20…0c40 61 75 74 6f 2d 65 78 65 63 75 74 65 22 20 6e 69 6c 20 22 5c 5c 2e 22 20 31 20 22 24 22 5d 20 36 ┆auto-execute" nil "\\." 1 "$"] 6┆ 0x0c40…0c60 29 29 0a 0a 28 64 65 66 75 6e 20 6d 6f 76 65 2d 74 6f 2d 63 6f 6d 6d 65 6e 74 2d 63 6f 6c 75 6d ┆)) (defun move-to-comment-colum┆ 0x0c60…0c80 6e 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 6a 87 22 20 5b 63 6f 6d 6d 65 6e 74 2d ┆n nil (byte-code " j " [comment-┆ 0x0c80…0ca0 63 6f 6c 75 6d 6e 5d 20 31 29 29 0a 0a 28 64 65 66 75 6e 20 65 72 61 73 65 2d 72 65 67 69 6f 6e ┆column] 1)) (defun erase-region┆ 0x0ca0…0cc0 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 60 c1 20 5c 22 87 22 20 5b 64 65 6c 65 74 ┆ nil (byte-code " ` \" " [delet┆ 0x0cc0…0ce0 65 2d 72 65 67 69 6f 6e 20 6d 61 72 6b 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 64 65 6c 65 74 ┆e-region mark] 4)) (defun delet┆ 0x0ce0…0d00 65 2d 72 65 67 69 6f 6e 2d 74 6f 2d 62 75 66 66 65 72 20 28 62 75 66 6e 61 6d 65 29 20 28 62 79 ┆e-region-to-buffer (bufname) (by┆ 0x0d00…0d20 74 65 2d 63 6f 64 65 20 22 c1 08 60 c2 20 23 88 c3 60 c2 20 5c 22 87 22 20 5b 62 75 66 6e 61 6d ┆te-code " ` # ` \" " [bufnam┆ 0x0d20…0d40 65 20 63 6f 70 79 2d 74 6f 2d 62 75 66 66 65 72 20 6d 61 72 6b 20 64 65 6c 65 74 65 2d 72 65 67 ┆e copy-to-buffer mark delete-reg┆ 0x0d40…0d60 69 6f 6e 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 70 79 2d 72 65 67 69 6f 6e 2d 74 6f 2d ┆ion] 6)) (defun copy-region-to-┆ 0x0d60…0d80 62 75 66 66 65 72 20 28 62 75 66 6e 61 6d 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 08 60 ┆buffer (bufname) (byte-code " `┆ 0x0d80…0da0 c2 20 23 87 22 20 5b 62 75 66 6e 61 6d 65 20 63 6f 70 79 2d 74 6f 2d 62 75 66 66 65 72 20 6d 61 ┆ # " [bufname copy-to-buffer ma┆ 0x0da0…0dc0 72 6b 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 61 70 70 65 6e 64 2d 72 65 67 69 6f 6e 2d 74 6f ┆rk] 5)) (defun append-region-to┆ 0x0dc0…0de0 2d 62 75 66 66 65 72 20 28 62 75 66 6e 61 6d 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 08 ┆-buffer (bufname) (byte-code " ┆ 0x0de0…0e00 60 c2 20 23 87 22 20 5b 62 75 66 6e 61 6d 65 20 61 70 70 65 6e 64 2d 74 6f 2d 62 75 66 66 65 72 ┆` # " [bufname append-to-buffer┆ 0x0e00…0e20 20 6d 61 72 6b 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 70 72 65 70 65 6e 64 2d 72 65 67 69 6f ┆ mark] 5)) (defun prepend-regio┆ 0x0e20…0e40 6e 2d 74 6f 2d 62 75 66 66 65 72 20 28 62 75 66 6e 61 6d 65 29 20 28 62 79 74 65 2d 63 6f 64 65 ┆n-to-buffer (bufname) (byte-code┆ 0x0e40…0e60 20 22 c1 08 60 c2 20 23 87 22 20 5b 62 75 66 6e 61 6d 65 20 70 72 65 70 65 6e 64 2d 74 6f 2d 62 ┆ " ` # " [bufname prepend-to-b┆ 0x0e60…0e80 75 66 66 65 72 20 6d 61 72 6b 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 64 65 6c 65 74 65 2d 6e ┆uffer mark] 5)) (defun delete-n┆ 0x0e80…0ea0 65 78 74 2d 63 68 61 72 61 63 74 65 72 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 c1 ┆ext-character nil (byte-code " ┆ 0x0ea0…0ec0 20 21 87 22 20 5b 64 65 6c 65 74 65 2d 63 68 61 72 20 6d 6c 2d 70 72 65 66 69 78 2d 61 72 67 75 ┆ ! " [delete-char ml-prefix-argu┆ 0x0ec0…0ee0 6d 65 6e 74 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 64 65 6c 65 74 65 2d 6e 65 78 74 2d 77 6f ┆ment] 3)) (defun delete-next-wo┆ 0x0ee0…0f00 72 64 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 60 c1 c2 20 21 88 60 5c 22 87 22 20 ┆rd nil (byte-code " ` ! `\" " ┆ 0x0f00…0f20 5b 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 66 6f 72 77 61 72 64 2d 77 6f 72 64 20 6d 6c 2d 70 ┆[delete-region forward-word ml-p┆ 0x0f20…0f40 72 65 66 69 78 2d 61 72 67 75 6d 65 6e 74 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 64 65 6c 65 ┆refix-argument] 5)) (defun dele┆ 0x0f40…0f60 74 65 2d 70 72 65 76 69 6f 75 73 2d 77 6f 72 64 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 ┆te-previous-word nil (byte-code ┆ 0x0f60…0f80 22 c0 60 c1 c2 20 21 88 60 5c 22 87 22 20 5b 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 62 61 63 ┆" ` ! `\" " [delete-region bac┆ 0x0f80…0fa0 6b 77 61 72 64 2d 77 6f 72 64 20 6d 6c 2d 70 72 65 66 69 78 2d 61 72 67 75 6d 65 6e 74 5d 20 35 ┆kward-word ml-prefix-argument] 5┆ 0x0fa0…0fc0 29 29 0a 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 61 ┆)) (defun delete-previous-chara┆ 0x0fc0…0fe0 63 74 65 72 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 c1 20 21 87 22 20 5b 64 65 6c ┆cter nil (byte-code " ! " [del┆ 0x0fe0…1000 65 74 65 2d 62 61 63 6b 77 61 72 64 2d 63 68 61 72 20 6d 6c 2d 70 72 65 66 69 78 2d 61 72 67 75 ┆ete-backward-char ml-prefix-argu┆ 0x1000…1020 6d 65 6e 74 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 66 6f 72 77 61 72 64 2d 63 68 61 72 61 63 ┆ment] 3)) (defun forward-charac┆ 0x1020…1040 74 65 72 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 c1 20 21 87 22 20 5b 66 6f 72 77 ┆ter nil (byte-code " ! " [forw┆ 0x1040…1060 61 72 64 2d 63 68 61 72 20 6d 6c 2d 70 72 65 66 69 78 2d 61 72 67 75 6d 65 6e 74 5d 20 33 29 29 ┆ard-char ml-prefix-argument] 3))┆ 0x1060…1080 0a 0a 28 64 65 66 75 6e 20 62 61 63 6b 77 61 72 64 2d 63 68 61 72 61 63 74 65 72 20 6e 69 6c 20 ┆ (defun backward-character nil ┆ 0x1080…10a0 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 c1 20 21 87 22 20 5b 62 61 63 6b 77 61 72 64 2d 63 68 61 ┆(byte-code " ! " [backward-cha┆ 0x10a0…10c0 72 20 6d 6c 2d 70 72 65 66 69 78 2d 61 72 67 75 6d 65 6e 74 5d 20 33 29 29 0a 0a 28 64 65 66 75 ┆r ml-prefix-argument] 3)) (defu┆ 0x10c0…10e0 6e 20 6d 6c 2d 6e 65 77 6c 69 6e 65 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 c1 20 ┆n ml-newline nil (byte-code " ┆ 0x10e0…1100 21 87 22 20 5b 6e 65 77 6c 69 6e 65 20 6d 6c 2d 70 72 65 66 69 78 2d 61 72 67 75 6d 65 6e 74 5d ┆! " [newline ml-prefix-argument]┆ 0x1100…1120 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 6d 6c 2d 6e 65 78 74 2d 6c 69 6e 65 20 6e 69 6c 20 28 62 ┆ 3)) (defun ml-next-line nil (b┆ 0x1120…1140 79 74 65 2d 63 6f 64 65 20 22 c0 c1 20 21 87 22 20 5b 6e 65 78 74 2d 6c 69 6e 65 20 6d 6c 2d 70 ┆yte-code " ! " [next-line ml-p┆ 0x1140…1160 72 65 66 69 78 2d 61 72 67 75 6d 65 6e 74 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 6d 6c 2d 70 ┆refix-argument] 3)) (defun ml-p┆ 0x1160…1180 72 65 76 69 6f 75 73 2d 6c 69 6e 65 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 c1 20 ┆revious-line nil (byte-code " ┆ 0x1180…11a0 21 87 22 20 5b 70 72 65 76 69 6f 75 73 2d 6c 69 6e 65 20 6d 6c 2d 70 72 65 66 69 78 2d 61 72 67 ┆! " [previous-line ml-prefix-arg┆ 0x11a0…11c0 75 6d 65 6e 74 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 64 65 6c 65 74 65 2d 74 6f 2d 6b 69 6c ┆ument] 3)) (defun delete-to-kil┆ 0x11c0…11e0 6c 2d 62 75 66 66 65 72 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 60 c1 20 5c 22 87 ┆l-buffer nil (byte-code " ` \" ┆ 0x11e0…1200 22 20 5b 6b 69 6c 6c 2d 72 65 67 69 6f 6e 20 6d 61 72 6b 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e ┆" [kill-region mark] 4)) (defun┆ 0x1200…1220 20 6e 61 72 72 6f 77 2d 72 65 67 69 6f 6e 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 ┆ narrow-region nil (byte-code " ┆ 0x1220…1240 60 c1 20 5c 22 87 22 20 5b 6e 61 72 72 6f 77 2d 74 6f 2d 72 65 67 69 6f 6e 20 6d 61 72 6b 5d 20 ┆` \" " [narrow-to-region mark] ┆ 0x1240…1260 34 29 29 0a 0a 28 64 65 66 75 6e 20 6d 6c 2d 6e 65 77 6c 69 6e 65 2d 61 6e 64 2d 69 6e 64 65 6e ┆4)) (defun ml-newline-and-inden┆ 0x1260…1280 74 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 20 18 c2 c3 20 21 88 08 6a 29 87 22 20 ┆t nil (byte-code " ! j) " ┆ 0x1280…12a0 5b 63 6f 6c 75 6d 6e 20 63 75 72 72 65 6e 74 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 20 6e 65 77 6c ┆[column current-indentation newl┆ 0x12a0…12c0 69 6e 65 20 6d 6c 2d 70 72 65 66 69 78 2d 61 72 67 75 6d 65 6e 74 5d 20 34 29 29 0a 0a 28 64 65 ┆ine ml-prefix-argument] 4)) (de┆ 0x12c0…12e0 66 75 6e 20 6e 65 77 6c 69 6e 65 2d 61 6e 64 2d 62 61 63 6b 75 70 20 6e 69 6c 20 28 62 79 74 65 ┆fun newline-and-backup nil (byte┆ 0x12e0…1300 2d 63 6f 64 65 20 22 c0 c1 20 21 87 22 20 5b 6f 70 65 6e 2d 6c 69 6e 65 20 6d 6c 2d 70 72 65 66 ┆-code " ! " [open-line ml-pref┆ 0x1300…1320 69 78 2d 61 72 67 75 6d 65 6e 74 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 71 75 6f 74 65 2d 63 ┆ix-argument] 3)) (defun quote-c┆ 0x1320…1340 68 61 72 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 c1 20 21 87 22 20 5b 71 75 6f 74 ┆har nil (byte-code " ! " [quot┆ 0x1340…1360 65 64 2d 69 6e 73 65 72 74 20 6d 6c 2d 70 72 65 66 69 78 2d 61 72 67 75 6d 65 6e 74 5d 20 33 29 ┆ed-insert ml-prefix-argument] 3)┆ 0x1360…1380 29 0a 0a 28 64 65 66 75 6e 20 6d 6c 2d 63 75 72 72 65 6e 74 2d 63 6f 6c 75 6d 6e 20 6e 69 6c 20 ┆) (defun ml-current-column nil ┆ 0x1380…13a0 28 62 79 74 65 2d 63 6f 64 65 20 22 69 54 87 22 20 5b 5d 20 31 29 29 0a 0a 28 64 65 66 75 6e 20 ┆(byte-code "iT " [] 1)) (defun ┆ 0x13a0…13c0 6d 6c 2d 63 75 72 72 65 6e 74 2d 69 6e 64 65 6e 74 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 ┆ml-current-indent nil (byte-code┆ 0x13c0…13e0 20 22 c0 20 54 87 22 20 5b 63 75 72 72 65 6e 74 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 5d 20 32 29 ┆ " T " [current-indentation] 2)┆ 0x13e0…1400 29 0a 0a 28 64 65 66 75 6e 20 72 65 67 69 6f 6e 2d 61 72 6f 75 6e 64 2d 6d 61 74 63 68 20 28 26 ┆) (defun region-around-match (&┆ 0x1400…1420 6f 70 74 69 6f 6e 61 6c 20 6e 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 c2 08 21 21 88 c3 08 ┆optional n) (byte-code " !! ┆ 0x1420…1440 21 62 87 22 20 5b 6e 20 73 65 74 2d 6d 61 72 6b 20 6d 61 74 63 68 2d 62 65 67 69 6e 6e 69 6e 67 ┆!b " [n set-mark match-beginning┆ 0x1440…1460 20 6d 61 74 63 68 2d 65 6e 64 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 72 65 67 69 6f 6e 2d 74 ┆ match-end] 4)) (defun region-t┆ 0x1460…1480 6f 2d 73 74 72 69 6e 67 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 60 c1 20 5e 60 c1 ┆o-string nil (byte-code " ` ^` ┆ 0x1480…14a0 20 5d 5c 22 87 22 20 5b 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 6d 61 72 6b 5d 20 36 ┆ ]\" " [buffer-substring mark] 6┆ 0x14a0…14c0 29 29 0a 0a 28 64 65 66 75 6e 20 75 73 65 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20 28 6e 61 6d ┆)) (defun use-abbrev-table (nam┆ 0x14c0…14e0 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 09 c4 50 21 18 c5 08 21 86 10 00 c6 08 c2 5c 22 ┆e) (byte-code " P! ! \"┆ 0x14e0…1500 88 08 4a 29 87 22 20 5b 73 79 6d 62 6f 6c 20 6e 61 6d 65 20 6e 69 6c 20 69 6e 74 65 72 6e 20 22 ┆ J) " [symbol name nil intern "┆ 0x1500…1520 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 22 20 62 6f 75 6e 64 70 20 64 65 66 69 6e 65 2d 61 62 62 ┆-abbrev-table" boundp define-abb┆ 0x1520…1540 72 65 76 2d 74 61 62 6c 65 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 64 65 66 69 6e 65 2d 68 6f ┆rev-table] 5)) (defun define-ho┆ 0x1540…1560 6f 6b 65 64 2d 6c 6f 63 61 6c 2d 61 62 62 72 65 76 20 28 6e 61 6d 65 20 65 78 70 20 68 6f 6f 6b ┆oked-local-abbrev (name exp hook┆ 0x1560…1580 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 08 09 c4 0a 21 23 87 22 20 5b 6e 61 6d 65 20 65 78 ┆) (byte-code " !# " [name ex┆ 0x1580…15a0 70 20 68 6f 6f 6b 20 64 65 66 69 6e 65 2d 6c 6f 63 61 6c 2d 61 62 62 72 65 76 20 69 6e 74 65 72 ┆p hook define-local-abbrev inter┆ 0x15a0…15c0 6e 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 64 65 66 69 6e 65 2d 68 6f 6f 6b 65 64 2d 67 6c 6f ┆n] 5)) (defun define-hooked-glo┆ 0x15c0…15e0 62 61 6c 2d 61 62 62 72 65 76 20 28 6e 61 6d 65 20 65 78 70 20 68 6f 6f 6b 29 20 28 62 79 74 65 ┆bal-abbrev (name exp hook) (byte┆ 0x15e0…1600 2d 63 6f 64 65 20 22 c3 08 09 c4 0a 21 23 87 22 20 5b 6e 61 6d 65 20 65 78 70 20 68 6f 6f 6b 20 ┆-code " !# " [name exp hook ┆ 0x1600…1620 64 65 66 69 6e 65 2d 67 6c 6f 62 61 6c 2d 61 62 62 72 65 76 20 69 6e 74 65 72 6e 5d 20 35 29 29 ┆define-global-abbrev intern] 5))┆ 0x1620…1640 0a 0a 28 64 65 66 75 6e 20 63 61 73 65 2d 77 6f 72 64 2d 6c 6f 77 65 72 20 6e 69 6c 20 28 62 79 ┆ (defun case-word-lower nil (by┆ 0x1640…1660 74 65 2d 63 6f 64 65 20 22 c0 c1 21 87 22 20 5b 6d 6c 2d 63 61 73 69 66 79 2d 77 6f 72 64 20 64 ┆te-code " ! " [ml-casify-word d┆ 0x1660…1680 6f 77 6e 63 61 73 65 2d 72 65 67 69 6f 6e 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 73 65 ┆owncase-region] 2)) (defun case┆ 0x1680…16a0 2d 77 6f 72 64 2d 75 70 70 65 72 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 c1 21 87 ┆-word-upper nil (byte-code " ! ┆ 0x16a0…16c0 22 20 5b 6d 6c 2d 63 61 73 69 66 79 2d 77 6f 72 64 20 75 70 63 61 73 65 2d 72 65 67 69 6f 6e 5d ┆" [ml-casify-word upcase-region]┆ 0x16c0…16e0 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 73 65 2d 77 6f 72 64 2d 63 61 70 69 74 61 6c 69 7a ┆ 2)) (defun case-word-capitaliz┆ 0x16e0…1700 65 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 c1 21 87 22 20 5b 6d 6c 2d 63 61 73 69 ┆e nil (byte-code " ! " [ml-casi┆ 0x1700…1720 66 79 2d 77 6f 72 64 20 63 61 70 69 74 61 6c 69 7a 65 2d 72 65 67 69 6f 6e 5d 20 32 29 29 0a 0a ┆fy-word capitalize-region] 2)) ┆ 0x1720…1740 28 64 65 66 75 6e 20 6d 6c 2d 63 61 73 69 66 79 2d 77 6f 72 64 20 28 66 75 6e 29 20 28 62 79 74 ┆(defun ml-casify-word (fun) (byt┆ 0x1740…1760 65 2d 63 6f 64 65 20 22 8a c1 c2 21 88 c3 c4 21 88 c5 08 60 c3 c6 20 21 88 60 23 29 87 22 20 5b ┆e-code " ! ! ` ! `#) " [┆ 0x1760…1780 66 75 6e 20 66 6f 72 77 61 72 64 2d 63 68 61 72 20 31 20 66 6f 72 77 61 72 64 2d 77 6f 72 64 20 ┆fun forward-char 1 forward-word ┆ 0x1780…17a0 2d 31 20 66 75 6e 63 61 6c 6c 20 6d 6c 2d 70 72 65 66 69 78 2d 61 72 67 75 6d 65 6e 74 5d 20 38 ┆-1 funcall ml-prefix-argument] 8┆ 0x17a0…17c0 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 73 65 2d 72 65 67 69 6f 6e 2d 6c 6f 77 65 72 20 6e 69 6c ┆)) (defun case-region-lower nil┆ 0x17c0…17e0 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 60 c1 20 5c 22 87 22 20 5b 64 6f 77 6e 63 61 73 65 2d ┆ (byte-code " ` \" " [downcase-┆ 0x17e0…1800 72 65 67 69 6f 6e 20 6d 61 72 6b 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 73 65 2d 72 65 ┆region mark] 4)) (defun case-re┆ 0x1800…1820 67 69 6f 6e 2d 75 70 70 65 72 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 60 c1 20 5c ┆gion-upper nil (byte-code " ` \┆ 0x1820…1840 22 87 22 20 5b 75 70 63 61 73 65 2d 72 65 67 69 6f 6e 20 6d 61 72 6b 5d 20 34 29 29 0a 0a 28 64 ┆" " [upcase-region mark] 4)) (d┆ 0x1840…1860 65 66 75 6e 20 63 61 73 65 2d 72 65 67 69 6f 6e 2d 63 61 70 69 74 61 6c 69 7a 65 20 6e 69 6c 20 ┆efun case-region-capitalize nil ┆ 0x1860…1880 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 60 c1 20 5c 22 87 22 20 5b 63 61 70 69 74 61 6c 69 7a 65 ┆(byte-code " ` \" " [capitalize┆ 0x1880…18a0 2d 72 65 67 69 6f 6e 20 6d 61 72 6b 5d 20 34 29 29 0a 0a 28 64 65 66 76 61 72 20 73 61 76 65 64 ┆-region mark] 4)) (defvar saved┆ 0x18a0…18c0 2d 63 6f 6d 6d 61 6e 64 2d 6c 69 6e 65 2d 61 72 67 73 20 6e 69 6c 29 0a 0a 28 64 65 66 75 6e 20 ┆-command-line-args nil) (defun ┆ 0x18c0…18e0 61 72 67 63 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 86 09 00 09 10 c2 89 11 88 09 ┆argc nil (byte-code " ┆ 0x18e0…1900 47 87 22 20 5b 73 61 76 65 64 2d 63 6f 6d 6d 61 6e 64 2d 6c 69 6e 65 2d 61 72 67 73 20 63 6f 6d ┆G " [saved-command-line-args com┆ 0x1900…1920 6d 61 6e 64 2d 6c 69 6e 65 2d 61 72 67 73 20 6e 69 6c 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 ┆mand-line-args nil] 2)) (defun ┆ […truncated at 200 lines…]