|
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: ┃ l ┃
Length: 5023 (0x139f)
Names: »lisp.elc«
└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
└─ ⟦this⟧ »EUUGD11/gnu-31mar87/emacs/lisp/lisp.elc«
0x0000…0020 0a 28 64 65 66 75 6e 20 66 6f 72 77 61 72 64 2d 73 65 78 70 20 28 26 6f 70 74 69 6f 6e 61 6c 20 ┆ (defun forward-sexp (&optional ┆
0x0020…0040 61 72 67 29 20 22 5c 0a 4d 6f 76 65 20 66 6f 72 77 61 72 64 20 61 63 72 6f 73 73 20 6f 6e 65 20 ┆arg) "\ Move forward across one ┆
0x0040…0060 62 61 6c 61 6e 63 65 64 20 65 78 70 72 65 73 73 69 6f 6e 2e 0a 57 69 74 68 20 61 72 67 75 6d 65 ┆balanced expression. With argume┆
0x0060…0080 6e 74 2c 20 64 6f 20 74 68 69 73 20 74 68 61 74 20 6d 61 6e 79 20 74 69 6d 65 73 2e 22 20 28 69 ┆nt, do this that many times." (i┆
0x0080…00a0 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 08 86 ┆nteractive "p") (byte-code " ┆
0x00a0…00c0 09 00 c2 89 10 88 c3 60 08 5c 22 86 14 00 c4 08 21 62 88 08 c5 57 85 1e 00 c6 20 87 22 20 5b 61 ┆ ` \" !b W " [a┆
0x00c0…00e0 72 67 20 6e 69 6c 20 31 20 73 63 61 6e 2d 73 65 78 70 73 20 62 75 66 66 65 72 2d 65 6e 64 20 30 ┆rg nil 1 scan-sexps buffer-end 0┆
0x00e0…0100 20 62 61 63 6b 77 61 72 64 2d 70 72 65 66 69 78 2d 63 68 61 72 73 5d 20 34 29 29 0a 0a 28 64 65 ┆ backward-prefix-chars] 4)) (de┆
0x0100…0120 66 75 6e 20 62 61 63 6b 77 61 72 64 2d 73 65 78 70 20 28 26 6f 70 74 69 6f 6e 61 6c 20 61 72 67 ┆fun backward-sexp (&optional arg┆
0x0120…0140 29 20 22 5c 0a 4d 6f 76 65 20 62 61 63 6b 77 61 72 64 20 61 63 72 6f 73 73 20 6f 6e 65 20 62 61 ┆) "\ Move backward across one ba┆
0x0140…0160 6c 61 6e 63 65 64 20 65 78 70 72 65 73 73 69 6f 6e 2e 0a 57 69 74 68 20 61 72 67 75 6d 65 6e 74 ┆lanced expression. With argument┆
0x0160…0180 2c 20 64 6f 20 74 68 69 73 20 74 68 61 74 20 6d 61 6e 79 20 74 69 6d 65 73 2e 22 20 28 69 6e 74 ┆, do this that many times." (int┆
0x0180…01a0 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 86 09 00 ┆eractive "p") (byte-code " ┆
0x01a0…01c0 c2 89 10 88 c3 08 5b 21 87 22 20 5b 61 72 67 20 6e 69 6c 20 31 20 66 6f 72 77 61 72 64 2d 73 65 ┆ [! " [arg nil 1 forward-se┆
0x01c0…01e0 78 70 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 72 6b 2d 73 65 78 70 20 28 61 72 67 29 20 ┆xp] 2)) (defun mark-sexp (arg) ┆
0x01e0…0200 22 5c 0a 53 65 74 20 6d 61 72 6b 20 41 52 47 20 73 65 78 70 73 20 66 72 6f 6d 20 70 6f 69 6e 74 ┆"\ Set mark ARG sexps from point┆
0x0200…0220 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 64 65 20 ┆." (interactive "p") (byte-code ┆
0x0220…0240 22 c1 88 c2 8a c3 08 21 88 60 29 21 87 22 20 5b 61 72 67 20 6e 69 6c 20 70 75 73 68 2d 6d 61 72 ┆" ! `)! " [arg nil push-mar┆
0x0240…0260 6b 20 66 6f 72 77 61 72 64 2d 73 65 78 70 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 66 6f 72 77 ┆k forward-sexp] 3)) (defun forw┆
0x0260…0280 61 72 64 2d 6c 69 73 74 20 28 26 6f 70 74 69 6f 6e 61 6c 20 61 72 67 29 20 22 5c 0a 4d 6f 76 65 ┆ard-list (&optional arg) "\ Move┆
0x0280…02a0 20 66 6f 72 77 61 72 64 20 61 63 72 6f 73 73 20 6f 6e 65 20 62 61 6c 61 6e 63 65 64 20 67 72 6f ┆ forward across one balanced gro┆
0x02a0…02c0 75 70 20 6f 66 20 70 61 72 65 6e 74 68 65 73 65 73 2e 0a 57 69 74 68 20 61 72 67 75 6d 65 6e 74 ┆up of parentheses. With argument┆
0x02c0…02e0 2c 20 64 6f 20 74 68 69 73 20 74 68 61 74 20 6d 61 6e 79 20 74 69 6d 65 73 2e 22 20 28 69 6e 74 ┆, do this that many times." (int┆
0x02e0…0300 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 86 09 00 ┆eractive "p") (byte-code " ┆
0x0300…0320 c2 89 10 88 c3 60 08 c4 23 86 15 00 c5 08 21 62 87 22 20 5b 61 72 67 20 6e 69 6c 20 31 20 73 63 ┆ ` # !b " [arg nil 1 sc┆
0x0320…0340 61 6e 2d 6c 69 73 74 73 20 30 20 62 75 66 66 65 72 2d 65 6e 64 5d 20 34 29 29 0a 0a 28 64 65 66 ┆an-lists 0 buffer-end] 4)) (def┆
0x0340…0360 75 6e 20 62 61 63 6b 77 61 72 64 2d 6c 69 73 74 20 28 26 6f 70 74 69 6f 6e 61 6c 20 61 72 67 29 ┆un backward-list (&optional arg)┆
0x0360…0380 20 22 5c 0a 4d 6f 76 65 20 62 61 63 6b 77 61 72 64 20 61 63 72 6f 73 73 20 6f 6e 65 20 62 61 6c ┆ "\ Move backward across one bal┆
0x0380…03a0 61 6e 63 65 64 20 67 72 6f 75 70 20 6f 66 20 70 61 72 65 6e 74 68 65 73 65 73 2e 0a 57 69 74 68 ┆anced group of parentheses. With┆
0x03a0…03c0 20 61 72 67 75 6d 65 6e 74 2c 20 64 6f 20 74 68 69 73 20 74 68 61 74 20 6d 61 6e 79 20 74 69 6d ┆ argument, do this that many tim┆
0x03c0…03e0 65 73 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 64 ┆es." (interactive "p") (byte-cod┆
0x03e0…0400 65 20 22 c1 88 08 86 09 00 c2 89 10 88 c3 08 5b 21 87 22 20 5b 61 72 67 20 6e 69 6c 20 31 20 66 ┆e " [! " [arg nil 1 f┆
0x0400…0420 6f 72 77 61 72 64 2d 6c 69 73 74 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 64 6f 77 6e 2d 6c 69 ┆orward-list] 2)) (defun down-li┆
0x0420…0440 73 74 20 28 61 72 67 29 20 22 5c 0a 4d 6f 76 65 20 66 6f 72 77 61 72 64 20 64 6f 77 6e 20 6f 6e ┆st (arg) "\ Move forward down on┆
0x0440…0460 65 20 6c 65 76 65 6c 20 6f 66 20 70 61 72 65 6e 74 68 65 73 65 73 2e 0a 57 69 74 68 20 61 72 67 ┆e level of parentheses. With arg┆
0x0460…0480 75 6d 65 6e 74 2c 20 64 6f 20 74 68 69 73 20 74 68 61 74 20 6d 61 6e 79 20 74 69 6d 65 73 2e 0a ┆ument, do this that many times. ┆
0x0480…04a0 41 20 6e 65 67 61 74 69 76 65 20 61 72 67 75 6d 65 6e 74 20 6d 65 61 6e 73 20 6d 6f 76 65 20 62 ┆A negative argument means move b┆
0x04a0…04c0 61 63 6b 77 61 72 64 20 62 75 74 20 73 74 69 6c 6c 20 67 6f 20 64 6f 77 6e 20 61 20 6c 65 76 65 ┆ackward but still go down a leve┆
0x04c0…04e0 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 6f 64 65 ┆l." (interactive "p") (byte-code┆
0x04e0…0500 20 22 c2 88 09 c3 56 83 0c 00 c4 82 0d 00 c5 18 c6 09 c3 5c 22 85 2b 00 c7 60 08 c5 23 86 20 00 ┆ " V \" + ` # ┆
0x0500…0520 c8 09 21 62 88 09 08 5a 89 11 88 82 0e 00 29 87 22 20 5b 69 6e 63 20 61 72 67 20 6e 69 6c 20 30 ┆ !b Z ) " [inc arg nil 0┆
0x0520…0540 20 31 20 2d 31 20 2f 3d 20 73 63 61 6e 2d 6c 69 73 74 73 20 62 75 66 66 65 72 2d 65 6e 64 5d 20 ┆ 1 -1 /= scan-lists buffer-end] ┆
0x0540…0560 36 29 29 0a 0a 28 64 65 66 75 6e 20 62 61 63 6b 77 61 72 64 2d 75 70 2d 6c 69 73 74 20 28 61 72 ┆6)) (defun backward-up-list (ar┆
0x0560…0580 67 29 20 22 5c 0a 4d 6f 76 65 20 62 61 63 6b 77 61 72 64 20 6f 75 74 20 6f 66 20 6f 6e 65 20 6c ┆g) "\ Move backward out of one l┆
0x0580…05a0 65 76 65 6c 20 6f 66 20 70 61 72 65 6e 74 68 65 73 65 73 2e 0a 57 69 74 68 20 61 72 67 75 6d 65 ┆evel of parentheses. With argume┆
0x05a0…05c0 6e 74 2c 20 64 6f 20 74 68 69 73 20 74 68 61 74 20 6d 61 6e 79 20 74 69 6d 65 73 2e 0a 41 20 6e ┆nt, do this that many times. A n┆
0x05c0…05e0 65 67 61 74 69 76 65 20 61 72 67 75 6d 65 6e 74 20 6d 65 61 6e 73 20 6d 6f 76 65 20 66 6f 72 77 ┆egative argument means move forw┆
0x05e0…0600 61 72 64 20 62 75 74 20 73 74 69 6c 6c 20 74 6f 20 61 20 6c 65 73 73 20 64 65 65 70 20 73 70 6f ┆ard but still to a less deep spo┆
0x0600…0620 74 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 64 65 ┆t." (interactive "p") (byte-code┆
0x0620…0640 20 22 c1 88 c2 08 5b 21 87 22 20 5b 61 72 67 20 6e 69 6c 20 75 70 2d 6c 69 73 74 5d 20 32 29 29 ┆ " [! " [arg nil up-list] 2))┆
0x0640…0660 0a 0a 28 64 65 66 75 6e 20 75 70 2d 6c 69 73 74 20 28 61 72 67 29 20 22 5c 0a 4d 6f 76 65 20 66 ┆ (defun up-list (arg) "\ Move f┆
0x0660…0680 6f 72 77 61 72 64 20 6f 75 74 20 6f 66 20 6f 6e 65 20 6c 65 76 65 6c 20 6f 66 20 70 61 72 65 6e ┆orward out of one level of paren┆
0x0680…06a0 74 68 65 73 65 73 2e 0a 57 69 74 68 20 61 72 67 75 6d 65 6e 74 2c 20 64 6f 20 74 68 69 73 20 74 ┆theses. With argument, do this t┆
0x06a0…06c0 68 61 74 20 6d 61 6e 79 20 74 69 6d 65 73 2e 0a 41 20 6e 65 67 61 74 69 76 65 20 61 72 67 75 6d ┆hat many times. A negative argum┆
0x06c0…06e0 65 6e 74 20 6d 65 61 6e 73 20 6d 6f 76 65 20 62 61 63 6b 77 61 72 64 20 62 75 74 20 73 74 69 6c ┆ent means move backward but stil┆
0x06e0…0700 6c 20 74 6f 20 61 20 6c 65 73 73 20 64 65 65 70 20 73 70 6f 74 2e 22 20 28 69 6e 74 65 72 61 63 ┆l to a less deep spot." (interac┆
0x0700…0720 74 69 76 65 20 22 70 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 88 09 c3 56 83 0c 00 c4 82 ┆tive "p") (byte-code " V ┆
0x0720…0740 0d 00 c5 18 c6 09 c3 5c 22 85 2b 00 c7 60 08 c4 23 86 20 00 c8 09 21 62 88 09 08 5a 89 11 88 82 ┆ \" + ` # !b Z ┆
0x0740…0760 0e 00 29 87 22 20 5b 69 6e 63 20 61 72 67 20 6e 69 6c 20 30 20 31 20 2d 31 20 2f 3d 20 73 63 61 ┆ ) " [inc arg nil 0 1 -1 /= sca┆
0x0760…0780 6e 2d 6c 69 73 74 73 20 62 75 66 66 65 72 2d 65 6e 64 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20 ┆n-lists buffer-end] 6)) (defun ┆
0x0780…07a0 6b 69 6c 6c 2d 73 65 78 70 20 28 61 72 67 29 20 22 5c 0a 4b 69 6c 6c 20 74 68 65 20 73 79 6e 74 ┆kill-sexp (arg) "\ Kill the synt┆
0x07a0…07c0 61 63 74 69 63 20 65 78 70 72 65 73 73 69 6f 6e 20 66 6f 6c 6c 6f 77 69 6e 67 20 74 68 65 20 63 ┆actic expression following the c┆
0x07c0…07e0 75 72 73 6f 72 2e 0a 57 69 74 68 20 61 72 67 75 6d 65 6e 74 2c 20 6b 69 6c 6c 20 74 68 61 74 20 ┆ursor. With argument, kill that ┆
0x07e0…0800 6d 61 6e 79 20 65 78 70 72 65 73 73 69 6f 6e 73 20 61 66 74 65 72 20 28 6f 72 20 62 65 66 6f 72 ┆many expressions after (or befor┆
0x0800…0820 65 29 20 74 68 65 20 63 75 72 73 6f 72 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 70 22 ┆e) the cursor." (interactive "p"┆
0x0820…0840 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 88 60 18 c3 09 21 88 c4 08 60 5c 22 29 87 22 20 5b ┆) (byte-code " ` ! `\") " [┆
0x0840…0860 6f 70 6f 69 6e 74 20 61 72 67 20 6e 69 6c 20 66 6f 72 77 61 72 64 2d 73 65 78 70 20 6b 69 6c 6c ┆opoint arg nil forward-sexp kill┆
0x0860…0880 2d 72 65 67 69 6f 6e 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 62 61 63 6b 77 61 72 64 2d 6b 69 ┆-region] 4)) (defun backward-ki┆
0x0880…08a0 6c 6c 2d 73 65 78 70 20 28 61 72 67 29 20 22 5c 0a 4b 69 6c 6c 20 74 68 65 20 73 79 6e 74 61 63 ┆ll-sexp (arg) "\ Kill the syntac┆
0x08a0…08c0 74 69 63 20 65 78 70 72 65 73 73 69 6f 6e 20 70 72 65 63 65 64 69 6e 67 20 74 68 65 20 63 75 72 ┆tic expression preceding the cur┆
0x08c0…08e0 73 6f 72 2e 0a 57 69 74 68 20 61 72 67 75 6d 65 6e 74 2c 20 6b 69 6c 6c 20 74 68 61 74 20 6d 61 ┆sor. With argument, kill that ma┆
0x08e0…0900 6e 79 20 65 78 70 72 65 73 73 69 6f 6e 73 20 62 65 66 6f 72 65 20 28 6f 72 20 61 66 74 65 72 29 ┆ny expressions before (or after)┆
0x0900…0920 20 74 68 65 20 63 75 72 73 6f 72 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 70 22 29 20 ┆ the cursor." (interactive "p") ┆
0x0920…0940 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 c2 08 5b 21 87 22 20 5b 61 72 67 20 6e 69 6c 20 6b 69 ┆(byte-code " [! " [arg nil ki┆
0x0940…0960 6c 6c 2d 73 65 78 70 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 62 65 67 69 6e 6e 69 6e 67 2d 6f ┆ll-sexp] 2)) (defun beginning-o┆
0x0960…0980 66 2d 64 65 66 75 6e 20 28 26 6f 70 74 69 6f 6e 61 6c 20 61 72 67 29 20 22 5c 0a 4d 6f 76 65 20 ┆f-defun (&optional arg) "\ Move ┆
0x0980…09a0 62 61 63 6b 77 61 72 64 20 74 6f 20 6e 65 78 74 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 64 65 ┆backward to next beginning-of-de┆
0x09a0…09c0 66 75 6e 2e 0a 57 69 74 68 20 61 72 67 75 6d 65 6e 74 2c 20 64 6f 20 74 68 69 73 20 74 68 61 74 ┆fun. With argument, do this that┆
0x09c0…09e0 20 6d 61 6e 79 20 74 69 6d 65 73 2e 0a 52 65 74 75 72 6e 73 20 74 20 75 6e 6c 65 73 73 20 73 65 ┆ many times. Returns t unless se┆
0x09e0…0a00 61 72 63 68 20 73 74 6f 70 73 20 64 75 65 20 74 6f 20 65 6e 64 20 6f 66 20 62 75 66 66 65 72 2e ┆arch stops due to end of buffer.┆
0x0a00…0a20 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 "┆
0x0a20…0a40 c1 88 08 85 0f 00 08 c3 57 85 0f 00 c4 c5 21 88 c6 c7 c1 c8 08 86 19 00 c5 24 85 21 00 c9 20 88 ┆ W ! $ ! ┆
0x0a40…0a60 c2 87 22 20 5b 61 72 67 20 6e 69 6c 20 74 20 30 20 66 6f 72 77 61 72 64 2d 63 68 61 72 20 31 20 ┆ " [arg nil t 0 forward-char 1 ┆
0x0a60…0a80 72 65 2d 73 65 61 72 63 68 2d 62 61 63 6b 77 61 72 64 20 22 5e 5c 5c 73 28 22 20 6d 6f 76 65 20 ┆re-search-backward "^\\s(" move ┆
0x0a80…0aa0 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20 62 ┆beginning-of-line] 6)) (defun b┆
0x0aa0…0ac0 75 66 66 65 72 2d 65 6e 64 20 28 61 72 67 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 c1 56 83 ┆uffer-end (arg) (byte-code " V ┆
0x0ac0…0ae0 0a 00 64 82 0b 00 65 87 22 20 5b 61 72 67 20 30 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 65 6e ┆ d e " [arg 0] 2)) (defun en┆
0x0ae0…0b00 64 2d 6f 66 2d 64 65 66 75 6e 20 28 26 6f 70 74 69 6f 6e 61 6c 20 61 72 67 29 20 22 5c 0a 4d 6f ┆d-of-defun (&optional arg) "\ Mo┆
0x0b00…0b20 76 65 20 66 6f 72 77 61 72 64 20 74 6f 20 6e 65 78 74 20 65 6e 64 20 6f 66 20 64 65 66 75 6e 2e ┆ve forward to next end of defun.┆
0x0b20…0b40 0a 41 6e 20 65 6e 64 20 6f 66 20 61 20 64 65 66 75 6e 20 69 73 20 66 6f 75 6e 64 20 62 79 20 6d ┆ An end of a defun is found by m┆
0x0b40…0b60 6f 76 69 6e 67 20 66 6f 72 77 61 72 64 20 66 72 6f 6d 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 ┆oving forward from the beginning┆
0x0b60…0b80 20 6f 66 20 6f 6e 65 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 ┆ of one." (interactive "p") (byt┆
0x0b80…0ba0 65 2d 63 6f 64 65 20 22 c5 88 08 3f 86 0a 00 08 c6 55 85 10 00 c7 89 10 88 c2 19 08 c6 56 85 1c ┆e-code " ? U V ┆
0x0ba0…0bc0 00 60 64 57 85 6c 00 60 c5 1c 1b 09 85 2e 00 c8 c7 21 88 c9 c7 21 83 35 00 c5 82 40 00 6f 86 3c ┆ `dW l ` . ! ! 5 @ o <┆
0x0bc0…0be0 00 c8 ca 21 88 c9 ca 21 88 c5 89 11 88 cb c7 21 88 cc cd 21 88 ce cf 21 85 56 00 d0 c7 21 88 60 ┆ ! ! ! ! ! V ! `┆
0x0be0…0c00 0b 58 85 62 00 c5 88 82 23 00 2a 88 08 53 89 10 88 82 13 00 88 08 c6 57 85 ad 00 60 1b c9 c7 21 ┆ X b # * S W ` !┆
0x0c00…0c20 88 d1 c7 21 88 d0 c7 21 88 60 0b 59 85 a3 00 c9 d2 21 83 a1 00 cb c7 21 88 cc cd 21 88 ce cf 21 ┆ ! ! ` Y ! ! ! !┆
0x0c20…0c40 85 9e 00 d0 c7 21 82 a3 00 65 62 29 88 08 54 89 10 88 82 6d 00 29 87 22 20 5b 61 72 67 20 66 69 ┆ ! eb) T m ) " [arg fi┆
0x0c40…0c60 72 73 74 20 74 20 70 6f 73 20 6e 70 6f 73 20 6e 69 6c 20 30 20 31 20 66 6f 72 77 61 72 64 2d 63 ┆rst t pos npos nil 0 1 forward-c┆
0x0c60…0c80 68 61 72 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 64 65 66 75 6e 20 2d 31 20 66 6f 72 77 61 72 ┆har beginning-of-defun -1 forwar┆
0x0c80…0ca0 64 2d 6c 69 73 74 20 73 6b 69 70 2d 63 68 61 72 73 2d 66 6f 72 77 61 72 64 20 22 20 09 22 20 6c ┆d-list skip-chars-forward " " l┆
0x0ca0…0cc0 6f 6f 6b 69 6e 67 2d 61 74 20 22 5b 3b 0a 5d 22 20 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 66 6f ┆ooking-at "[; ]" forward-line fo┆
0x0cc0…0ce0 72 77 61 72 64 2d 73 65 78 70 20 32 5d 20 31 39 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 72 6b 2d ┆rward-sexp 2] 19)) (defun mark-┆
0x0ce0…0d00 64 65 66 75 6e 20 6e 69 6c 20 22 5c 0a 50 75 74 20 6d 61 72 6b 20 61 74 20 65 6e 64 20 6f 66 20 ┆defun nil "\ Put mark at end of ┆
0x0d00…0d20 64 65 66 75 6e 2c 20 70 6f 69 6e 74 20 61 74 20 62 65 67 69 6e 6e 69 6e 67 2e 22 20 28 69 6e 74 ┆defun, point at beginning." (int┆
0x0d20…0d40 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 c2 60 21 88 c3 20 88 c2 ┆eractive) (byte-code " `! ┆
0x0d40…0d60 60 21 88 c4 20 88 c5 c6 60 c7 5a c0 23 87 22 20 5b 74 20 6e 69 6c 20 70 75 73 68 2d 6d 61 72 6b ┆`! ` Z # " [t nil push-mark┆
0x0d60…0d80 20 65 6e 64 2d 6f 66 2d 64 65 66 75 6e 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 64 65 66 75 6e ┆ end-of-defun beginning-of-defun┆
0x0d80…0da0 20 72 65 2d 73 65 61 72 63 68 2d 62 61 63 6b 77 61 72 64 20 22 5e 0a 22 20 31 5d 20 38 29 29 0a ┆ re-search-backward "^ " 1] 8)) ┆
0x0da0…0dc0 0a 28 64 65 66 75 6e 20 69 6e 73 65 72 74 2d 70 61 72 65 6e 74 68 65 73 65 73 20 28 61 72 67 29 ┆ (defun insert-parentheses (arg)┆
0x0dc0…0de0 20 22 5c 0a 50 75 74 20 70 61 72 65 6e 74 68 65 73 65 73 20 61 72 6f 75 6e 64 20 6e 65 78 74 20 ┆ "\ Put parentheses around next ┆
0x0de0…0e00 41 52 47 20 73 65 78 70 73 2e 20 20 4c 65 61 76 65 20 70 6f 69 6e 74 20 61 66 74 65 72 20 6f 70 ┆ARG sexps. Leave point after op┆
0x0e00…0e20 65 6e 2d 70 61 72 65 6e 2e 0a 4e 6f 20 61 72 67 75 6d 65 6e 74 20 69 73 20 65 71 75 69 76 61 6c ┆en-paren. No argument is equival┆
0x0e20…0e40 65 6e 74 20 74 6f 20 7a 65 72 6f 3a 20 6a 75 73 74 20 69 6e 73 65 72 74 20 28 29 20 61 6e 64 20 ┆ent to zero: just insert () and ┆
0x0e40…0e60 6c 65 61 76 65 20 70 6f 69 6e 74 20 62 65 74 77 65 65 6e 2e 22 20 28 69 6e 74 65 72 61 63 74 69 ┆leave point between." (interacti┆
0x0e60…0e80 76 65 20 22 50 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 c2 63 88 8a 08 85 0f 00 c3 c4 ┆ve "P") (byte-code " c ┆
0x0e80…0ea0 08 21 21 88 c5 63 29 87 22 20 5b 61 72 67 20 6e 69 6c 20 34 30 20 66 6f 72 77 61 72 64 2d 73 65 ┆ !! c) " [arg nil 40 forward-se┆
0x0ea0…0ec0 78 70 20 70 72 65 66 69 78 2d 6e 75 6d 65 72 69 63 2d 76 61 6c 75 65 20 34 31 5d 20 33 29 29 0a ┆xp prefix-numeric-value 41] 3)) ┆
0x0ec0…0ee0 0a 28 64 65 66 75 6e 20 6d 6f 76 65 2d 70 61 73 74 2d 63 6c 6f 73 65 2d 61 6e 64 2d 72 65 69 6e ┆ (defun move-past-close-and-rein┆
0x0ee0…0f00 64 65 6e 74 20 6e 69 6c 20 22 5c 0a 4d 6f 76 65 20 70 61 73 74 20 6e 65 78 74 20 29 2c 20 64 65 ┆dent nil "\ Move past next ), de┆
0x0f00…0f20 6c 65 74 65 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 62 65 66 6f 72 65 20 69 74 2c 20 74 68 65 6e ┆lete indentation before it, then┆
0x0f20…0f40 20 69 6e 64 65 6e 74 20 61 66 74 65 72 20 69 74 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 ┆ indent after it." (interactive)┆
0x0f40…0f60 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 c2 c3 21 88 c4 c5 21 88 8a 60 18 c6 20 88 60 08 55 ┆ (byte-code " ! ! ` ` U┆
0x0f60…0f80 29 29 85 1e 00 c7 20 88 82 0a 00 88 c4 c3 21 88 c8 20 87 22 20 5b 62 65 66 6f 72 65 2d 70 61 72 ┆)) ! " [before-par┆
0x0f80…0fa0 65 6e 20 6e 69 6c 20 75 70 2d 6c 69 73 74 20 31 20 66 6f 72 77 61 72 64 2d 63 68 61 72 20 2d 31 ┆en nil up-list 1 forward-char -1┆
0x0fa0…0fc0 20 62 61 63 6b 2d 74 6f 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 20 64 65 6c 65 74 65 2d 69 6e 64 65 ┆ back-to-indentation delete-inde┆
0x0fc0…0fe0 6e 74 61 74 69 6f 6e 20 6e 65 77 6c 69 6e 65 2d 61 6e 64 2d 69 6e 64 65 6e 74 5d 20 37 29 29 0a ┆ntation newline-and-indent] 7)) ┆
0x0fe0…1000 0a 28 64 65 66 75 6e 20 6c 69 73 70 2d 63 6f 6d 70 6c 65 74 65 2d 73 79 6d 62 6f 6c 20 6e 69 6c ┆ (defun lisp-complete-symbol nil┆
0x1000…1020 20 22 5c 0a 50 65 72 66 6f 72 6d 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 6f 6e 20 4c 69 73 70 20 73 ┆ "\ Perform completion on Lisp s┆
0x1020…1040 79 6d 62 6f 6c 20 70 72 65 63 65 64 69 6e 67 20 70 6f 69 6e 74 2e 0a 54 68 61 74 20 73 79 6d 62 ┆ymbol preceding point. That symb┆
0x1040…1060 6f 6c 20 69 73 20 63 6f 6d 70 61 72 65 64 20 61 67 61 69 6e 73 74 20 74 68 65 20 73 79 6d 62 6f ┆ol is compared against the symbo┆
0x1060…1080 6c 73 20 74 68 61 74 20 65 78 69 73 74 0a 61 6e 64 20 61 6e 79 20 61 64 64 69 74 69 6f 6e 61 6c ┆ls that exist and any additional┆
0x1080…10a0 20 63 68 61 72 61 63 74 65 72 73 20 64 65 74 65 72 6d 69 6e 65 64 20 62 79 20 77 68 61 74 20 69 ┆ characters determined by what i┆
0x10a0…10c0 73 20 74 68 65 72 65 0a 61 72 65 20 69 6e 73 65 72 74 65 64 2e 0a 49 66 20 74 68 65 20 73 79 6d ┆s there are inserted. If the sym┆
0x10c0…10e0 62 6f 6c 20 73 74 61 72 74 73 20 6a 75 73 74 20 61 66 74 65 72 20 61 6e 20 6f 70 65 6e 2d 70 61 ┆bol starts just after an open-pa┆
0x10e0…1100 72 65 6e 74 68 65 73 69 73 2c 0a 6f 6e 6c 79 20 73 79 6d 62 6f 6c 73 20 77 69 74 68 20 66 75 6e ┆renthesis, only symbols with fun┆
0x1100…1120 63 74 69 6f 6e 20 64 65 66 69 6e 69 74 69 6f 6e 73 20 61 72 65 20 63 6f 6e 73 69 64 65 72 65 64 ┆ction definitions are considered┆
0x1120…1140 2e 0a 4f 74 68 65 72 77 69 73 65 2c 20 61 6c 6c 20 73 79 6d 62 6f 6c 73 20 77 69 74 68 20 66 75 ┆. Otherwise, all symbols with fu┆
0x1140…1160 6e 63 74 69 6f 6e 20 64 65 66 69 6e 69 74 69 6f 6e 73 2c 20 76 61 6c 75 65 73 0a 6f 72 20 70 72 ┆nction definitions, values or pr┆
0x1160…1180 6f 70 65 72 74 69 65 73 20 61 72 65 20 63 6f 6e 73 69 64 65 72 65 64 2e 22 20 28 69 6e 74 65 72 ┆operties are considered." (inter┆
0x1180…11a0 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c9 88 60 18 8a ca cb 21 88 60 29 19 ┆active) (byte-code " ` ! `) ┆
0x11a0…11c0 cc 09 08 5c 22 1a 09 53 66 cd 3d 83 1d 00 ce 82 1e 00 cf 1b d0 0a 0d 0b 23 1c 0c c6 3d 86 9e 00 ┆ \" Sf = # = ┆
0x11c0…11e0 0c 3f 83 35 00 d1 20 82 9e 00 d2 0a 0c 5c 22 3f 83 47 00 d3 09 08 5c 22 88 0c 63 82 9e 00 d4 d5 ┆ ? 5 \"? G \" c ┆
0x11e0…1200 d6 5c 22 88 d7 0a 0d 0b 23 1e 07 0b ce 3d 86 90 00 c9 1e 08 0e 07 85 87 00 ce d8 0e 07 40 21 21 ┆ \" # = @!!┆
0x1200…1220 83 73 00 0e 07 40 d9 44 82 76 00 0e 07 40 0e 08 42 89 16 08 88 0e 07 41 89 16 07 88 82 5c 5c 00 ┆ s @ D v @ B A \\ ┆
0x1220…1240 88 da 0e 08 21 89 16 07 29 88 db 90 dc 0e 07 21 91 29 88 d4 d5 dd 5c 22 2d 87 22 20 5b 65 6e 64 ┆ ! ) ! ) \"- " [end┆
0x1240…1260 20 62 65 67 20 70 61 74 74 65 72 6e 20 70 72 65 64 69 63 61 74 65 20 63 6f 6d 70 6c 65 74 69 6f ┆ beg pattern predicate completio┆
0x1260…1280 6e 20 6f 62 61 72 72 61 79 20 74 20 6c 69 73 74 20 6e 65 77 20 6e 69 6c 20 62 61 63 6b 77 61 72 ┆n obarray t list new nil backwar┆
0x1280…12a0 64 2d 73 65 78 70 20 31 20 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 34 30 20 66 62 6f ┆d-sexp 1 buffer-substring 40 fbo┆
0x12a0…12c0 75 6e 64 70 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 c1 ┆undp (lambda (sym) (byte-code " ┆
0x12c0…12e0 08 21 86 0f 00 c2 08 21 86 0f 00 c3 08 21 87 22 20 5b 73 79 6d 20 62 6f 75 6e 64 70 20 66 62 6f ┆ ! ! ! " [sym boundp fbo┆
0x12e0…1300 75 6e 64 70 20 73 79 6d 62 6f 6c 2d 70 6c 69 73 74 5d 20 34 29 29 20 74 72 79 2d 63 6f 6d 70 6c ┆undp symbol-plist] 4)) try-compl┆
0x1300…1320 65 74 69 6f 6e 20 64 69 6e 67 20 73 74 72 69 6e 67 3d 20 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e ┆etion ding string= delete-region┆
0x1320…1340 20 6d 65 73 73 61 67 65 20 22 4d 61 6b 69 6e 67 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 6c 69 73 74 ┆ message "Making completion list┆
0x1340…1360 2e 2e 2e 25 73 22 20 22 22 20 61 6c 6c 2d 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 69 6e 74 65 72 6e ┆...%s" "" all-completions intern┆
0x1360…1380 20 22 20 3c 66 3e 22 20 6e 72 65 76 65 72 73 65 20 22 2a 48 65 6c 70 2a 22 20 64 69 73 70 6c 61 ┆ " <f>" nreverse "*Help*" displa┆
0x1380…139f 79 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 6c 69 73 74 20 22 64 6f 6e 65 22 5d 20 31 35 29 29 0a ┆y-completion-list "done"] 15)) ┆