home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1991-01-10 | 4.1 KB |
view JSON data
|
view as text
|
open on a Mac
|
open on a PC
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 100%
| file
| Emacs v18 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| gt2
| Kopftext: '(provide (quote chistory))
| default (weak)
| |
| 100%
| detectItEasy
| Format: plain text[LF]
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0a 28 70 72 6f 76 69 64 | 65 20 28 71 75 6f 74 65 |.(provid|e (quote|
|00000010| 20 63 68 69 73 74 6f 72 | 79 29 29 0a 0a 28 64 65 | chistor|y))..(de|
|00000020| 66 75 6e 20 72 65 70 65 | 61 74 2d 6d 61 74 63 68 |fun repe|at-match|
|00000030| 69 6e 67 2d 63 6f 6d 70 | 6c 65 78 2d 63 6f 6d 6d |ing-comp|lex-comm|
|00000040| 61 6e 64 20 28 26 6f 70 | 74 69 6f 6e 61 6c 20 70 |and (&op|tional p|
|00000050| 61 74 74 65 72 6e 29 20 | 22 5c 0a 45 64 69 74 20 |attern) |"\.Edit |
|00000060| 61 6e 64 20 72 65 2d 65 | 76 61 6c 75 61 74 65 20 |and re-e|valuate |
|00000070| 63 6f 6d 70 6c 65 78 20 | 63 6f 6d 6d 61 6e 64 20 |complex |command |
|00000080| 77 69 74 68 20 6e 61 6d | 65 20 6d 61 74 63 68 69 |with nam|e matchi|
|00000090| 6e 67 20 50 41 54 54 45 | 52 4e 2e 0a 4d 61 74 63 |ng PATTE|RN..Matc|
|000000a0| 68 69 6e 67 20 6f 63 63 | 75 72 72 65 6e 63 65 73 |hing occ|urrences|
|000000b0| 20 61 72 65 20 64 69 73 | 70 6c 61 79 65 64 2c 20 | are dis|played, |
|000000c0| 6d 6f 73 74 20 72 65 63 | 65 6e 74 20 66 69 72 73 |most rec|ent firs|
|000000d0| 74 2c 20 75 6e 74 69 6c | 20 79 6f 75 0a 73 65 6c |t, until| you.sel|
|000000e0| 65 63 74 20 61 20 66 6f | 72 6d 20 66 6f 72 20 65 |ect a fo|rm for e|
|000000f0| 76 61 6c 75 61 74 69 6f | 6e 2e 20 20 49 66 20 50 |valuatio|n. If P|
|00000100| 41 54 54 45 52 4e 20 69 | 73 20 65 6d 70 74 79 20 |ATTERN i|s empty |
|00000110| 28 6f 72 20 6e 69 6c 29 | 2c 20 65 76 65 72 79 20 |(or nil)|, every |
|00000120| 66 6f 72 6d 0a 69 6e 20 | 74 68 65 20 63 6f 6d 6d |form.in |the comm|
|00000130| 61 6e 64 20 68 69 73 74 | 6f 72 79 20 69 73 20 6f |and hist|ory is o|
|00000140| 66 66 65 72 65 64 2e 20 | 20 54 68 65 20 66 6f 72 |ffered. | The for|
|00000150| 6d 20 69 73 20 70 6c 61 | 63 65 64 20 69 6e 20 74 |m is pla|ced in t|
|00000160| 68 65 20 6d 69 6e 69 62 | 75 66 66 65 72 0a 66 6f |he minib|uffer.fo|
|00000170| 72 20 65 64 69 74 69 6e | 67 20 61 6e 64 20 74 68 |r editin|g and th|
|00000180| 65 20 72 65 73 75 6c 74 | 20 69 73 20 65 76 61 6c |e result| is eval|
|00000190| 75 61 74 65 64 2e 22 20 | 28 69 6e 74 65 72 61 63 |uated." |(interac|
|000001a0| 74 69 76 65 20 22 73 52 | 65 64 6f 20 43 6f 6d 6d |tive "sR|edo Comm|
|000001b0| 61 6e 64 20 28 72 65 67 | 65 78 70 29 3a 20 22 29 |and (reg|exp): ")|
|000001c0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c1 88 08 | (byte-c|ode "...|
|000001d0| 85 1d 00 c6 08 c7 c8 08 | 5c 22 86 11 00 08 47 c1 |........|\"....G.|
|000001e0| 4f 89 10 c9 5c 22 85 1d | 00 c1 89 10 88 0b c1 c1 |O...\"..|........|
|000001f0| 1d 1c 1a 0a 85 2a 00 0d | 3f 85 5d 00 0a 40 89 14 |.....*..|?.]..@..|
|00000200| 88 08 3f 86 3e 00 c7 08 | ca 0c 40 21 5c 22 85 4b |..?.>...|..@!\".K|
|00000210| 00 cb cc cd ce 0c 21 89 | 14 5c 22 21 83 55 00 0a |......!.|.\"!.U..|
|00000220| 40 89 15 82 59 00 0a 41 | 89 12 88 82 24 00 88 0d |@...Y..A|....$...|
|00000230| 3f 83 69 00 cf d0 21 82 | 6d 00 d1 d2 0d 5c 22 2b |?.i...!.|m....\"+|
|00000240| 87 22 20 5b 70 61 74 74 | 65 72 6e 20 6e 69 6c 20 |." [patt|ern nil |
|00000250| 68 69 73 74 6f 72 79 20 | 63 6f 6d 6d 61 6e 64 2d |history |command-|
|00000260| 68 69 73 74 6f 72 79 20 | 74 65 6d 70 20 77 68 61 |history |temp wha|
|00000270| 74 20 65 71 75 61 6c 20 | 73 74 72 69 6e 67 2d 6d |t equal |string-m|
|00000280| 61 74 63 68 20 22 5b 20 | 09 5d 2a 5b 5e 20 09 5d |atch "[ |.]*[^ .]|
|00000290| 22 20 22 22 20 73 79 6d | 62 6f 6c 2d 6e 61 6d 65 |" "" sym|bol-name|
|000002a0| 20 79 2d 6f 72 2d 6e 2d | 70 20 66 6f 72 6d 61 74 | y-or-n-|p format|
|000002b0| 20 22 52 65 64 6f 20 25 | 73 3f 20 22 20 70 72 69 | "Redo %|s? " pri|
|000002c0| 6e 31 2d 74 6f 2d 73 74 | 72 69 6e 67 20 65 72 72 |n1-to-st|ring err|
|000002d0| 6f 72 20 22 43 6f 6d 6d | 61 6e 64 20 68 69 73 74 |or "Comm|and hist|
|000002e0| 6f 72 79 20 65 78 68 61 | 75 73 74 65 64 2e 22 20 |ory exha|usted." |
|000002f0| 65 64 69 74 2d 61 6e 64 | 2d 65 76 61 6c 2d 63 6f |edit-and|-eval-co|
|00000300| 6d 6d 61 6e 64 20 22 52 | 65 64 6f 3a 20 22 5d 20 |mmand "R|edo: "] |
|00000310| 31 31 29 29 0a 0a 28 64 | 65 66 76 61 72 20 64 65 |11))..(d|efvar de|
|00000320| 66 61 75 6c 74 2d 63 6f | 6d 6d 61 6e 64 2d 68 69 |fault-co|mmand-hi|
|00000330| 73 74 6f 72 79 2d 66 69 | 6c 74 65 72 2d 67 61 72 |story-fi|lter-gar|
|00000340| 62 61 67 65 20 28 71 75 | 6f 74 65 20 28 63 6f 6d |bage (qu|ote (com|
|00000350| 6d 61 6e 64 2d 68 69 73 | 74 6f 72 79 2d 6d 6f 64 |mand-his|tory-mod|
|00000360| 65 20 6c 69 73 74 2d 63 | 6f 6d 6d 61 6e 64 2d 68 |e list-c|ommand-h|
|00000370| 69 73 74 6f 72 79 20 65 | 6c 65 63 74 72 69 63 2d |istory e|lectric-|
|00000380| 63 6f 6d 6d 61 6e 64 2d | 68 69 73 74 6f 72 79 29 |command-|history)|
|00000390| 29 20 22 5c 0a 2a 41 20 | 6c 69 73 74 20 6f 66 20 |) "\.*A |list of |
|000003a0| 73 79 6d 62 6f 6c 73 2e | 20 20 49 66 20 20 64 65 |symbols.| If de|
|000003b0| 66 61 75 6c 74 2d 6c 69 | 73 74 2d 63 6f 6d 6d 61 |fault-li|st-comma|
|000003c0| 6e 64 2d 68 69 73 74 6f | 72 79 2d 66 69 6c 74 65 |nd-histo|ry-filte|
|000003d0| 72 20 20 69 73 0a 67 69 | 76 65 6e 20 61 20 6c 69 |r is.gi|ven a li|
|000003e0| 73 74 20 77 68 6f 73 65 | 20 63 61 72 20 69 73 20 |st whose| car is |
|000003f0| 61 6e 20 65 6c 65 6d 65 | 6e 74 20 6f 66 20 74 68 |an eleme|nt of th|
|00000400| 69 73 20 6c 69 73 74 2c | 20 74 68 65 6e 20 69 74 |is list,| then it|
|00000410| 20 77 69 6c 6c 20 72 65 | 74 75 72 6e 0a 6e 6f 6e | will re|turn.non|
|00000420| 2d 6e 69 6c 20 28 69 6e | 64 69 63 61 74 69 6e 67 |-nil (in|dicating|
|00000430| 20 74 68 65 20 6c 69 73 | 74 20 73 68 6f 75 6c 64 | the lis|t should|
|00000440| 20 62 65 20 64 69 73 63 | 61 72 64 65 64 20 66 72 | be disc|arded fr|
|00000450| 6f 6d 20 74 68 65 20 68 | 69 73 74 6f 72 79 29 2e |om the h|istory).|
|00000460| 0a 49 6e 69 74 69 61 6c | 6c 79 2c 20 61 6c 6c 20 |.Initial|ly, all |
|00000470| 63 6f 6d 6d 61 6e 64 73 | 20 72 65 6c 61 74 65 64 |commands| related|
|00000480| 20 74 6f 20 74 68 65 20 | 63 6f 6d 6d 61 6e 64 20 | to the |command |
|00000490| 68 69 73 74 6f 72 79 20 | 61 72 65 20 64 69 73 63 |history |are disc|
|000004a0| 61 72 64 65 64 2e 22 29 | 0a 0a 28 64 65 66 76 61 |arded.")|..(defva|
|000004b0| 72 20 6c 69 73 74 2d 63 | 6f 6d 6d 61 6e 64 2d 68 |r list-c|ommand-h|
|000004c0| 69 73 74 6f 72 79 2d 66 | 69 6c 74 65 72 20 28 71 |istory-f|ilter (q|
|000004d0| 75 6f 74 65 20 64 65 66 | 61 75 6c 74 2d 63 6f 6d |uote def|ault-com|
|000004e0| 6d 61 6e 64 2d 68 69 73 | 74 6f 72 79 2d 66 69 6c |mand-his|tory-fil|
|000004f0| 74 65 72 29 20 22 5c 0a | 49 66 20 6e 6f 6e 2d 6e |ter) "\.|If non-n|
|00000500| 69 6c 2c 20 73 68 6f 75 | 6c 64 20 62 65 20 74 68 |il, shou|ld be th|
|00000510| 65 20 6e 61 6d 65 20 6f | 66 20 61 20 66 75 6e 63 |e name o|f a func|
|00000520| 74 69 6f 6e 20 6f 66 20 | 6f 6e 65 20 61 72 67 75 |tion of |one argu|
|00000530| 6d 65 6e 74 2e 0a 49 74 | 20 69 73 20 70 61 73 73 |ment..It| is pass|
|00000540| 65 64 20 65 61 63 68 20 | 65 6c 65 6d 65 6e 74 20 |ed each |element |
|00000550| 6f 66 20 74 68 65 20 63 | 6f 6d 6d 61 6e 64 20 68 |of the c|ommand h|
|00000560| 69 73 74 6f 72 79 20 77 | 68 65 6e 0a 5c 5c 5b 6c |istory w|hen.\\[l|
|00000570| 69 73 74 2d 63 6f 6d 6d | 61 6e 64 2d 68 69 73 74 |ist-comm|and-hist|
|00000580| 6f 72 79 5d 20 69 73 20 | 63 61 6c 6c 65 64 2e 20 |ory] is |called. |
|00000590| 20 49 66 20 74 68 65 20 | 66 69 6c 74 65 72 20 72 | If the |filter r|
|000005a0| 65 74 75 72 6e 73 20 6e | 6f 6e 2d 6e 69 6c 20 66 |eturns n|on-nil f|
|000005b0| 6f 72 0a 73 6f 6d 65 20 | 65 6c 65 6d 65 6e 74 2c |or.some |element,|
|000005c0| 20 74 68 61 74 20 65 6c | 65 6d 65 6e 74 20 69 73 | that el|ement is|
|000005d0| 20 65 78 63 6c 75 64 65 | 64 20 66 72 6f 6d 20 74 | exclude|d from t|
|000005e0| 68 65 20 68 69 73 74 6f | 72 79 20 6c 69 73 74 69 |he histo|ry listi|
|000005f0| 6e 67 2e 20 20 54 68 65 | 0a 64 65 66 61 75 6c 74 |ng. The|.default|
|00000600| 20 66 69 6c 74 65 72 20 | 72 65 6d 6f 76 65 73 20 | filter |removes |
|00000610| 63 6f 6d 6d 61 6e 64 73 | 20 61 73 73 6f 63 69 61 |commands| associa|
|00000620| 74 65 64 20 77 69 74 68 | 20 74 68 65 20 63 6f 6d |ted with| the com|
|00000630| 6d 61 6e 64 2d 68 69 73 | 74 6f 72 79 2e 22 29 0a |mand-his|tory.").|
|00000640| 0a 28 64 65 66 75 6e 20 | 64 65 66 61 75 6c 74 2d |.(defun |default-|
|00000650| 63 6f 6d 6d 61 6e 64 2d | 68 69 73 74 6f 72 79 2d |command-|history-|
|00000660| 66 69 6c 74 65 72 20 28 | 66 72 6f 62 29 20 22 5c |filter (|frob) "\|
|00000670| 0a 46 69 6c 74 65 72 20 | 63 6f 6d 6d 61 6e 64 73 |.Filter |commands|
|00000680| 20 6d 61 74 63 68 69 6e | 67 20 20 64 65 66 61 75 | matchin|g defau|
|00000690| 6c 74 2d 63 6f 6d 6d 61 | 6e 64 2d 68 69 73 74 6f |lt-comma|nd-histo|
|000006a0| 72 79 2d 66 69 6c 74 65 | 72 2d 67 61 72 62 61 67 |ry-filte|r-garbag|
|000006b0| 65 20 20 6c 69 73 74 0a | 66 72 6f 6d 20 74 68 65 |e list.|from the|
|000006c0| 20 63 6f 6d 6d 61 6e 64 | 20 68 69 73 74 6f 72 79 | command| history|
|000006d0| 2e 22 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 08 |." (byte|-code ".|
|000006e0| 3a 3f 86 0a 00 08 40 09 | 3e 87 22 20 5b 66 72 6f |:?....@.|>." [fro|
|000006f0| 62 20 64 65 66 61 75 6c | 74 2d 63 6f 6d 6d 61 6e |b defaul|t-comman|
|00000700| 64 2d 68 69 73 74 6f 72 | 79 2d 66 69 6c 74 65 72 |d-histor|y-filter|
|00000710| 2d 67 61 72 62 61 67 65 | 5d 20 32 29 29 0a 0a 28 |-garbage|] 2))..(|
|00000720| 64 65 66 76 61 72 20 6c | 69 73 74 2d 63 6f 6d 6d |defvar l|ist-comm|
|00000730| 61 6e 64 2d 68 69 73 74 | 6f 72 79 2d 6d 61 78 20 |and-hist|ory-max |
|00000740| 33 32 20 22 5c 0a 2a 49 | 66 20 6e 6f 6e 2d 6e 69 |32 "\.*I|f non-ni|
|00000750| 6c 2c 20 73 68 6f 75 6c | 64 20 62 65 20 61 20 70 |l, shoul|d be a p|
|00000760| 6f 73 69 74 69 76 65 20 | 6e 75 6d 62 65 72 20 77 |ositive |number w|
|00000770| 68 69 63 68 20 73 70 65 | 63 69 66 69 65 73 20 74 |hich spe|cifies t|
|00000780| 68 65 20 6d 61 78 69 6d | 75 6d 0a 6c 65 6e 67 74 |he maxim|um.lengt|
|00000790| 68 20 6f 66 20 74 68 65 | 20 43 6f 6d 6d 61 6e 64 |h of the| Command|
|000007a0| 20 48 69 73 74 6f 72 79 | 20 6c 69 73 74 69 6e 67 | History| listing|
|000007b0| 20 70 72 6f 64 75 63 65 | 64 20 62 79 20 6c 69 73 | produce|d by lis|
|000007c0| 74 2d 63 6f 6d 6d 61 6e | 64 2d 68 69 73 74 6f 72 |t-comman|d-histor|
|000007d0| 79 2e 22 29 0a 0a 28 64 | 65 66 75 6e 20 6c 69 73 |y.")..(d|efun lis|
|000007e0| 74 2d 63 6f 6d 6d 61 6e | 64 2d 68 69 73 74 6f 72 |t-comman|d-histor|
|000007f0| 79 20 6e 69 6c 20 22 5c | 0a 4c 69 73 74 20 68 69 |y nil "\|.List hi|
|00000800| 73 74 6f 72 79 20 6f 66 | 20 63 6f 6d 6d 61 6e 64 |story of| command|
|00000810| 73 20 74 79 70 65 64 20 | 74 6f 20 6d 69 6e 69 62 |s typed |to minib|
|00000820| 75 66 66 65 72 2e 0a 54 | 68 65 20 6e 75 6d 62 65 |uffer..T|he numbe|
|00000830| 72 20 6f 66 20 63 6f 6d | 6d 61 6e 64 73 20 6c 69 |r of com|mands li|
|00000840| 73 74 65 64 20 69 73 20 | 63 6f 6e 74 72 6f 6c 6c |sted is |controll|
|00000850| 65 64 20 62 79 20 20 6c | 69 73 74 2d 63 6f 6d 6d |ed by l|ist-comm|
|00000860| 61 6e 64 2d 68 69 73 74 | 6f 72 79 2d 6d 61 78 2e |and-hist|ory-max.|
|00000870| 0a 43 61 6c 6c 73 20 76 | 61 6c 75 65 20 6f 66 20 |.Calls v|alue of |
|00000880| 20 6c 69 73 74 2d 63 6f | 6d 6d 61 6e 64 2d 68 69 | list-co|mmand-hi|
|00000890| 73 74 6f 72 79 2d 66 69 | 6c 74 65 72 20 20 28 69 |story-fi|lter (i|
|000008a0| 66 20 6e 6f 6e 2d 6e 69 | 6c 29 20 6f 6e 20 65 61 |f non-ni|l) on ea|
|000008b0| 63 68 20 68 69 73 74 6f | 72 79 0a 65 6c 65 6d 65 |ch histo|ry.eleme|
|000008c0| 6e 74 20 74 6f 20 6a 75 | 64 67 65 20 69 66 20 74 |nt to ju|dge if t|
|000008d0| 68 61 74 20 65 6c 65 6d | 65 6e 74 20 73 68 6f 75 |hat elem|ent shou|
|000008e0| 6c 64 20 62 65 20 65 78 | 63 6c 75 64 65 64 20 66 |ld be ex|cluded f|
|000008f0| 72 6f 6d 20 74 68 65 20 | 6c 69 73 74 2e 0a 0a 54 |rom the |list...T|
|00000900| 68 65 20 62 75 66 66 65 | 72 20 69 73 20 6c 65 66 |he buffe|r is lef|
|00000910| 74 20 69 6e 20 43 6f 6d | 6d 61 6e 64 20 48 69 73 |t in Com|mand His|
|00000920| 74 6f 72 79 20 6d 6f 64 | 65 2e 22 20 28 69 6e 74 |tory mod|e." (int|
|00000930| 65 72 61 63 74 69 76 65 | 29 20 28 62 79 74 65 2d |eractive|) (byte-|
|00000940| 63 6f 64 65 20 22 c3 88 | c7 90 09 c3 0d 86 0b 00 |code "..|........|
|00000950| c8 1c 1a 18 c9 0c ca 5c | 22 85 16 00 08 85 46 00 |.......\|".....F.|
|00000960| cb c6 21 85 2a 00 0e 06 | 85 2a 00 cc 0e 06 08 40 |..!.*...|.*.....@|
|00000970| 5c 22 83 31 00 c3 82 3d | 00 0c 53 89 14 88 cd 08 |\".1...=|..S.....|
|00000980| 40 21 88 ce 20 88 08 41 | 89 10 88 82 0e 00 2b 88 |@!.. ..A|......+.|
|00000990| 8a c7 71 88 65 62 88 6d | 83 59 00 cf d0 21 82 5b |..q.eb.m|.Y...!.[|
|000009a0| 00 d1 20 29 91 87 22 20 | 5b 68 69 73 74 6f 72 79 |.. ).." |[history|
|000009b0| 20 63 6f 6d 6d 61 6e 64 | 2d 68 69 73 74 6f 72 79 | command|-history|
|000009c0| 20 62 75 66 66 65 72 2d | 72 65 61 64 2d 6f 6e 6c | buffer-|read-onl|
|000009d0| 79 20 6e 69 6c 20 63 6f | 75 6e 74 20 6c 69 73 74 |y nil co|unt list|
|000009e0| 2d 63 6f 6d 6d 61 6e 64 | 2d 68 69 73 74 6f 72 79 |-command|-history|
|000009f0| 2d 6d 61 78 20 6c 69 73 | 74 2d 63 6f 6d 6d 61 6e |-max lis|t-comman|
|00000a00| 64 2d 68 69 73 74 6f 72 | 79 2d 66 69 6c 74 65 72 |d-histor|y-filter|
|00000a10| 20 22 2a 43 6f 6d 6d 61 | 6e 64 20 48 69 73 74 6f | "*Comma|nd Histo|
|00000a20| 72 79 2a 22 20 2d 31 20 | 2f 3d 20 30 20 62 6f 75 |ry*" -1 |/= 0 bou|
|00000a30| 6e 64 70 20 66 75 6e 63 | 61 6c 6c 20 70 72 69 6e |ndp func|all prin|
|00000a40| 31 20 74 65 72 70 72 69 | 20 65 72 72 6f 72 20 22 |1 terpri| error "|
|00000a50| 4e 6f 20 63 6f 6d 6d 61 | 6e 64 20 68 69 73 74 6f |No comma|nd histo|
|00000a60| 72 79 2e 22 20 43 6f 6d | 6d 61 6e 64 2d 68 69 73 |ry." Com|mand-his|
|00000a70| 74 6f 72 79 2d 73 65 74 | 75 70 5d 20 39 29 29 0a |tory-set|up] 9)).|
|00000a80| 0a 28 64 65 66 75 6e 20 | 43 6f 6d 6d 61 6e 64 2d |.(defun |Command-|
|00000a90| 68 69 73 74 6f 72 79 2d | 73 65 74 75 70 20 28 26 |history-|setup (&|
|00000aa0| 6f 70 74 69 6f 6e 61 6c | 20 6d 61 6a 6f 72 6d 6f |optional| majormo|
|00000ab0| 64 65 20 6d 6f 64 65 6e | 61 6d 65 20 6b 65 79 6d |de moden|ame keym|
|00000ac0| 61 70 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |ap) (byt|e-code "|
|00000ad0| ca 71 88 cb 08 86 09 00 | 09 21 88 cc c2 21 88 cd |.q......|.!...!..|
|00000ae0| 0b 21 88 c5 89 14 88 cb | 08 86 1d 00 09 21 88 0e |.!......|.....!..|
|00000af0| 07 86 25 00 ce 89 16 06 | 88 0e 09 86 2f 00 cf 89 |..%.....|..../...|
|00000b00| 16 08 87 22 20 5b 6b 65 | 79 6d 61 70 20 63 6f 6d |..." [ke|ymap com|
|00000b10| 6d 61 6e 64 2d 68 69 73 | 74 6f 72 79 2d 6d 61 70 |mand-his|tory-map|
|00000b20| 20 6e 69 6c 20 65 6d 61 | 63 73 2d 6c 69 73 70 2d | nil ema|cs-lisp-|
|00000b30| 6d 6f 64 65 2d 73 79 6e | 74 61 78 2d 74 61 62 6c |mode-syn|tax-tabl|
|00000b40| 65 20 62 75 66 66 65 72 | 2d 72 65 61 64 2d 6f 6e |e buffer|-read-on|
|00000b50| 6c 79 20 74 20 6d 61 6a | 6f 72 2d 6d 6f 64 65 20 |ly t maj|or-mode |
|00000b60| 6d 61 6a 6f 72 6d 6f 64 | 65 20 6d 6f 64 65 2d 6e |majormod|e mode-n|
|00000b70| 61 6d 65 20 6d 6f 64 65 | 6e 61 6d 65 20 22 2a 43 |ame mode|name "*C|
|00000b80| 6f 6d 6d 61 6e 64 20 48 | 69 73 74 6f 72 79 2a 22 |ommand H|istory*"|
|00000b90| 20 75 73 65 2d 6c 6f 63 | 61 6c 2d 6d 61 70 20 6c | use-loc|al-map l|
|00000ba0| 69 73 70 2d 6d 6f 64 65 | 2d 76 61 72 69 61 62 6c |isp-mode|-variabl|
|00000bb0| 65 73 20 73 65 74 2d 73 | 79 6e 74 61 78 2d 74 61 |es set-s|yntax-ta|
|00000bc0| 62 6c 65 20 63 6f 6d 6d | 61 6e 64 2d 68 69 73 74 |ble comm|and-hist|
|00000bd0| 6f 72 79 2d 6d 6f 64 65 | 20 22 43 6f 6d 6d 61 6e |ory-mode| "Comman|
|00000be0| 64 20 48 69 73 74 6f 72 | 79 22 5d 20 36 29 29 0a |d Histor|y"] 6)).|
|00000bf0| 0a 28 64 65 66 76 61 72 | 20 63 6f 6d 6d 61 6e 64 |.(defvar| command|
|00000c00| 2d 68 69 73 74 6f 72 79 | 2d 68 6f 6f 6b 20 6e 69 |-history|-hook ni|
|00000c10| 6c 20 22 5c 0a 49 66 20 | 6e 6f 6e 2d 6e 69 6c 2c |l "\.If |non-nil,|
|00000c20| 20 69 74 73 20 76 61 6c | 75 65 20 69 73 20 63 61 | its val|ue is ca|
|00000c30| 6c 6c 65 64 20 6f 6e 20 | 65 6e 74 72 79 20 74 6f |lled on |entry to|
|00000c40| 20 20 63 6f 6d 6d 61 6e | 64 2d 68 69 73 74 6f 72 | comman|d-histor|
|00000c50| 79 2d 6d 6f 64 65 2e 22 | 29 0a 0a 28 64 65 66 76 |y-mode."|)..(defv|
|00000c60| 61 72 20 63 6f 6d 6d 61 | 6e 64 2d 68 69 73 74 6f |ar comma|nd-histo|
|00000c70| 72 79 2d 6d 61 70 20 6e | 69 6c 29 0a 0a 28 69 66 |ry-map n|il)..(if|
|00000c80| 20 63 6f 6d 6d 61 6e 64 | 2d 68 69 73 74 6f 72 79 | command|-history|
|00000c90| 2d 6d 61 70 20 6e 69 6c | 20 28 73 65 74 71 20 63 |-map nil| (setq c|
|00000ca0| 6f 6d 6d 61 6e 64 2d 68 | 69 73 74 6f 72 79 2d 6d |ommand-h|istory-m|
|00000cb0| 61 70 20 28 6d 61 6b 65 | 2d 6b 65 79 6d 61 70 29 |ap (make|-keymap)|
|00000cc0| 29 20 28 6c 69 73 70 2d | 6d 6f 64 65 2d 63 6f 6d |) (lisp-|mode-com|
|00000cd0| 6d 61 6e 64 73 20 63 6f | 6d 6d 61 6e 64 2d 68 69 |mands co|mmand-hi|
|00000ce0| 73 74 6f 72 79 2d 6d 61 | 70 29 20 28 73 75 70 70 |story-ma|p) (supp|
|00000cf0| 72 65 73 73 2d 6b 65 79 | 6d 61 70 20 63 6f 6d 6d |ress-key|map comm|
|00000d00| 61 6e 64 2d 68 69 73 74 | 6f 72 79 2d 6d 61 70 29 |and-hist|ory-map)|
|00000d10| 20 28 64 65 66 69 6e 65 | 2d 6b 65 79 20 63 6f 6d | (define|-key com|
|00000d20| 6d 61 6e 64 2d 68 69 73 | 74 6f 72 79 2d 6d 61 70 |mand-his|tory-map|
|00000d30| 20 22 0a 22 20 28 71 75 | 6f 74 65 20 6e 65 78 74 | "." (qu|ote next|
|00000d40| 2d 6c 69 6e 65 29 29 20 | 28 64 65 66 69 6e 65 2d |-line)) |(define-|
|00000d50| 6b 65 79 20 63 6f 6d 6d | 61 6e 64 2d 68 69 73 74 |key comm|and-hist|
|00000d60| 6f 72 79 2d 6d 61 70 20 | 22 0d 22 20 28 71 75 6f |ory-map |"." (quo|
|00000d70| 74 65 20 6e 65 78 74 2d | 6c 69 6e 65 29 29 20 28 |te next-|line)) (|
|00000d80| 64 65 66 69 6e 65 2d 6b | 65 79 20 63 6f 6d 6d 61 |define-k|ey comma|
|00000d90| 6e 64 2d 68 69 73 74 6f | 72 79 2d 6d 61 70 20 22 |nd-histo|ry-map "|
|00000da0| 7f 22 20 28 71 75 6f 74 | 65 20 70 72 65 76 69 6f |." (quot|e previo|
|00000db0| 75 73 2d 6c 69 6e 65 29 | 29 29 0a 0a 28 64 65 66 |us-line)|))..(def|
|00000dc0| 75 6e 20 63 6f 6d 6d 61 | 6e 64 2d 68 69 73 74 6f |un comma|nd-histo|
|00000dd0| 72 79 2d 6d 6f 64 65 20 | 6e 69 6c 20 22 5c 0a 4d |ry-mode |nil "\.M|
|00000de0| 61 6a 6f 72 20 6d 6f 64 | 65 20 66 6f 72 20 65 78 |ajor mod|e for ex|
|00000df0| 61 6d 69 6e 69 6e 67 20 | 63 6f 6d 6d 61 6e 64 73 |amining |commands|
|00000e00| 20 66 72 6f 6d 20 20 63 | 6f 6d 6d 61 6e 64 2d 68 | from c|ommand-h|
|00000e10| 69 73 74 6f 72 79 2e 0a | 54 68 65 20 6e 75 6d 62 |istory..|The numb|
|00000e20| 65 72 20 6f 66 20 63 6f | 6d 6d 61 6e 64 73 20 6c |er of co|mmands l|
|00000e30| 69 73 74 65 64 20 69 73 | 20 63 6f 6e 74 72 6f 6c |isted is| control|
|00000e40| 6c 65 64 20 62 79 20 20 | 6c 69 73 74 2d 63 6f 6d |led by |list-com|
|00000e50| 6d 61 6e 64 2d 68 69 73 | 74 6f 72 79 2d 6d 61 78 |mand-his|tory-max|
|00000e60| 2e 0a 54 68 65 20 63 6f | 6d 6d 61 6e 64 20 68 69 |..The co|mmand hi|
|00000e70| 73 74 6f 72 79 20 69 73 | 20 66 69 6c 74 65 72 65 |story is| filtere|
|00000e80| 64 20 62 79 20 20 6c 69 | 73 74 2d 63 6f 6d 6d 61 |d by li|st-comma|
|00000e90| 6e 64 2d 68 69 73 74 6f | 72 79 2d 66 69 6c 74 65 |nd-histo|ry-filte|
|00000ea0| 72 20 20 69 66 20 6e 6f | 6e 2d 6e 69 6c 2e 0a 0a |r if no|n-nil...|
|00000eb0| 4c 69 6b 65 20 45 6d 61 | 63 73 2d 4c 69 73 70 20 |Like Ema|cs-Lisp |
|00000ec0| 4d 6f 64 65 20 65 78 63 | 65 70 74 20 74 68 61 74 |Mode exc|ept that|
|00000ed0| 20 63 68 61 72 61 63 74 | 65 72 73 20 64 6f 20 6e | charact|ers do n|
|00000ee0| 6f 74 20 69 6e 73 65 72 | 74 20 74 68 65 6d 73 65 |ot inser|t themse|
|00000ef0| 6c 76 65 73 20 61 6e 64 | 0a 44 69 67 69 74 73 20 |lves and|.Digits |
|00000f00| 70 72 6f 76 69 64 65 20 | 70 72 65 66 69 78 20 61 |provide |prefix a|
|00000f10| 72 67 75 6d 65 6e 74 73 | 2e 20 20 54 61 62 20 64 |rguments|. Tab d|
|00000f20| 6f 65 73 20 6e 6f 74 20 | 69 6e 64 65 6e 74 2e 0a |oes not |indent..|
|00000f30| 5c 5c 7b 63 6f 6d 6d 61 | 6e 64 2d 68 69 73 74 6f |\\{comma|nd-histo|
|00000f40| 72 79 2d 6d 61 70 7d 0a | 43 61 6c 6c 73 20 74 68 |ry-map}.|Calls th|
|00000f50| 65 20 76 61 6c 75 65 20 | 6f 66 20 20 63 6f 6d 6d |e value |of comm|
|00000f60| 61 6e 64 2d 68 69 73 74 | 6f 72 79 2d 68 6f 6f 6b |and-hist|ory-hook|
|00000f70| 20 20 69 66 20 74 68 61 | 74 20 69 73 20 6e 6f 6e | if tha|t is non|
|00000f80| 2d 6e 69 6c 0a 54 68 65 | 20 43 6f 6d 6d 61 6e 64 |-nil.The| Command|
|00000f90| 20 48 69 73 74 6f 72 79 | 20 6c 69 73 74 69 6e 67 | History| listing|
|00000fa0| 20 69 73 20 72 65 63 6f | 6d 70 75 74 65 64 20 65 | is reco|mputed e|
|00000fb0| 61 63 68 20 74 69 6d 65 | 20 74 68 69 73 20 6d 6f |ach time| this mo|
|00000fc0| 64 65 20 69 73 0a 69 6e | 76 6f 6b 65 64 2e 22 20 |de is.in|voked." |
|00000fd0| 28 69 6e 74 65 72 61 63 | 74 69 76 65 29 20 28 62 |(interac|tive) (b|
|00000fe0| 79 74 65 2d 63 6f 64 65 | 20 22 c0 88 c1 20 88 c2 |yte-code| "... ..|
|00000ff0| c3 21 88 c4 c5 21 87 22 | 20 5b 6e 69 6c 20 6c 69 |.!...!."| [nil li|
|00001000| 73 74 2d 63 6f 6d 6d 61 | 6e 64 2d 68 69 73 74 6f |st-comma|nd-histo|
|00001010| 72 79 20 70 6f 70 2d 74 | 6f 2d 62 75 66 66 65 72 |ry pop-t|o-buffer|
|00001020| 20 22 2a 43 6f 6d 6d 61 | 6e 64 20 48 69 73 74 6f | "*Comma|nd Histo|
|00001030| 72 79 2a 22 20 72 75 6e | 2d 68 6f 6f 6b 73 20 63 |ry*" run|-hooks c|
|00001040| 6f 6d 6d 61 6e 64 2d 68 | 69 73 74 6f 72 79 2d 68 |ommand-h|istory-h|
|00001050| 6f 6f 6b 5d 20 34 29 29 | 0a |ook] 4))|. |
+--------+-------------------------+-------------------------+--------+--------+
