|
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 - metrics - downloadIndex: c
Length: 4185 (0x1059)
Names: »chistory.elc«
└─⟦a05ed705a⟧ Bits:30007078 DKUUG GNU 2/12/89
└─⟦46d41b2d0⟧ »./emacs-18.55.tar.Z«
└─⟦fa971747f⟧
└─⟦this⟧ »dist-18.55/lisp/chistory.elc«
0x0000…0020 0a 28 70 72 6f 76 69 64 65 20 28 71 75 6f 74 65 20 63 68 69 73 74 6f 72 79 29 29 0a 0a 28 64 65 ┆ (provide (quote chistory)) (de┆
0x0020…0040 66 75 6e 20 72 65 70 65 61 74 2d 6d 61 74 63 68 69 6e 67 2d 63 6f 6d 70 6c 65 78 2d 63 6f 6d 6d ┆fun repeat-matching-complex-comm┆
0x0040…0060 61 6e 64 20 28 26 6f 70 74 69 6f 6e 61 6c 20 70 61 74 74 65 72 6e 29 20 22 5c 0a 45 64 69 74 20 ┆and (&optional pattern) "\ Edit ┆
0x0060…0080 61 6e 64 20 72 65 2d 65 76 61 6c 75 61 74 65 20 63 6f 6d 70 6c 65 78 20 63 6f 6d 6d 61 6e 64 20 ┆and re-evaluate complex command ┆
0x0080…00a0 77 69 74 68 20 6e 61 6d 65 20 6d 61 74 63 68 69 6e 67 20 50 41 54 54 45 52 4e 2e 0a 4d 61 74 63 ┆with name matching PATTERN. Matc┆
0x00a0…00c0 68 69 6e 67 20 6f 63 63 75 72 72 65 6e 63 65 73 20 61 72 65 20 64 69 73 70 6c 61 79 65 64 2c 20 ┆hing occurrences are displayed, ┆
0x00c0…00e0 6d 6f 73 74 20 72 65 63 65 6e 74 20 66 69 72 73 74 2c 20 75 6e 74 69 6c 20 79 6f 75 0a 73 65 6c ┆most recent first, until you sel┆
0x00e0…0100 65 63 74 20 61 20 66 6f 72 6d 20 66 6f 72 20 65 76 61 6c 75 61 74 69 6f 6e 2e 20 20 49 66 20 50 ┆ect a form for evaluation. If P┆
0x0100…0120 41 54 54 45 52 4e 20 69 73 20 65 6d 70 74 79 20 28 6f 72 20 6e 69 6c 29 2c 20 65 76 65 72 79 20 ┆ATTERN is empty (or nil), every ┆
0x0120…0140 66 6f 72 6d 0a 69 6e 20 74 68 65 20 63 6f 6d 6d 61 6e 64 20 68 69 73 74 6f 72 79 20 69 73 20 6f ┆form in the command history is o┆
0x0140…0160 66 66 65 72 65 64 2e 20 20 54 68 65 20 66 6f 72 6d 20 69 73 20 70 6c 61 63 65 64 20 69 6e 20 74 ┆ffered. The form is placed in t┆
0x0160…0180 68 65 20 6d 69 6e 69 62 75 66 66 65 72 0a 66 6f 72 20 65 64 69 74 69 6e 67 20 61 6e 64 20 74 68 ┆he minibuffer for editing and th┆
0x0180…01a0 65 20 72 65 73 75 6c 74 20 69 73 20 65 76 61 6c 75 61 74 65 64 2e 22 20 28 69 6e 74 65 72 61 63 ┆e result is evaluated." (interac┆
0x01a0…01c0 74 69 76 65 20 22 73 52 65 64 6f 20 43 6f 6d 6d 61 6e 64 20 28 72 65 67 65 78 70 29 3a 20 22 29 ┆tive "sRedo Command (regexp): ")┆
0x01c0…01e0 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 08 85 1d 00 c6 08 c7 c8 08 5c 22 86 11 00 08 47 c1 ┆ (byte-code " \" G ┆
0x01e0…0200 4f 89 10 c9 5c 22 85 1d 00 c1 89 10 88 0b c1 c1 1d 1c 1a 0a 85 2a 00 0d 3f 85 5d 00 0a 40 89 14 ┆O \" * ? ] @ ┆
0x0200…0220 88 08 3f 86 3e 00 c7 08 ca 0c 40 21 5c 22 85 4b 00 cb cc cd ce 0c 21 89 14 5c 22 21 83 55 00 0a ┆ ? > @!\" K ! \"! U ┆
0x0220…0240 40 89 15 82 59 00 0a 41 89 12 88 82 24 00 88 0d 3f 83 69 00 cf d0 21 82 6d 00 d1 d2 0d 5c 22 2b ┆@ Y A $ ? i ! m \"+┆
0x0240…0260 87 22 20 5b 70 61 74 74 65 72 6e 20 6e 69 6c 20 68 69 73 74 6f 72 79 20 63 6f 6d 6d 61 6e 64 2d ┆ " [pattern nil history command-┆
0x0260…0280 68 69 73 74 6f 72 79 20 74 65 6d 70 20 77 68 61 74 20 65 71 75 61 6c 20 73 74 72 69 6e 67 2d 6d ┆history temp what equal string-m┆
0x0280…02a0 61 74 63 68 20 22 5b 20 09 5d 2a 5b 5e 20 09 5d 22 20 22 22 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 ┆atch "[ ]*[^ ]" "" symbol-name┆
0x02a0…02c0 20 79 2d 6f 72 2d 6e 2d 70 20 66 6f 72 6d 61 74 20 22 52 65 64 6f 20 25 73 3f 20 22 20 70 72 69 ┆ y-or-n-p format "Redo %s? " pri┆
0x02c0…02e0 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 20 65 72 72 6f 72 20 22 43 6f 6d 6d 61 6e 64 20 68 69 73 74 ┆n1-to-string error "Command hist┆
0x02e0…0300 6f 72 79 20 65 78 68 61 75 73 74 65 64 2e 22 20 65 64 69 74 2d 61 6e 64 2d 65 76 61 6c 2d 63 6f ┆ory exhausted." edit-and-eval-co┆
0x0300…0320 6d 6d 61 6e 64 20 22 52 65 64 6f 3a 20 22 5d 20 31 31 29 29 0a 0a 28 64 65 66 76 61 72 20 64 65 ┆mmand "Redo: "] 11)) (defvar de┆
0x0320…0340 66 61 75 6c 74 2d 63 6f 6d 6d 61 6e 64 2d 68 69 73 74 6f 72 79 2d 66 69 6c 74 65 72 2d 67 61 72 ┆fault-command-history-filter-gar┆
0x0340…0360 62 61 67 65 20 28 71 75 6f 74 65 20 28 63 6f 6d 6d 61 6e 64 2d 68 69 73 74 6f 72 79 2d 6d 6f 64 ┆bage (quote (command-history-mod┆
0x0360…0380 65 20 6c 69 73 74 2d 63 6f 6d 6d 61 6e 64 2d 68 69 73 74 6f 72 79 20 65 6c 65 63 74 72 69 63 2d ┆e list-command-history electric-┆
0x0380…03a0 63 6f 6d 6d 61 6e 64 2d 68 69 73 74 6f 72 79 29 29 20 22 5c 0a 2a 41 20 6c 69 73 74 20 6f 66 20 ┆command-history)) "\ *A list of ┆
0x03a0…03c0 73 79 6d 62 6f 6c 73 2e 20 20 49 66 20 20 64 65 66 61 75 6c 74 2d 6c 69 73 74 2d 63 6f 6d 6d 61 ┆symbols. If default-list-comma┆
0x03c0…03e0 6e 64 2d 68 69 73 74 6f 72 79 2d 66 69 6c 74 65 72 20 20 69 73 0a 67 69 76 65 6e 20 61 20 6c 69 ┆nd-history-filter is given a li┆
0x03e0…0400 73 74 20 77 68 6f 73 65 20 63 61 72 20 69 73 20 61 6e 20 65 6c 65 6d 65 6e 74 20 6f 66 20 74 68 ┆st whose car is an element of th┆
0x0400…0420 69 73 20 6c 69 73 74 2c 20 74 68 65 6e 20 69 74 20 77 69 6c 6c 20 72 65 74 75 72 6e 0a 6e 6f 6e ┆is list, then it will return non┆
0x0420…0440 2d 6e 69 6c 20 28 69 6e 64 69 63 61 74 69 6e 67 20 74 68 65 20 6c 69 73 74 20 73 68 6f 75 6c 64 ┆-nil (indicating the list should┆
0x0440…0460 20 62 65 20 64 69 73 63 61 72 64 65 64 20 66 72 6f 6d 20 74 68 65 20 68 69 73 74 6f 72 79 29 2e ┆ be discarded from the history).┆
0x0460…0480 0a 49 6e 69 74 69 61 6c 6c 79 2c 20 61 6c 6c 20 63 6f 6d 6d 61 6e 64 73 20 72 65 6c 61 74 65 64 ┆ Initially, all commands related┆
0x0480…04a0 20 74 6f 20 74 68 65 20 63 6f 6d 6d 61 6e 64 20 68 69 73 74 6f 72 79 20 61 72 65 20 64 69 73 63 ┆ to the command history are disc┆
0x04a0…04c0 61 72 64 65 64 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 6c 69 73 74 2d 63 6f 6d 6d 61 6e 64 2d 68 ┆arded.") (defvar list-command-h┆
0x04c0…04e0 69 73 74 6f 72 79 2d 66 69 6c 74 65 72 20 28 71 75 6f 74 65 20 64 65 66 61 75 6c 74 2d 63 6f 6d ┆istory-filter (quote default-com┆
0x04e0…0500 6d 61 6e 64 2d 68 69 73 74 6f 72 79 2d 66 69 6c 74 65 72 29 20 22 5c 0a 49 66 20 6e 6f 6e 2d 6e ┆mand-history-filter) "\ If non-n┆
0x0500…0520 69 6c 2c 20 73 68 6f 75 6c 64 20 62 65 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 61 20 66 75 6e 63 ┆il, should be the name of a func┆
0x0520…0540 74 69 6f 6e 20 6f 66 20 6f 6e 65 20 61 72 67 75 6d 65 6e 74 2e 0a 49 74 20 69 73 20 70 61 73 73 ┆tion of one argument. It is pass┆
0x0540…0560 65 64 20 65 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 74 68 65 20 63 6f 6d 6d 61 6e 64 20 68 ┆ed each element of the command h┆
0x0560…0580 69 73 74 6f 72 79 20 77 68 65 6e 0a 5c 5c 5b 6c 69 73 74 2d 63 6f 6d 6d 61 6e 64 2d 68 69 73 74 ┆istory when \\[list-command-hist┆
0x0580…05a0 6f 72 79 5d 20 69 73 20 63 61 6c 6c 65 64 2e 20 20 49 66 20 74 68 65 20 66 69 6c 74 65 72 20 72 ┆ory] is called. If the filter r┆
0x05a0…05c0 65 74 75 72 6e 73 20 6e 6f 6e 2d 6e 69 6c 20 66 6f 72 0a 73 6f 6d 65 20 65 6c 65 6d 65 6e 74 2c ┆eturns non-nil for some element,┆
0x05c0…05e0 20 74 68 61 74 20 65 6c 65 6d 65 6e 74 20 69 73 20 65 78 63 6c 75 64 65 64 20 66 72 6f 6d 20 74 ┆ that element is excluded from t┆
0x05e0…0600 68 65 20 68 69 73 74 6f 72 79 20 6c 69 73 74 69 6e 67 2e 20 20 54 68 65 0a 64 65 66 61 75 6c 74 ┆he history listing. The default┆
0x0600…0620 20 66 69 6c 74 65 72 20 72 65 6d 6f 76 65 73 20 63 6f 6d 6d 61 6e 64 73 20 61 73 73 6f 63 69 61 ┆ filter removes commands associa┆
0x0620…0640 74 65 64 20 77 69 74 68 20 74 68 65 20 63 6f 6d 6d 61 6e 64 2d 68 69 73 74 6f 72 79 2e 22 29 0a ┆ted with the command-history.") ┆
0x0640…0660 0a 28 64 65 66 75 6e 20 64 65 66 61 75 6c 74 2d 63 6f 6d 6d 61 6e 64 2d 68 69 73 74 6f 72 79 2d ┆ (defun default-command-history-┆
0x0660…0680 66 69 6c 74 65 72 20 28 66 72 6f 62 29 20 22 5c 0a 46 69 6c 74 65 72 20 63 6f 6d 6d 61 6e 64 73 ┆filter (frob) "\ Filter commands┆
0x0680…06a0 20 6d 61 74 63 68 69 6e 67 20 20 64 65 66 61 75 6c 74 2d 63 6f 6d 6d 61 6e 64 2d 68 69 73 74 6f ┆ matching default-command-histo┆
0x06a0…06c0 72 79 2d 66 69 6c 74 65 72 2d 67 61 72 62 61 67 65 20 20 6c 69 73 74 0a 66 72 6f 6d 20 74 68 65 ┆ry-filter-garbage list from the┆
0x06c0…06e0 20 63 6f 6d 6d 61 6e 64 20 68 69 73 74 6f 72 79 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 ┆ command history." (byte-code " ┆
0x06e0…0700 3a 3f 86 0a 00 08 40 09 3e 87 22 20 5b 66 72 6f 62 20 64 65 66 61 75 6c 74 2d 63 6f 6d 6d 61 6e ┆:? @ > " [frob default-comman┆
0x0700…0720 64 2d 68 69 73 74 6f 72 79 2d 66 69 6c 74 65 72 2d 67 61 72 62 61 67 65 5d 20 32 29 29 0a 0a 28 ┆d-history-filter-garbage] 2)) (┆
0x0720…0740 64 65 66 76 61 72 20 6c 69 73 74 2d 63 6f 6d 6d 61 6e 64 2d 68 69 73 74 6f 72 79 2d 6d 61 78 20 ┆defvar list-command-history-max ┆
0x0740…0760 33 32 20 22 5c 0a 2a 49 66 20 6e 6f 6e 2d 6e 69 6c 2c 20 73 68 6f 75 6c 64 20 62 65 20 61 20 70 ┆32 "\ *If non-nil, should be a p┆
0x0760…0780 6f 73 69 74 69 76 65 20 6e 75 6d 62 65 72 20 77 68 69 63 68 20 73 70 65 63 69 66 69 65 73 20 74 ┆ositive number which specifies t┆
0x0780…07a0 68 65 20 6d 61 78 69 6d 75 6d 0a 6c 65 6e 67 74 68 20 6f 66 20 74 68 65 20 43 6f 6d 6d 61 6e 64 ┆he maximum length of the Command┆
0x07a0…07c0 20 48 69 73 74 6f 72 79 20 6c 69 73 74 69 6e 67 20 70 72 6f 64 75 63 65 64 20 62 79 20 6c 69 73 ┆ History listing produced by lis┆
0x07c0…07e0 74 2d 63 6f 6d 6d 61 6e 64 2d 68 69 73 74 6f 72 79 2e 22 29 0a 0a 28 64 65 66 75 6e 20 6c 69 73 ┆t-command-history.") (defun lis┆
0x07e0…0800 74 2d 63 6f 6d 6d 61 6e 64 2d 68 69 73 74 6f 72 79 20 6e 69 6c 20 22 5c 0a 4c 69 73 74 20 68 69 ┆t-command-history nil "\ List hi┆
0x0800…0820 73 74 6f 72 79 20 6f 66 20 63 6f 6d 6d 61 6e 64 73 20 74 79 70 65 64 20 74 6f 20 6d 69 6e 69 62 ┆story of commands typed to minib┆
0x0820…0840 75 66 66 65 72 2e 0a 54 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 63 6f 6d 6d 61 6e 64 73 20 6c 69 ┆uffer. The number of commands li┆
0x0840…0860 73 74 65 64 20 69 73 20 63 6f 6e 74 72 6f 6c 6c 65 64 20 62 79 20 20 6c 69 73 74 2d 63 6f 6d 6d ┆sted is controlled by list-comm┆
0x0860…0880 61 6e 64 2d 68 69 73 74 6f 72 79 2d 6d 61 78 2e 0a 43 61 6c 6c 73 20 76 61 6c 75 65 20 6f 66 20 ┆and-history-max. Calls value of ┆
0x0880…08a0 20 6c 69 73 74 2d 63 6f 6d 6d 61 6e 64 2d 68 69 73 74 6f 72 79 2d 66 69 6c 74 65 72 20 20 28 69 ┆ list-command-history-filter (i┆
0x08a0…08c0 66 20 6e 6f 6e 2d 6e 69 6c 29 20 6f 6e 20 65 61 63 68 20 68 69 73 74 6f 72 79 0a 65 6c 65 6d 65 ┆f non-nil) on each history eleme┆
0x08c0…08e0 6e 74 20 74 6f 20 6a 75 64 67 65 20 69 66 20 74 68 61 74 20 65 6c 65 6d 65 6e 74 20 73 68 6f 75 ┆nt to judge if that element shou┆
0x08e0…0900 6c 64 20 62 65 20 65 78 63 6c 75 64 65 64 20 66 72 6f 6d 20 74 68 65 20 6c 69 73 74 2e 0a 0a 54 ┆ld be excluded from the list. T┆
0x0900…0920 68 65 20 62 75 66 66 65 72 20 69 73 20 6c 65 66 74 20 69 6e 20 43 6f 6d 6d 61 6e 64 20 48 69 73 ┆he buffer is left in Command His┆
0x0920…0940 74 6f 72 79 20 6d 6f 64 65 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d ┆tory mode." (interactive) (byte-┆
0x0940…0960 63 6f 64 65 20 22 c3 88 c7 90 09 c3 0d 86 0b 00 c8 1c 1a 18 c9 0c ca 5c 22 85 16 00 08 85 46 00 ┆code " \" F ┆
0x0960…0980 cb c6 21 85 2a 00 0e 06 85 2a 00 cc 0e 06 08 40 5c 22 83 31 00 c3 82 3d 00 0c 53 89 14 88 cd 08 ┆ ! * * @\" 1 = S ┆
0x0980…09a0 40 21 88 ce 20 88 08 41 89 10 88 82 0e 00 2b 88 8a c7 71 88 65 62 88 6d 83 59 00 cf d0 21 82 5b ┆@! A + q eb m Y ! [┆
0x09a0…09c0 00 d1 20 29 91 87 22 20 5b 68 69 73 74 6f 72 79 20 63 6f 6d 6d 61 6e 64 2d 68 69 73 74 6f 72 79 ┆ ) " [history command-history┆
0x09c0…09e0 20 62 75 66 66 65 72 2d 72 65 61 64 2d 6f 6e 6c 79 20 6e 69 6c 20 63 6f 75 6e 74 20 6c 69 73 74 ┆ buffer-read-only nil count list┆
0x09e0…0a00 2d 63 6f 6d 6d 61 6e 64 2d 68 69 73 74 6f 72 79 2d 6d 61 78 20 6c 69 73 74 2d 63 6f 6d 6d 61 6e ┆-command-history-max list-comman┆
0x0a00…0a20 64 2d 68 69 73 74 6f 72 79 2d 66 69 6c 74 65 72 20 22 2a 43 6f 6d 6d 61 6e 64 20 48 69 73 74 6f ┆d-history-filter "*Command Histo┆
0x0a20…0a40 72 79 2a 22 20 2d 31 20 2f 3d 20 30 20 62 6f 75 6e 64 70 20 66 75 6e 63 61 6c 6c 20 70 72 69 6e ┆ry*" -1 /= 0 boundp funcall prin┆
0x0a40…0a60 31 20 74 65 72 70 72 69 20 65 72 72 6f 72 20 22 4e 6f 20 63 6f 6d 6d 61 6e 64 20 68 69 73 74 6f ┆1 terpri error "No command histo┆
0x0a60…0a80 72 79 2e 22 20 43 6f 6d 6d 61 6e 64 2d 68 69 73 74 6f 72 79 2d 73 65 74 75 70 5d 20 39 29 29 0a ┆ry." Command-history-setup] 9)) ┆
0x0a80…0aa0 0a 28 64 65 66 75 6e 20 43 6f 6d 6d 61 6e 64 2d 68 69 73 74 6f 72 79 2d 73 65 74 75 70 20 28 26 ┆ (defun Command-history-setup (&┆
0x0aa0…0ac0 6f 70 74 69 6f 6e 61 6c 20 6d 61 6a 6f 72 6d 6f 64 65 20 6d 6f 64 65 6e 61 6d 65 20 6b 65 79 6d ┆optional majormode modename keym┆
0x0ac0…0ae0 61 70 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 ca 71 88 cb 08 86 09 00 09 21 88 cc c2 21 88 cd ┆ap) (byte-code " q ! ! ┆
0x0ae0…0b00 0b 21 88 c5 89 14 88 cb 08 86 1d 00 09 21 88 0e 07 86 25 00 ce 89 16 06 88 0e 09 86 2f 00 cf 89 ┆ ! ! % / ┆
0x0b00…0b20 16 08 87 22 20 5b 6b 65 79 6d 61 70 20 63 6f 6d 6d 61 6e 64 2d 68 69 73 74 6f 72 79 2d 6d 61 70 ┆ " [keymap command-history-map┆
0x0b20…0b40 20 6e 69 6c 20 65 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c ┆ nil emacs-lisp-mode-syntax-tabl┆
0x0b40…0b60 65 20 62 75 66 66 65 72 2d 72 65 61 64 2d 6f 6e 6c 79 20 74 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 ┆e buffer-read-only t major-mode ┆
0x0b60…0b80 6d 61 6a 6f 72 6d 6f 64 65 20 6d 6f 64 65 2d 6e 61 6d 65 20 6d 6f 64 65 6e 61 6d 65 20 22 2a 43 ┆majormode mode-name modename "*C┆
0x0b80…0ba0 6f 6d 6d 61 6e 64 20 48 69 73 74 6f 72 79 2a 22 20 75 73 65 2d 6c 6f 63 61 6c 2d 6d 61 70 20 6c ┆ommand History*" use-local-map l┆
0x0ba0…0bc0 69 73 70 2d 6d 6f 64 65 2d 76 61 72 69 61 62 6c 65 73 20 73 65 74 2d 73 79 6e 74 61 78 2d 74 61 ┆isp-mode-variables set-syntax-ta┆
0x0bc0…0be0 62 6c 65 20 63 6f 6d 6d 61 6e 64 2d 68 69 73 74 6f 72 79 2d 6d 6f 64 65 20 22 43 6f 6d 6d 61 6e ┆ble command-history-mode "Comman┆
0x0be0…0c00 64 20 48 69 73 74 6f 72 79 22 5d 20 36 29 29 0a 0a 28 64 65 66 76 61 72 20 63 6f 6d 6d 61 6e 64 ┆d History"] 6)) (defvar command┆
0x0c00…0c20 2d 68 69 73 74 6f 72 79 2d 68 6f 6f 6b 20 6e 69 6c 20 22 5c 0a 49 66 20 6e 6f 6e 2d 6e 69 6c 2c ┆-history-hook nil "\ If non-nil,┆
0x0c20…0c40 20 69 74 73 20 76 61 6c 75 65 20 69 73 20 63 61 6c 6c 65 64 20 6f 6e 20 65 6e 74 72 79 20 74 6f ┆ its value is called on entry to┆
0x0c40…0c60 20 20 63 6f 6d 6d 61 6e 64 2d 68 69 73 74 6f 72 79 2d 6d 6f 64 65 2e 22 29 0a 0a 28 64 65 66 76 ┆ command-history-mode.") (defv┆
0x0c60…0c80 61 72 20 63 6f 6d 6d 61 6e 64 2d 68 69 73 74 6f 72 79 2d 6d 61 70 20 6e 69 6c 29 0a 0a 28 69 66 ┆ar command-history-map nil) (if┆
0x0c80…0ca0 20 63 6f 6d 6d 61 6e 64 2d 68 69 73 74 6f 72 79 2d 6d 61 70 20 6e 69 6c 20 28 73 65 74 71 20 63 ┆ command-history-map nil (setq c┆
0x0ca0…0cc0 6f 6d 6d 61 6e 64 2d 68 69 73 74 6f 72 79 2d 6d 61 70 20 28 6d 61 6b 65 2d 6b 65 79 6d 61 70 29 ┆ommand-history-map (make-keymap)┆
0x0cc0…0ce0 29 20 28 6c 69 73 70 2d 6d 6f 64 65 2d 63 6f 6d 6d 61 6e 64 73 20 63 6f 6d 6d 61 6e 64 2d 68 69 ┆) (lisp-mode-commands command-hi┆
0x0ce0…0d00 73 74 6f 72 79 2d 6d 61 70 29 20 28 73 75 70 70 72 65 73 73 2d 6b 65 79 6d 61 70 20 63 6f 6d 6d ┆story-map) (suppress-keymap comm┆
0x0d00…0d20 61 6e 64 2d 68 69 73 74 6f 72 79 2d 6d 61 70 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 63 6f 6d ┆and-history-map) (define-key com┆
0x0d20…0d40 6d 61 6e 64 2d 68 69 73 74 6f 72 79 2d 6d 61 70 20 22 0a 22 20 28 71 75 6f 74 65 20 6e 65 78 74 ┆mand-history-map " " (quote next┆
0x0d40…0d60 2d 6c 69 6e 65 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 63 6f 6d 6d 61 6e 64 2d 68 69 73 74 ┆-line)) (define-key command-hist┆
0x0d60…0d80 6f 72 79 2d 6d 61 70 20 22 0d 22 20 28 71 75 6f 74 65 20 6e 65 78 74 2d 6c 69 6e 65 29 29 20 28 ┆ory-map " " (quote next-line)) (┆
0x0d80…0da0 64 65 66 69 6e 65 2d 6b 65 79 20 63 6f 6d 6d 61 6e 64 2d 68 69 73 74 6f 72 79 2d 6d 61 70 20 22 ┆define-key command-history-map "┆
0x0da0…0dc0 7f 22 20 28 71 75 6f 74 65 20 70 72 65 76 69 6f 75 73 2d 6c 69 6e 65 29 29 29 0a 0a 28 64 65 66 ┆ " (quote previous-line))) (def┆
0x0dc0…0de0 75 6e 20 63 6f 6d 6d 61 6e 64 2d 68 69 73 74 6f 72 79 2d 6d 6f 64 65 20 6e 69 6c 20 22 5c 0a 4d ┆un command-history-mode nil "\ M┆
0x0de0…0e00 61 6a 6f 72 20 6d 6f 64 65 20 66 6f 72 20 65 78 61 6d 69 6e 69 6e 67 20 63 6f 6d 6d 61 6e 64 73 ┆ajor mode for examining commands┆
0x0e00…0e20 20 66 72 6f 6d 20 20 63 6f 6d 6d 61 6e 64 2d 68 69 73 74 6f 72 79 2e 0a 54 68 65 20 6e 75 6d 62 ┆ from command-history. The numb┆
0x0e20…0e40 65 72 20 6f 66 20 63 6f 6d 6d 61 6e 64 73 20 6c 69 73 74 65 64 20 69 73 20 63 6f 6e 74 72 6f 6c ┆er of commands listed is control┆
0x0e40…0e60 6c 65 64 20 62 79 20 20 6c 69 73 74 2d 63 6f 6d 6d 61 6e 64 2d 68 69 73 74 6f 72 79 2d 6d 61 78 ┆led by list-command-history-max┆
0x0e60…0e80 2e 0a 54 68 65 20 63 6f 6d 6d 61 6e 64 20 68 69 73 74 6f 72 79 20 69 73 20 66 69 6c 74 65 72 65 ┆. The command history is filtere┆
0x0e80…0ea0 64 20 62 79 20 20 6c 69 73 74 2d 63 6f 6d 6d 61 6e 64 2d 68 69 73 74 6f 72 79 2d 66 69 6c 74 65 ┆d by list-command-history-filte┆
0x0ea0…0ec0 72 20 20 69 66 20 6e 6f 6e 2d 6e 69 6c 2e 0a 0a 4c 69 6b 65 20 45 6d 61 63 73 2d 4c 69 73 70 20 ┆r if non-nil. Like Emacs-Lisp ┆
0x0ec0…0ee0 4d 6f 64 65 20 65 78 63 65 70 74 20 74 68 61 74 20 63 68 61 72 61 63 74 65 72 73 20 64 6f 20 6e ┆Mode except that characters do n┆
0x0ee0…0f00 6f 74 20 69 6e 73 65 72 74 20 74 68 65 6d 73 65 6c 76 65 73 20 61 6e 64 0a 44 69 67 69 74 73 20 ┆ot insert themselves and Digits ┆
0x0f00…0f20 70 72 6f 76 69 64 65 20 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 73 2e 20 20 54 61 62 20 64 ┆provide prefix arguments. Tab d┆
0x0f20…0f40 6f 65 73 20 6e 6f 74 20 69 6e 64 65 6e 74 2e 0a 5c 5c 7b 63 6f 6d 6d 61 6e 64 2d 68 69 73 74 6f ┆oes not indent. \\{command-histo┆
0x0f40…0f60 72 79 2d 6d 61 70 7d 0a 43 61 6c 6c 73 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 20 63 6f 6d 6d ┆ry-map} Calls the value of comm┆
0x0f60…0f80 61 6e 64 2d 68 69 73 74 6f 72 79 2d 68 6f 6f 6b 20 20 69 66 20 74 68 61 74 20 69 73 20 6e 6f 6e ┆and-history-hook if that is non┆
0x0f80…0fa0 2d 6e 69 6c 0a 54 68 65 20 43 6f 6d 6d 61 6e 64 20 48 69 73 74 6f 72 79 20 6c 69 73 74 69 6e 67 ┆-nil The Command History listing┆
0x0fa0…0fc0 20 69 73 20 72 65 63 6f 6d 70 75 74 65 64 20 65 61 63 68 20 74 69 6d 65 20 74 68 69 73 20 6d 6f ┆ is recomputed each time this mo┆
0x0fc0…0fe0 64 65 20 69 73 0a 69 6e 76 6f 6b 65 64 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 ┆de is invoked." (interactive) (b┆
0x0fe0…1000 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 20 88 c2 c3 21 88 c4 c5 21 87 22 20 5b 6e 69 6c 20 6c 69 ┆yte-code " ! ! " [nil li┆
0x1000…1020 73 74 2d 63 6f 6d 6d 61 6e 64 2d 68 69 73 74 6f 72 79 20 70 6f 70 2d 74 6f 2d 62 75 66 66 65 72 ┆st-command-history pop-to-buffer┆
0x1020…1040 20 22 2a 43 6f 6d 6d 61 6e 64 20 48 69 73 74 6f 72 79 2a 22 20 72 75 6e 2d 68 6f 6f 6b 73 20 63 ┆ "*Command History*" run-hooks c┆
0x1040…1059 6f 6d 6d 61 6e 64 2d 68 69 73 74 6f 72 79 2d 68 6f 6f 6b 5d 20 34 29 29 0a ┆ommand-history-hook] 4)) ┆