|
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: ┃ s ┃
Length: 5075 (0x13d3)
Names: »subr.elc«
└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
└─ ⟦this⟧ »EUUGD11/gnu-31mar87/emacs/lisp/subr.elc«
0x0000…0020 0a 28 64 65 66 75 6e 20 6f 6e 65 2d 77 69 6e 64 6f 77 2d 70 20 28 26 6f 70 74 69 6f 6e 61 6c 20 ┆ (defun one-window-p (&optional ┆ 0x0020…0040 61 72 67 29 20 22 5c 0a 52 65 74 75 72 6e 73 20 6e 6f 6e 2d 6e 69 6c 20 69 66 20 74 68 65 72 65 ┆arg) "\ Returns non-nil if there┆ 0x0040…0060 20 69 73 20 6f 6e 6c 79 20 6f 6e 65 20 77 69 6e 64 6f 77 2e 0a 4f 70 74 69 6f 6e 61 6c 20 61 72 ┆ is only one window. Optional ar┆ 0x0060…0080 67 20 4e 4f 4d 49 4e 49 20 6e 6f 6e 2d 6e 69 6c 20 6d 65 61 6e 73 20 64 6f 6e 27 74 20 63 6f 75 ┆g NOMINI non-nil means don't cou┆ 0x0080…00a0 6e 74 20 74 68 65 20 6d 69 6e 69 62 75 66 66 65 72 0a 65 76 65 6e 20 69 66 20 69 74 20 69 73 20 ┆nt the minibuffer even if it is ┆ 0x00a0…00c0 61 63 74 69 76 65 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 20 08 85 0a 00 c2 c3 20 21 83 ┆active." (byte-code " ! ┆ 0x00c0…00e0 12 00 c4 20 82 16 00 c4 c4 20 21 3d 87 22 20 5b 61 72 67 20 73 65 6c 65 63 74 65 64 2d 77 69 6e ┆ != " [arg selected-win┆ 0x00e0…0100 64 6f 77 20 7a 65 72 6f 70 20 6d 69 6e 69 62 75 66 66 65 72 2d 64 65 70 74 68 20 6e 65 78 74 2d ┆dow zerop minibuffer-depth next-┆ 0x0100…0120 77 69 6e 64 6f 77 5d 20 38 29 29 0a 0a 28 64 65 66 75 6e 20 72 65 61 64 2d 71 75 6f 74 65 64 2d ┆window] 8)) (defun read-quoted-┆ 0x0120…0140 63 68 61 72 20 28 26 6f 70 74 69 6f 6e 61 6c 20 70 72 6f 6d 70 74 29 20 22 5c 0a 4c 69 6b 65 20 ┆char (&optional prompt) "\ Like ┆ 0x0140…0160 60 72 65 61 64 2d 63 68 61 72 27 2c 20 65 78 63 65 70 74 20 74 68 61 74 20 69 66 20 74 68 65 20 ┆`read-char', except that if the ┆ 0x0160…0180 66 69 72 73 74 20 63 68 61 72 61 63 74 65 72 20 72 65 61 64 20 69 73 20 61 6e 20 6f 63 74 61 6c ┆first character read is an octal┆ 0x0180…01a0 0a 64 69 67 69 74 2c 20 77 65 20 72 65 61 64 20 75 70 20 74 6f 20 74 77 6f 20 6d 6f 72 65 20 6f ┆ digit, we read up to two more o┆ 0x01a0…01c0 63 74 61 6c 20 64 69 67 69 74 73 20 61 6e 64 20 72 65 74 75 72 6e 20 74 68 65 20 63 68 61 72 61 ┆ctal digits and return the chara┆ 0x01c0…01e0 63 74 65 72 0a 72 65 70 72 65 73 65 6e 74 65 64 20 62 79 20 74 68 65 20 6f 63 74 61 6c 20 6e 75 ┆cter represented by the octal nu┆ 0x01e0…0200 6d 62 65 72 20 63 6f 6e 73 69 73 74 69 6e 67 20 6f 66 20 74 68 6f 73 65 20 64 69 67 69 74 73 2e ┆mber consisting of those digits.┆ 0x0200…0220 0a 4f 70 74 69 6f 6e 61 6c 20 61 72 67 75 6d 65 6e 74 20 50 52 4f 4d 50 54 20 73 70 65 63 69 66 ┆ Optional argument PROMPT specif┆ 0x0220…0240 69 65 73 20 61 20 73 74 72 69 6e 67 20 74 6f 20 75 73 65 20 74 6f 20 70 72 6f 6d 70 74 20 74 68 ┆ies a string to use to prompt th┆ 0x0240…0260 65 20 75 73 65 72 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 ca ca c5 1a 19 18 08 cb 57 85 75 ┆e user." (byte-code " W u┆ 0x0260…0280 00 cc 08 21 c5 1c 1b 0e 06 85 1c 00 cd ce 0e 06 5c 22 88 72 89 12 88 0b 85 29 00 c5 89 16 07 2a ┆ ! \" r ) *┆ 0x0280…02a0 88 0a 3f 86 71 00 cf 0a 58 85 39 00 0a d0 58 83 5d 00 d1 09 d2 5c 22 0a cf 5a 5c 5c 11 08 54 89 ┆ ? q X 9 X ] \" Z\\ T ┆ 0x02a0…02c0 10 88 0e 06 85 5a 00 cd d3 d4 0e 06 0a 23 89 16 06 21 82 71 00 08 ca 56 83 6c 00 0a 16 08 d5 89 ┆ Z # ! q V l ┆ 0x02c0…02e0 10 82 71 00 0a 11 d5 89 10 88 82 06 00 88 d6 d7 09 5c 22 2b 87 22 20 5b 63 6f 75 6e 74 20 63 6f ┆ q \"+ " [count co┆ 0x02e0…0300 64 65 20 63 68 61 72 20 69 6e 68 69 62 69 74 2d 71 75 69 74 20 68 65 6c 70 2d 66 6f 72 6d 20 6e ┆de char inhibit-quit help-form n┆ 0x0300…0320 69 6c 20 70 72 6f 6d 70 74 20 71 75 69 74 2d 66 6c 61 67 20 75 6e 72 65 61 64 2d 63 6f 6d 6d 61 ┆il prompt quit-flag unread-comma┆ 0x0320…0340 6e 64 2d 63 68 61 72 20 74 20 30 20 33 20 7a 65 72 6f 70 20 6d 65 73 73 61 67 65 20 22 25 73 2d ┆nd-char t 0 3 zerop message "%s-┆ 0x0340…0360 22 20 34 38 20 35 35 20 2a 20 38 20 66 6f 72 6d 61 74 20 22 25 73 20 25 63 22 20 32 35 39 20 6c ┆" 48 55 * 8 format "%s %c" 259 l┆ 0x0360…0380 6f 67 61 6e 64 20 32 35 35 5d 20 39 29 29 0a 0a 28 64 65 66 75 6e 20 65 72 72 6f 72 20 28 26 72 ┆ogand 255] 9)) (defun error (&r┆ 0x0380…03a0 65 73 74 20 61 72 67 73 29 20 22 5c 0a 53 69 67 6e 61 6c 20 61 6e 20 65 72 72 6f 72 2c 20 6d 61 ┆est args) "\ Signal an error, ma┆ 0x03a0…03c0 6b 69 6e 67 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 20 62 79 20 70 61 73 73 69 6e 67 20 61 6c ┆king error message by passing al┆ 0x03c0…03e0 6c 20 61 72 67 73 20 74 6f 20 60 66 6f 72 6d 61 74 27 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 ┆l args to `format'." (byte-code ┆ 0x03e0…0400 22 c0 85 10 00 c2 c3 c4 c5 09 5c 22 43 5c 22 88 82 00 00 87 22 20 5b 74 20 61 72 67 73 20 73 69 ┆" \"C\" " [t args si┆ 0x0400…0420 67 6e 61 6c 20 65 72 72 6f 72 20 61 70 70 6c 79 20 66 6f 72 6d 61 74 5d 20 36 29 29 0a 0a 28 64 ┆gnal error apply format] 6)) (d┆ 0x0420…0440 65 66 75 6e 20 75 6e 64 65 66 69 6e 65 64 20 6e 69 6c 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 ┆efun undefined nil (interactive)┆ 0x0440…0460 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 20 87 22 20 5b 6e 69 6c 20 64 69 6e 67 5d 20 32 ┆ (byte-code " " [nil ding] 2┆ 0x0460…0480 29 29 0a 0a 28 70 75 74 20 28 71 75 6f 74 65 20 75 6e 64 65 66 69 6e 65 64 29 20 28 71 75 6f 74 ┆)) (put (quote undefined) (quot┆ 0x0480…04a0 65 20 73 75 70 70 72 65 73 73 2d 6b 65 79 6d 61 70 29 20 74 29 0a 0a 28 64 65 66 75 6e 20 73 75 ┆e suppress-keymap) t) (defun su┆ 0x04a0…04c0 70 70 72 65 73 73 2d 6b 65 79 6d 61 70 20 28 6d 61 70 20 26 6f 70 74 69 6f 6e 61 6c 20 61 72 67 ┆ppress-keymap (map &optional arg┆ 0x04c0…04e0 29 20 22 5c 0a 4d 61 6b 65 20 4d 41 50 20 6f 76 65 72 72 69 64 65 20 61 6c 6c 20 62 75 66 66 65 ┆) "\ Make MAP override all buffe┆ 0x04e0…0500 72 2d 6d 6f 64 69 66 79 69 6e 67 20 63 6f 6d 6d 61 6e 64 73 20 74 6f 20 62 65 20 75 6e 64 65 66 ┆r-modifying commands to be undef┆ 0x0500…0520 69 6e 65 64 2e 0a 57 6f 72 6b 73 20 62 79 20 6b 6e 6f 77 69 6e 67 20 77 68 69 63 68 20 63 6f 6d ┆ined. Works by knowing which com┆ 0x0520…0540 6d 61 6e 64 73 20 61 72 65 20 6e 6f 72 6d 61 6c 6c 79 20 62 75 66 66 65 72 2d 6d 6f 64 69 66 79 ┆mands are normally buffer-modify┆ 0x0540…0560 69 6e 67 2e 0a 4e 6f 72 6d 61 6c 6c 79 20 61 6c 73 6f 20 6d 61 6b 65 73 20 64 69 67 69 74 73 20 ┆ing. Normally also makes digits ┆ 0x0560…0580 73 65 74 20 6e 75 6d 65 72 69 63 20 61 72 67 2c 0a 62 75 74 20 6f 70 74 69 6f 6e 61 6c 20 73 65 ┆set numeric arg, but optional se┆ 0x0580…05a0 63 6f 6e 64 20 61 72 67 20 4e 4f 44 49 47 49 54 53 20 6e 6f 6e 2d 6e 69 6c 20 70 72 65 76 65 6e ┆cond arg NODIGITS non-nil preven┆ 0x05a0…05c0 74 73 20 74 68 69 73 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c4 18 08 c5 57 85 15 00 09 08 ┆ts this." (byte-code " W ┆ 0x05c0…05e0 c6 49 88 08 54 89 10 88 82 02 00 29 88 0a 86 3a 00 c7 1b 09 c8 c9 49 88 ca 89 13 88 0b cb 58 85 ┆ I T ) : I X ┆ 0x05e0…0600 39 00 09 0b cc 49 88 0b 54 89 13 88 82 26 00 29 87 22 20 5b 69 20 6d 61 70 20 61 72 67 20 6c 6f ┆9 I T & ) " [i map arg lo┆ 0x0600…0620 6f 70 20 33 32 20 31 32 37 20 75 6e 64 65 66 69 6e 65 64 20 6e 69 6c 20 34 35 20 6e 65 67 61 74 ┆op 32 127 undefined nil 45 negat┆ 0x0620…0640 69 76 65 2d 61 72 67 75 6d 65 6e 74 20 34 38 20 35 37 20 64 69 67 69 74 2d 61 72 67 75 6d 65 6e ┆ive-argument 48 57 digit-argumen┆ 0x0640…0660 74 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 73 75 62 73 74 69 74 75 74 65 2d 6b 65 79 2d 64 65 ┆t] 4)) (defun substitute-key-de┆ 0x0660…0680 66 69 6e 69 74 69 6f 6e 20 28 6f 6c 64 64 65 66 20 6e 65 77 64 65 66 20 6b 65 79 6d 61 70 29 20 ┆finition (olddef newdef keymap) ┆ 0x0680…06a0 22 5c 0a 52 65 70 6c 61 63 65 20 4f 4c 44 44 45 46 20 77 69 74 68 20 4e 45 57 44 45 46 20 66 6f ┆"\ Replace OLDDEF with NEWDEF fo┆ 0x06a0…06c0 72 20 61 6e 79 20 6b 65 79 73 20 69 6e 20 4b 45 59 4d 41 50 20 6e 6f 77 20 64 65 66 69 6e 65 64 ┆r any keys in KEYMAP now defined┆ 0x06c0…06e0 20 61 73 20 4f 4c 44 44 45 46 2e 0a 49 6e 20 6f 74 68 65 72 20 77 6f 72 64 73 2c 20 4f 4c 44 44 ┆ as OLDDEF. In other words, OLDD┆ 0x06e0…0700 45 46 20 69 73 20 72 65 70 6c 61 63 65 64 20 77 69 74 68 20 4e 45 57 44 45 46 20 77 68 65 72 65 ┆EF is replaced with NEWDEF where┆ 0x0700…0720 20 65 76 65 72 20 69 74 20 61 70 70 65 61 72 73 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c5 ┆ ever it appears." (byte-code " ┆ 0x0720…0740 08 21 83 2a 00 08 47 c6 1a 19 0a 09 57 85 26 00 08 0a 48 0b 3d 85 1d 00 08 0a 0c 49 88 0a 54 89 ┆ ! * G W & H = I T ┆ 0x0740…0760 12 88 82 0b 00 2a 82 46 00 08 85 46 00 c7 c8 08 21 21 0b 3d 85 3d 00 c9 08 40 0c 5c 22 88 08 41 ┆ * F F !! = = @ \" A┆ 0x0760…0780 89 10 88 82 2a 00 87 22 20 5b 6b 65 79 6d 61 70 20 6c 65 6e 20 69 20 6f 6c 64 64 65 66 20 6e 65 ┆ * " [keymap len i olddef ne┆ 0x0780…07a0 77 64 65 66 20 61 72 72 61 79 70 20 30 20 63 64 72 2d 73 61 66 65 20 63 61 72 2d 73 61 66 65 20 ┆wdef arrayp 0 cdr-safe car-safe ┆ 0x07a0…07c0 73 65 74 63 64 72 5d 20 37 29 29 0a 0a 28 66 73 65 74 20 28 71 75 6f 74 65 20 69 67 6e 6f 72 65 ┆setcdr] 7)) (fset (quote ignore┆ 0x07c0…07e0 29 20 28 71 75 6f 74 65 20 28 6c 61 6d 62 64 61 20 28 26 72 65 73 74 20 69 67 6e 6f 72 65 29 20 ┆) (quote (lambda (&rest ignore) ┆ 0x07e0…0800 6e 69 6c 29 29 29 0a 0a 28 66 73 65 74 20 28 71 75 6f 74 65 20 6d 61 6b 65 2d 73 79 6e 74 61 78 ┆nil))) (fset (quote make-syntax┆ 0x0800…0820 2d 74 61 62 6c 65 29 20 28 71 75 6f 74 65 20 63 6f 70 79 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 ┆-table) (quote copy-syntax-table┆ 0x0820…0840 29 29 0a 0a 28 66 73 65 74 20 28 71 75 6f 74 65 20 64 6f 74 29 20 28 71 75 6f 74 65 20 70 6f 69 ┆)) (fset (quote dot) (quote poi┆ 0x0840…0860 6e 74 29 29 0a 0a 28 66 73 65 74 20 28 71 75 6f 74 65 20 64 6f 74 2d 6d 61 72 6b 65 72 29 20 28 ┆nt)) (fset (quote dot-marker) (┆ 0x0860…0880 71 75 6f 74 65 20 70 6f 69 6e 74 2d 6d 61 72 6b 65 72 29 29 0a 0a 28 66 73 65 74 20 28 71 75 6f ┆quote point-marker)) (fset (quo┆ 0x0880…08a0 74 65 20 64 6f 74 2d 6d 69 6e 29 20 28 71 75 6f 74 65 20 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 0a ┆te dot-min) (quote point-min)) ┆ 0x08a0…08c0 28 66 73 65 74 20 28 71 75 6f 74 65 20 64 6f 74 2d 6d 61 78 29 20 28 71 75 6f 74 65 20 70 6f 69 ┆(fset (quote dot-max) (quote poi┆ 0x08c0…08e0 6e 74 2d 6d 61 78 29 29 0a 0a 28 66 73 65 74 20 28 71 75 6f 74 65 20 77 69 6e 64 6f 77 2d 64 6f ┆nt-max)) (fset (quote window-do┆ 0x08e0…0900 74 29 20 28 71 75 6f 74 65 20 77 69 6e 64 6f 77 2d 70 6f 69 6e 74 29 29 0a 0a 28 66 73 65 74 20 ┆t) (quote window-point)) (fset ┆ 0x0900…0920 28 71 75 6f 74 65 20 73 65 74 2d 77 69 6e 64 6f 77 2d 64 6f 74 29 20 28 71 75 6f 74 65 20 73 65 ┆(quote set-window-dot) (quote se┆ 0x0920…0940 74 2d 77 69 6e 64 6f 77 2d 70 6f 69 6e 74 29 29 0a 0a 28 66 73 65 74 20 28 71 75 6f 74 65 20 72 ┆t-window-point)) (fset (quote r┆ 0x0940…0960 65 61 64 2d 69 6e 70 75 74 29 20 28 71 75 6f 74 65 20 72 65 61 64 2d 73 74 72 69 6e 67 29 29 0a ┆ead-input) (quote read-string)) ┆ 0x0960…0980 0a 28 66 73 65 74 20 28 71 75 6f 74 65 20 73 65 6e 64 2d 73 74 72 69 6e 67 29 20 28 71 75 6f 74 ┆ (fset (quote send-string) (quot┆ 0x0980…09a0 65 20 70 72 6f 63 65 73 73 2d 73 65 6e 64 2d 73 74 72 69 6e 67 29 29 0a 0a 28 66 73 65 74 20 28 ┆e process-send-string)) (fset (┆ 0x09a0…09c0 71 75 6f 74 65 20 73 65 6e 64 2d 72 65 67 69 6f 6e 29 20 28 71 75 6f 74 65 20 70 72 6f 63 65 73 ┆quote send-region) (quote proces┆ 0x09c0…09e0 73 2d 73 65 6e 64 2d 72 65 67 69 6f 6e 29 29 0a 0a 28 66 73 65 74 20 28 71 75 6f 74 65 20 73 68 ┆s-send-region)) (fset (quote sh┆ 0x09e0…0a00 6f 77 2d 62 75 66 66 65 72 29 20 28 71 75 6f 74 65 20 73 65 74 2d 77 69 6e 64 6f 77 2d 62 75 66 ┆ow-buffer) (quote set-window-buf┆ 0x0a00…0a20 66 65 72 29 29 0a 0a 28 66 73 65 74 20 28 71 75 6f 74 65 20 73 74 72 69 6e 67 3d 29 20 28 71 75 ┆fer)) (fset (quote string=) (qu┆ 0x0a20…0a40 6f 74 65 20 73 74 72 69 6e 67 2d 65 71 75 61 6c 29 29 0a 0a 28 66 73 65 74 20 28 71 75 6f 74 65 ┆ote string-equal)) (fset (quote┆ 0x0a40…0a60 20 73 74 72 69 6e 67 3c 29 20 28 71 75 6f 74 65 20 73 74 72 69 6e 67 2d 6c 65 73 73 70 29 29 0a ┆ string<) (quote string-lessp)) ┆ 0x0a60…0a80 0a 28 66 73 65 74 20 28 71 75 6f 74 65 20 6d 6f 64 29 20 28 71 75 6f 74 65 20 25 29 29 0a 0a 28 ┆ (fset (quote mod) (quote %)) (┆ 0x0a80…0aa0 66 73 65 74 20 28 71 75 6f 74 65 20 6d 6f 76 65 2d 6d 61 72 6b 65 72 29 20 28 71 75 6f 74 65 20 ┆fset (quote move-marker) (quote ┆ 0x0aa0…0ac0 73 65 74 2d 6d 61 72 6b 65 72 29 29 0a 0a 28 66 73 65 74 20 28 71 75 6f 74 65 20 65 71 6c 29 20 ┆set-marker)) (fset (quote eql) ┆ 0x0ac0…0ae0 28 71 75 6f 74 65 20 65 71 29 29 0a 0a 28 66 73 65 74 20 28 71 75 6f 74 65 20 6e 6f 74 29 20 28 ┆(quote eq)) (fset (quote not) (┆ 0x0ae0…0b00 71 75 6f 74 65 20 6e 75 6c 6c 29 29 0a 0a 28 66 73 65 74 20 28 71 75 6f 74 65 20 6e 75 6d 62 65 ┆quote null)) (fset (quote numbe┆ 0x0b00…0b20 72 70 29 20 28 71 75 6f 74 65 20 69 6e 74 65 67 65 72 70 29 29 0a 0a 28 66 73 65 74 20 28 71 75 ┆rp) (quote integerp)) (fset (qu┆ 0x0b20…0b40 6f 74 65 20 72 70 6c 61 63 61 29 20 28 71 75 6f 74 65 20 73 65 74 63 61 72 29 29 0a 0a 28 66 73 ┆ote rplaca) (quote setcar)) (fs┆ 0x0b40…0b60 65 74 20 28 71 75 6f 74 65 20 72 70 6c 61 63 64 29 20 28 71 75 6f 74 65 20 73 65 74 63 64 72 29 ┆et (quote rplacd) (quote setcdr)┆ 0x0b60…0b80 29 0a 0a 28 66 73 65 74 20 28 71 75 6f 74 65 20 62 65 65 70 29 20 28 71 75 6f 74 65 20 64 69 6e ┆) (fset (quote beep) (quote din┆ 0x0b80…0ba0 67 29 29 0a 0a 28 66 73 65 74 20 28 71 75 6f 74 65 20 69 6e 64 65 6e 74 2d 74 6f 2d 63 6f 6c 75 ┆g)) (fset (quote indent-to-colu┆ 0x0ba0…0bc0 6d 6e 29 20 28 71 75 6f 74 65 20 69 6e 64 65 6e 74 2d 74 6f 29 29 0a 0a 28 66 73 65 74 20 28 71 ┆mn) (quote indent-to)) (fset (q┆ 0x0bc0…0be0 75 6f 74 65 20 62 61 63 6b 77 61 72 64 2d 64 65 6c 65 74 65 2d 63 68 61 72 29 20 28 71 75 6f 74 ┆uote backward-delete-char) (quot┆ 0x0be0…0c00 65 20 64 65 6c 65 74 65 2d 62 61 63 6b 77 61 72 64 2d 63 68 61 72 29 29 0a 0a 28 64 65 66 76 61 ┆e delete-backward-char)) (defva┆ 0x0c00…0c20 72 20 67 6c 6f 62 61 6c 2d 6d 61 70 20 6e 69 6c 20 22 5c 0a 44 65 66 61 75 6c 74 20 67 6c 6f 62 ┆r global-map nil "\ Default glob┆ 0x0c20…0c40 61 6c 20 6b 65 79 6d 61 70 20 6d 61 70 70 69 6e 67 20 45 6d 61 63 73 20 6b 65 79 62 6f 61 72 64 ┆al keymap mapping Emacs keyboard┆ 0x0c40…0c60 20 69 6e 70 75 74 20 69 6e 74 6f 20 63 6f 6d 6d 61 6e 64 73 2e 0a 54 68 65 20 76 61 6c 75 65 20 ┆ input into commands. The value ┆ 0x0c60…0c80 69 73 20 61 20 6b 65 79 6d 61 70 20 77 68 69 63 68 20 69 73 20 75 73 75 61 6c 6c 79 20 28 62 75 ┆is a keymap which is usually (bu┆ 0x0c80…0ca0 74 20 6e 6f 74 20 6e 65 63 65 73 73 61 72 69 6c 79 29 20 45 6d 61 63 73 27 73 0a 67 6c 6f 62 61 ┆t not necessarily) Emacs's globa┆ 0x0ca0…0cc0 6c 20 6d 61 70 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 63 74 6c 2d 78 2d 6d 61 70 20 6e 69 6c 20 ┆l map.") (defvar ctl-x-map nil ┆ 0x0cc0…0ce0 22 5c 0a 44 65 66 61 75 6c 74 20 6b 65 79 6d 61 70 20 66 6f 72 20 43 2d 78 20 63 6f 6d 6d 61 6e ┆"\ Default keymap for C-x comman┆ 0x0ce0…0d00 64 73 2e 0a 54 68 65 20 6e 6f 72 6d 61 6c 20 67 6c 6f 62 61 6c 20 64 65 66 69 6e 69 74 69 6f 6e ┆ds. The normal global definition┆ 0x0d00…0d20 20 6f 66 20 74 68 65 20 63 68 61 72 61 63 74 65 72 20 43 2d 78 20 69 6e 64 69 72 65 63 74 73 20 ┆ of the character C-x indirects ┆ 0x0d20…0d40 74 6f 20 74 68 69 73 20 6b 65 79 6d 61 70 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 65 73 63 2d 6d ┆to this keymap.") (defvar esc-m┆ 0x0d40…0d60 61 70 20 6e 69 6c 20 22 5c 0a 44 65 66 61 75 6c 74 20 6b 65 79 6d 61 70 20 66 6f 72 20 45 53 43 ┆ap nil "\ Default keymap for ESC┆ 0x0d60…0d80 20 28 6d 65 74 61 29 20 63 6f 6d 6d 61 6e 64 73 2e 0a 54 68 65 20 6e 6f 72 6d 61 6c 20 67 6c 6f ┆ (meta) commands. The normal glo┆ 0x0d80…0da0 62 61 6c 20 64 65 66 69 6e 69 74 69 6f 6e 20 6f 66 20 74 68 65 20 63 68 61 72 61 63 74 65 72 20 ┆bal definition of the character ┆ 0x0da0…0dc0 45 53 43 20 69 6e 64 69 72 65 63 74 73 20 74 6f 20 74 68 69 73 20 6b 65 79 6d 61 70 2e 22 29 0a ┆ESC indirects to this keymap.") ┆ 0x0dc0…0de0 0a 28 64 65 66 76 61 72 20 6d 6f 75 73 65 2d 6d 61 70 20 6e 69 6c 20 22 5c 0a 4b 65 79 6d 61 70 ┆ (defvar mouse-map nil "\ Keymap┆ 0x0de0…0e00 20 66 6f 72 20 6d 6f 75 73 65 20 63 6f 6d 6d 61 6e 64 73 20 66 72 6f 6d 20 74 68 65 20 58 20 77 ┆ for mouse commands from the X w┆ 0x0e00…0e20 69 6e 64 6f 77 20 73 79 73 74 65 6d 2e 22 29 0a 0a 28 64 65 66 75 6e 20 72 75 6e 2d 68 6f 6f 6b ┆indow system.") (defun run-hook┆ 0x0e20…0e40 73 20 28 26 72 65 73 74 20 68 6f 6f 6b 6c 69 73 74 29 20 22 5c 0a 54 61 6b 65 73 20 68 6f 6f 6b ┆s (&rest hooklist) "\ Takes hook┆ 0x0e40…0e60 20 6e 61 6d 65 73 20 61 6e 64 20 72 75 6e 73 20 65 61 63 68 20 6f 6e 65 20 69 6e 20 74 75 72 6e ┆ names and runs each one in turn┆ 0x0e60…0e80 2e 20 20 4d 61 6a 6f 72 20 6d 6f 64 65 20 66 75 6e 63 74 69 6f 6e 73 20 75 73 65 20 74 68 69 73 ┆. Major mode functions use this┆ 0x0e80…0ea0 2e 0a 45 61 63 68 20 61 72 67 75 6d 65 6e 74 20 73 68 6f 75 6c 64 20 62 65 20 61 20 73 79 6d 62 ┆. Each argument should be a symb┆ 0x0ea0…0ec0 6f 6c 2c 20 61 20 68 6f 6f 6b 20 76 61 72 69 61 62 6c 65 2e 0a 54 68 65 73 65 20 73 79 6d 62 6f ┆ol, a hook variable. These symbo┆ 0x0ec0…0ee0 6c 73 20 61 72 65 20 70 72 6f 63 65 73 73 65 64 20 69 6e 20 74 68 65 20 6f 72 64 65 72 20 73 70 ┆ls are processed in the order sp┆ 0x0ee0…0f00 65 63 69 66 69 65 64 2e 0a 49 66 20 61 20 68 6f 6f 6b 20 73 79 6d 62 6f 6c 20 68 61 73 20 61 20 ┆ecified. If a hook symbol has a ┆ 0x0f00…0f20 6e 6f 6e 2d 6e 69 6c 20 76 61 6c 75 65 2c 20 74 68 61 74 20 76 61 6c 75 65 20 6d 61 79 20 62 65 ┆non-nil value, that value may be┆ 0x0f20…0f40 20 61 20 66 75 6e 63 74 69 6f 6e 0a 6f 72 20 61 20 6c 69 73 74 20 6f 66 20 66 75 6e 63 74 69 6f ┆ a function or a list of functio┆ 0x0f40…0f60 6e 73 20 74 6f 20 62 65 20 63 61 6c 6c 65 64 20 74 6f 20 72 75 6e 20 74 68 65 20 68 6f 6f 6b 2e ┆ns to be called to run the hook.┆ 0x0f60…0f80 0a 49 66 20 74 68 65 20 76 61 6c 75 65 20 69 73 20 61 20 66 75 6e 63 74 69 6f 6e 2c 20 69 74 20 ┆ If the value is a function, it ┆ 0x0f80…0fa0 69 73 20 63 61 6c 6c 65 64 20 77 69 74 68 20 6e 6f 20 61 72 67 75 6d 65 6e 74 73 2e 0a 49 66 20 ┆is called with no arguments. If ┆ 0x0fa0…0fc0 69 74 20 69 73 20 61 20 6c 69 73 74 2c 20 74 68 65 20 65 6c 65 6d 65 6e 74 73 20 61 72 65 20 63 ┆it is a list, the elements are c┆ 0x0fc0…0fe0 61 6c 6c 65 64 2c 20 69 6e 20 6f 72 64 65 72 2c 20 77 69 74 68 20 6e 6f 20 61 72 67 75 6d 65 6e ┆alled, in order, with no argumen┆ 0x0fe0…1000 74 73 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 85 37 00 08 40 19 c3 09 21 85 2d 00 09 4a ┆ts." (byte-code " 7 @ ! - J┆ 0x1000…1020 85 2d 00 09 4a 1a 0a 3c 85 1f 00 0a 40 c4 3d 3f 83 29 00 c5 c6 0a 5c 22 82 2c 00 c6 0a 21 29 29 ┆ - J < @ =? ) \" , !))┆ 0x1020…1040 88 08 41 89 10 88 82 00 00 87 22 20 5b 68 6f 6f 6b 6c 69 73 74 20 73 79 6d 20 76 61 6c 75 65 20 ┆ A " [hooklist sym value ┆ 0x1040…1060 62 6f 75 6e 64 70 20 6c 61 6d 62 64 61 20 6d 61 70 63 61 72 20 66 75 6e 63 61 6c 6c 5d 20 36 29 ┆boundp lambda mapcar funcall] 6)┆ 0x1060…1080 29 0a 0a 28 64 65 66 75 6e 20 6d 6f 6d 65 6e 74 61 72 79 2d 73 74 72 69 6e 67 2d 64 69 73 70 6c ┆) (defun momentary-string-displ┆ 0x1080…10a0 61 79 20 28 73 74 72 69 6e 67 20 70 6f 73 20 26 6f 70 74 69 6f 6e 61 6c 20 65 78 69 74 2d 63 68 ┆ay (string pos &optional exit-ch┆ 0x10a0…10c0 61 72 20 6d 65 73 73 61 67 65 29 20 22 5c 0a 4d 6f 6d 65 6e 74 61 72 69 6c 79 20 64 69 73 70 6c ┆ar message) "\ Momentarily displ┆ 0x10c0…10e0 61 79 20 53 54 52 49 4e 47 20 69 6e 20 74 68 65 20 62 75 66 66 65 72 20 61 74 20 50 4f 53 2e 0a ┆ay STRING in the buffer at POS. ┆ 0x10e0…1100 44 69 73 70 6c 61 79 20 72 65 6d 61 69 6e 73 20 75 6e 74 69 6c 20 6e 65 78 74 20 63 68 61 72 61 ┆Display remains until next chara┆ 0x1100…1120 63 74 65 72 20 69 73 20 74 79 70 65 64 2e 0a 49 66 20 74 68 65 20 63 68 61 72 20 69 73 20 45 58 ┆cter is typed. If the char is EX┆ 0x1120…1140 49 54 2d 43 48 41 52 20 28 6f 70 74 69 6f 6e 61 6c 20 74 68 69 72 64 20 61 72 67 2c 20 64 65 66 ┆IT-CHAR (optional third arg, def┆ 0x1140…1160 61 75 6c 74 20 69 73 20 53 50 43 29 20 69 74 20 69 73 20 73 77 61 6c 6c 6f 77 65 64 3b 0a 6f 74 ┆ault is SPC) it is swallowed; ot┆ 0x1160…1180 68 65 72 77 69 73 65 20 69 74 20 69 73 20 74 68 65 6e 20 61 76 61 69 6c 61 62 6c 65 20 61 73 20 ┆herwise it is then available as ┆ 0x1180…11a0 69 6e 70 75 74 20 28 61 73 20 61 20 63 6f 6d 6d 61 6e 64 20 69 66 20 6e 6f 74 68 69 6e 67 20 65 ┆input (as a command if nothing e┆ 0x11a0…11c0 6c 73 65 29 2e 0a 44 69 73 70 6c 61 79 20 4d 45 53 53 41 47 45 20 28 6f 70 74 69 6f 6e 61 6c 20 ┆lse). Display MESSAGE (optional ┆ 0x11c0…11e0 66 6f 75 72 74 68 20 61 72 67 29 20 69 6e 20 74 68 65 20 65 63 68 6f 20 61 72 65 61 2e 0a 49 66 ┆fourth arg) in the echo area. If┆ 0x11e0…1200 20 4d 45 53 53 41 47 45 20 69 73 20 6e 69 6c 2c 20 69 6e 73 74 72 75 63 74 69 6f 6e 73 20 74 6f ┆ MESSAGE is nil, instructions to┆ 0x1200…1220 20 74 79 70 65 20 45 58 49 54 2d 43 48 41 52 20 61 72 65 20 64 69 73 70 6c 61 79 65 64 20 74 68 ┆ type EXIT-CHAR are displayed th┆ 0x1220…1240 65 72 65 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 86 07 00 cc 89 10 88 c2 cd 20 0d c2 1e ┆ere." (byte-code " ┆ 0x1240…1260 06 1c 1b 19 ce 8e 8a 0e 07 62 88 c2 89 15 88 cf 0e 08 21 88 60 89 16 06 29 88 c9 0e 09 86 2f 00 ┆ b ! ` ) / ┆ 0x1260…1280 d0 d1 08 21 5c 22 88 72 1e 0a 0e 0a 08 3d 86 43 00 0e 0a 89 16 0b 29 29 2c 87 22 20 5b 65 78 69 ┆ !\" r = C )), " [exi┆ 0x1280…12a0 74 2d 63 68 61 72 20 62 75 66 66 65 72 2d 72 65 61 64 2d 6f 6e 6c 79 20 6e 69 6c 20 6d 6f 64 69 ┆t-char buffer-read-only nil modi┆ 0x12a0…12c0 66 69 65 64 20 6e 61 6d 65 20 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 20 69 6e 73 65 72 ┆fied name buffer-file-name inser┆ 0x12c0…12e0 74 2d 65 6e 64 20 70 6f 73 20 73 74 72 69 6e 67 20 6d 65 73 73 61 67 65 20 63 68 61 72 20 75 6e ┆t-end pos string message char un┆ 0x12e0…1300 72 65 61 64 2d 63 6f 6d 6d 61 6e 64 2d 63 68 61 72 20 33 32 20 62 75 66 66 65 72 2d 6d 6f 64 69 ┆read-command-char 32 buffer-modi┆ 0x1300…1320 66 69 65 64 2d 70 20 28 28 62 79 74 65 2d 63 6f 64 65 20 22 08 85 0a 00 8a c5 09 08 5c 22 29 88 ┆fied-p ((byte-code " \") ┆ 0x1320…1340 0b 89 12 88 c6 0c 21 87 22 20 5b 69 6e 73 65 72 74 2d 65 6e 64 20 70 6f 73 20 62 75 66 66 65 72 ┆ ! " [insert-end pos buffer┆ 0x1340…1360 2d 66 69 6c 65 2d 6e 61 6d 65 20 6e 61 6d 65 20 6d 6f 64 69 66 69 65 64 20 64 65 6c 65 74 65 2d ┆-file-name name modified delete-┆ 0x1360…1380 72 65 67 69 6f 6e 20 73 65 74 2d 62 75 66 66 65 72 2d 6d 6f 64 69 66 69 65 64 2d 70 5d 20 33 29 ┆region set-buffer-modified-p] 3)┆ 0x1380…13a0 29 20 69 6e 73 65 72 74 2d 62 65 66 6f 72 65 2d 6d 61 72 6b 65 72 73 20 22 54 79 70 65 20 25 73 ┆) insert-before-markers "Type %s┆ 0x13a0…13c0 20 74 6f 20 63 6f 6e 74 69 6e 75 65 20 65 64 69 74 69 6e 67 2e 22 20 73 69 6e 67 6c 65 2d 6b 65 ┆ to continue editing." single-ke┆ 0x13c0…13d3 79 2d 64 65 73 63 72 69 70 74 69 6f 6e 5d 20 36 29 29 0a ┆y-description] 6)) ┆