DataMuseum.dk

top - metrics - download

    Length: 5042 (0x13b2)
    Names: »subr.elc«

└─⟦a05ed705a⟧ Bits:30007078 DKUUG GNU 2/12/89
    └─⟦46d41b2d0⟧ »./emacs-18.55.tar.Z« 
        └─⟦fa971747f⟧ 
            └─⟦this⟧ »dist-18.55/lisp/subr.elc« 

Hex Dump

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 c2 c1 20 08 85 0a 00 c0 5c   ┆active." (byte-code "          \┆
0x00c0…00e0 22 3d 87 22 20 5b 61 72 67 20 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 20 6e 65 78 74 2d 77   ┆"= " [arg selected-window next-w┆
0x00e0…0100 69 6e 64 6f 77 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20 72 65 61 64 2d 71 75 6f 74 65 64 2d 63   ┆indow] 6))  (defun read-quoted-c┆
0x0100…0120 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 60   ┆har (&optional prompt) "\ Like `┆
0x0120…0140 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 66   ┆read-char', except that if the f┆
0x0140…0160 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 0a   ┆irst character read is an octal ┆
0x0160…0180 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 63   ┆digit, we read up to two more oc┆
0x0180…01a0 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 63   ┆tal digits and return the charac┆
0x01a0…01c0 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 6d   ┆ter represented by the octal num┆
0x01c0…01e0 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 0a   ┆ber consisting of those digits. ┆
0x01e0…0200 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 69   ┆Optional argument PROMPT specifi┆
0x0200…0220 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 65   ┆es a string to use to prompt the┆
0x0220…0240 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 00   ┆ user." (byte-code "        W u ┆
0x0240…0260 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 88   ┆  !            \" r     )     * ┆
0x0260…0280 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 10   ┆ ? q   X 9   X ]    \"  Z\\  T  ┆
0x0280…02a0 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 10   ┆    Z       #   ! q   V l       ┆
0x02a0…02c0 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 64   ┆ q              \"+ " [count cod┆
0x02c0…02e0 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 69   ┆e char inhibit-quit help-form ni┆
0x02e0…0300 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 6e   ┆l prompt quit-flag unread-comman┆
0x0300…0320 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 22   ┆d-char t 0 3 zerop message "%s-"┆
0x0320…0340 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 6f   ┆ 48 55 * 8 format "%s %c" 259 lo┆
0x0340…0360 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 65   ┆gand 255] 9))  (defun error (&re┆
0x0360…0380 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 6b   ┆st args) "\ Signal an error, mak┆
0x0380…03a0 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 6c   ┆ing error message by passing all┆
0x03a0…03c0 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 22   ┆ args to `format'." (byte-code "┆
0x03c0…03e0 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 67   ┆         \"C\"     " [t args sig┆
0x03e0…0400 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 65   ┆nal error apply format] 6))  (de┆
0x0400…0420 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 20   ┆fun undefined nil (interactive) ┆
0x0420…0440 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 29   ┆(byte-code "     " [nil ding] 2)┆
0x0440…0460 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 65   ┆)  (put (quote undefined) (quote┆
0x0460…0480 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 70   ┆ suppress-keymap) t)  (defun sup┆
0x0480…04a0 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 29   ┆press-keymap (map &optional arg)┆
0x04a0…04c0 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 72   ┆ "\ Make MAP override all buffer┆
0x04c0…04e0 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 69   ┆-modifying commands to be undefi┆
0x04e0…0500 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 6d   ┆ned. Works by knowing which comm┆
0x0500…0520 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 69   ┆ands are normally buffer-modifyi┆
0x0520…0540 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 73   ┆ng. Normally also makes digits s┆
0x0540…0560 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 63   ┆et numeric arg, but optional sec┆
0x0560…0580 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 74   ┆ond arg NODIGITS non-nil prevent┆
0x0580…05a0 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 c6   ┆s this." (byte-code "    W      ┆
0x05a0…05c0 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 39   ┆I  T      )   :      I       X 9┆
0x05c0…05e0 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 6f   ┆    I  T    & ) " [i map arg loo┆
0x05e0…0600 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 69   ┆p 32 127 undefined nil 45 negati┆
0x0600…0620 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 74   ┆ve-argument 48 57 digit-argument┆
0x0620…0640 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 66   ┆] 4))  (defun substitute-key-def┆
0x0640…0660 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 22   ┆inition (olddef newdef keymap) "┆
0x0660…0680 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 72   ┆\ Replace OLDDEF with NEWDEF for┆
0x0680…06a0 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 20   ┆ any keys in KEYMAP now defined ┆
0x06a0…06c0 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 45   ┆as OLDDEF. In other words, OLDDE┆
0x06c0…06e0 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 20   ┆F is replaced with NEWDEF where ┆
0x06e0…0700 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 08   ┆ever it appears." (byte-code "  ┆
0x0700…0720 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 12   ┆! *  G     W &   H =      I  T  ┆
0x0720…0740 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 89   ┆    * F   F    !! = =   @ \"  A ┆
0x0740…0760 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 77   ┆   *  " [keymap len i olddef new┆
0x0760…0780 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 73   ┆def arrayp 0 cdr-safe car-safe s┆
0x0780…07a0 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 29   ┆etcdr] 7))  (fset (quote ignore)┆
0x07a0…07c0 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 6e   ┆ (quote (lambda (&rest ignore) n┆
0x07c0…07e0 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 2d   ┆il)))  (fset (quote make-syntax-┆
0x07e0…0800 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 29   ┆table) (quote copy-syntax-table)┆
0x0800…0820 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 6e   ┆)  (fset (quote dot) (quote poin┆
0x0820…0840 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 71   ┆t))  (fset (quote dot-marker) (q┆
0x0840…0860 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 74   ┆uote point-marker))  (fset (quot┆
0x0860…0880 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 28   ┆e dot-min) (quote point-min))  (┆
0x0880…08a0 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 6e   ┆fset (quote dot-max) (quote poin┆
0x08a0…08c0 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 74   ┆t-max))  (fset (quote window-dot┆
0x08c0…08e0 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 28   ┆) (quote window-point))  (fset (┆
0x08e0…0900 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 74   ┆quote set-window-dot) (quote set┆
0x0900…0920 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 65   ┆-window-point))  (fset (quote re┆
0x0920…0940 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 0a   ┆ad-input) (quote read-string))  ┆
0x0940…0960 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 65   ┆(fset (quote send-string) (quote┆
0x0960…0980 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 71   ┆ process-send-string))  (fset (q┆
0x0980…09a0 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 73   ┆uote send-region) (quote process┆
0x09a0…09c0 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 6f   ┆-send-region))  (fset (quote sho┆
0x09c0…09e0 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 66   ┆w-buffer) (quote set-window-buff┆
0x09e0…0a00 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 6f   ┆er))  (fset (quote string=) (quo┆
0x0a00…0a20 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 20   ┆te string-equal))  (fset (quote ┆
0x0a20…0a40 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 0a   ┆string<) (quote string-lessp))  ┆
0x0a40…0a60 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 66   ┆(fset (quote mod) (quote %))  (f┆
0x0a60…0a80 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 73   ┆set (quote move-marker) (quote s┆
0x0a80…0aa0 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 28   ┆et-marker))  (fset (quote eql) (┆
0x0aa0…0ac0 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 71   ┆quote eq))  (fset (quote not) (q┆
0x0ac0…0ae0 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 72   ┆uote null))  (fset (quote number┆
0x0ae0…0b00 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 6f   ┆p) (quote integerp))  (fset (quo┆
0x0b00…0b20 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 65   ┆te rplaca) (quote setcar))  (fse┆
0x0b20…0b40 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 29   ┆t (quote rplacd) (quote setcdr))┆
0x0b40…0b60 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 67   ┆  (fset (quote beep) (quote ding┆
0x0b60…0b80 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 6d   ┆))  (fset (quote indent-to-colum┆
0x0b80…0ba0 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 75   ┆n) (quote indent-to))  (fset (qu┆
0x0ba0…0bc0 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 65   ┆ote backward-delete-char) (quote┆
0x0bc0…0be0 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 72   ┆ delete-backward-char))  (defvar┆
0x0be0…0c00 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 61   ┆ global-map nil "\ Default globa┆
0x0c00…0c20 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 20   ┆l keymap mapping Emacs keyboard ┆
0x0c20…0c40 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 69   ┆input into commands. The value i┆
0x0c40…0c60 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 74   ┆s a keymap which is usually (but┆
0x0c60…0c80 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 6c   ┆ not necessarily) Emacs's global┆
0x0c80…0ca0 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 22   ┆ map.")  (defvar ctl-x-map nil "┆
0x0ca0…0cc0 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 64   ┆\ Default keymap for C-x command┆
0x0cc0…0ce0 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 20   ┆s. The normal global definition ┆
0x0ce0…0d00 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 74   ┆of the character C-x indirects t┆
0x0d00…0d20 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 61   ┆o this keymap.")  (defvar esc-ma┆
0x0d20…0d40 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 20   ┆p nil "\ Default keymap for ESC ┆
0x0d40…0d60 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 62   ┆(meta) commands. The normal glob┆
0x0d60…0d80 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 45   ┆al definition of the character E┆
0x0d80…0da0 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 0a   ┆SC indirects to this keymap.")  ┆
0x0da0…0dc0 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 20   ┆(defvar mouse-map nil "\ Keymap ┆
0x0dc0…0de0 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 69   ┆for mouse commands from the X wi┆
0x0de0…0e00 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 73   ┆ndow system.")  (defun run-hooks┆
0x0e00…0e20 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 20   ┆ (&rest hooklist) "\ Takes hook ┆
0x0e20…0e40 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 2e   ┆names and runs each one in turn.┆
0x0e40…0e60 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 2e   ┆  Major mode functions use this.┆
0x0e60…0e80 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 6f   ┆ Each argument should be a symbo┆
0x0e80…0ea0 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 6c   ┆l, a hook variable. These symbol┆
0x0ea0…0ec0 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 65   ┆s are processed in the order spe┆
0x0ec0…0ee0 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 6e   ┆cified. If a hook symbol has a n┆
0x0ee0…0f00 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 20   ┆on-nil value, that value may be ┆
0x0f00…0f20 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 6e   ┆a function or a list of function┆
0x0f20…0f40 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 0a   ┆s to be called to run the hook. ┆
0x0f40…0f60 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 69   ┆If the value is a function, it i┆
0x0f60…0f80 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 69   ┆s called with no arguments. If i┆
0x0f80…0fa0 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 61   ┆t is a list, the elements are ca┆
0x0fa0…0fc0 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 74   ┆lled, in order, with no argument┆
0x0fc0…0fe0 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 85   ┆s." (byte-code "  7  @   ! -  J ┆
0x0fe0…1000 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 88   ┆-  J  <    @ =? )    \" ,   !)) ┆
0x1000…1020 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 62   ┆ A       " [hooklist sym value b┆
0x1020…1040 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 29   ┆oundp lambda mapcar funcall] 6))┆
0x1040…1060 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 61   ┆  (defun momentary-string-displa┆
0x1060…1080 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 61   ┆y (string pos &optional exit-cha┆
0x1080…10a0 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 61   ┆r message) "\ Momentarily displa┆
0x10a0…10c0 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 44   ┆y STRING in the buffer at POS. D┆
0x10c0…10e0 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 63   ┆isplay remains until next charac┆
0x10e0…1100 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 49   ┆ter is typed. If the char is EXI┆
0x1100…1120 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 61   ┆T-CHAR (optional third arg, defa┆
0x1120…1140 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 68   ┆ult is SPC) it is swallowed; oth┆
0x1140…1160 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 69   ┆erwise it is then available as i┆
0x1160…1180 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 6c   ┆nput (as a command if nothing el┆
0x1180…11a0 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 66   ┆se). Display MESSAGE (optional f┆
0x11a0…11c0 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 20   ┆ourth arg) in the echo area. If ┆
0x11c0…11e0 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 20   ┆MESSAGE is nil, instructions to ┆
0x11e0…1200 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 65   ┆type EXIT-CHAR are displayed the┆
0x1200…1220 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 06   ┆re." (byte-code "               ┆
0x1220…1240 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 d0   ┆        b        ! `   )     /  ┆
0x1240…1260 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 74   ┆  !\" r     = C      )), " [exit┆
0x1260…1280 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 66   ┆-char buffer-read-only nil modif┆
0x1280…12a0 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 74   ┆ied name buffer-file-name insert┆
0x12a0…12c0 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 72   ┆-end pos string message char unr┆
0x12c0…12e0 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 66   ┆ead-command-char 32 buffer-modif┆
0x12e0…1300 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 0b   ┆ied-p ((byte-code "        \")  ┆
0x1300…1320 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 2d   ┆     ! " [insert-end pos buffer-┆
0x1320…1340 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 72   ┆file-name name modified delete-r┆
0x1340…1360 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 29   ┆egion set-buffer-modified-p] 3))┆
0x1360…1380 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 20   ┆ insert-before-markers "Type %s ┆
0x1380…13a0 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 79   ┆to continue editing." single-key┆
0x13a0…13b2 2d 64 65 73 63 72 69 70 74 69 6f 6e 5d 20 36 29 29 0a   ┆-description] 6)) ┆