home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1993-04-01 | 4.6 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
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 |
| 1%
| dexvert
| Combustion 2 Particle Library (other/combustion2ParticleLibrary)
| ext
| Unsupported |
| 100%
| file
| Emacs/XEmacs v19 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
| |
| 100%
| xdgMime
| text/x-emacs-lisp
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 77 7a 40 74 68 61 |piled by| jwz@tha|
|00000020| 6c 69 64 6f 6d 69 64 65 | 20 6f 6e 20 4d 6f 6e 20 |lidomide| on Mon |
|00000030| 46 65 62 20 20 31 20 31 | 39 3a 30 35 3a 30 32 20 |Feb 1 1|9:05:02 |
|00000040| 31 39 39 33 0a 3b 3b 3b | 20 66 72 6f 6d 20 66 69 |1993.;;;| from fi|
|00000050| 6c 65 20 2f 63 61 64 69 | 6c 6c 61 63 31 2f 63 6f |le /cadi|llac1/co|
|00000060| 64 65 2f 62 75 69 6c 64 | 2f 6c 65 6d 61 63 73 2f |de/build|/lemacs/|
|00000070| 6c 69 73 70 2f 70 61 63 | 6b 61 67 65 73 2f 63 68 |lisp/pac|kages/ch|
|00000080| 69 73 74 6f 72 79 2e 65 | 6c 0a 3b 3b 3b 20 65 6d |istory.e|l.;;; em|
|00000090| 61 63 73 20 76 65 72 73 | 69 6f 6e 20 31 39 2e 34 |acs vers|ion 19.4|
|000000a0| 2e 31 33 20 4c 75 63 69 | 64 2e 0a 3b 3b 3b 20 62 |.13 Luci|d..;;; b|
|000000b0| 79 74 65 63 6f 6d 70 20 | 76 65 72 73 69 6f 6e 20 |ytecomp |version |
|000000c0| 32 2e 31 30 3b 20 20 31 | 2d 66 65 62 2d 39 33 2e |2.10; 1|-feb-93.|
|000000d0| 0a 3b 3b 3b 20 6f 70 74 | 69 6d 69 7a 61 74 69 6f |.;;; opt|imizatio|
|000000e0| 6e 20 69 73 20 6f 6e 2e | 0a 3b 3b 3b 20 74 68 69 |n is on.|.;;; thi|
|000000f0| 73 20 66 69 6c 65 20 75 | 73 65 73 20 6f 70 63 6f |s file u|ses opco|
|00000100| 64 65 73 20 77 68 69 63 | 68 20 64 6f 20 6e 6f 74 |des whic|h do not|
|00000110| 20 65 78 69 73 74 20 69 | 6e 20 45 6d 61 63 73 31 | exist i|n Emacs1|
|00000120| 38 2e 0a 0a 28 69 66 20 | 28 61 6e 64 20 28 62 6f |8...(if |(and (bo|
|00000130| 75 6e 64 70 20 27 65 6d | 61 63 73 2d 76 65 72 73 |undp 'em|acs-vers|
|00000140| 69 6f 6e 29 0a 09 20 28 | 6f 72 20 28 61 6e 64 20 |ion).. (|or (and |
|00000150| 28 62 6f 75 6e 64 70 20 | 27 65 70 6f 63 68 3a 3a |(boundp |'epoch::|
|00000160| 76 65 72 73 69 6f 6e 29 | 20 65 70 6f 63 68 3a 3a |version)| epoch::|
|00000170| 76 65 72 73 69 6f 6e 29 | 0a 09 20 20 20 20 20 28 |version)|.. (|
|00000180| 73 74 72 69 6e 67 2d 6c | 65 73 73 70 20 65 6d 61 |string-l|essp ema|
|00000190| 63 73 2d 76 65 72 73 69 | 6f 6e 20 22 31 39 22 29 |cs-versi|on "19")|
|000001a0| 29 29 0a 20 20 20 20 28 | 65 72 72 6f 72 20 22 54 |)). (|error "T|
|000001b0| 68 69 73 20 66 69 6c 65 | 20 77 61 73 20 63 6f 6d |his file| was com|
|000001c0| 70 69 6c 65 64 20 66 6f | 72 20 45 6d 61 63 73 31 |piled fo|r Emacs1|
|000001d0| 39 2e 22 29 29 0a 0a 28 | 70 72 6f 76 69 64 65 20 |9."))..(|provide |
|000001e0| 27 63 68 69 73 74 6f 72 | 79 29 0a 28 66 73 65 74 |'chistor|y).(fset|
|000001f0| 20 27 72 65 70 65 61 74 | 2d 6d 61 74 63 68 69 6e | 'repeat|-matchin|
|00000200| 67 2d 63 6f 6d 70 6c 65 | 78 2d 63 6f 6d 6d 61 6e |g-comple|x-comman|
|00000210| 64 20 23 5b 28 26 6f 70 | 74 69 6f 6e 61 6c 20 70 |d #[(&op|tional p|
|00000220| 61 74 74 65 72 6e 29 20 | 22 08 ab 93 08 c1 c2 08 |attern) |".......|
|00000230| 5c 22 ae 82 08 47 c3 4f | 89 10 c4 9a ab 82 c3 10 |\"...G.O|........|
|00000240| 0d c3 89 1e 06 1e 07 1e | 08 0e 08 ab b3 0e 06 ac |........|........|
|00000250| af 0e 08 40 16 07 08 ab | 8a c1 08 c9 0e 07 40 21 |...@....|......@!|
|00000260| 5c 22 ab 95 ca cb cc cd | 0e 07 21 89 16 07 5c 22 |\"......|..!...\"|
|00000270| 21 ab 87 0e 08 40 16 06 | aa 51 0e 08 41 89 16 08 |!....@..|.Q..A...|
|00000280| ac 4d 0e 06 ac 85 ce cf | 21 aa 8f 0d 40 40 d0 3d |.M......|!...@@.=|
|00000290| ab 83 0d 41 15 d1 d2 0e | 06 5c 22 2b 87 22 20 5b |...A....|.\"+." [|
|000002a0| 70 61 74 74 65 72 6e 20 | 73 74 72 69 6e 67 2d 6d |pattern |string-m|
|000002b0| 61 74 63 68 20 22 5b 20 | 09 5d 2a 5b 5e 20 09 5d |atch "[ |.]*[^ .]|
|000002c0| 22 20 6e 69 6c 20 22 22 | 20 63 6f 6d 6d 61 6e 64 |" nil ""| command|
|000002d0| 2d 68 69 73 74 6f 72 79 | 20 77 68 61 74 20 74 65 |-history| what te|
|000002e0| 6d 70 20 68 69 73 74 6f | 72 79 20 73 79 6d 62 6f |mp histo|ry symbo|
|000002f0| 6c 2d 6e 61 6d 65 20 79 | 2d 6f 72 2d 6e 2d 70 20 |l-name y|-or-n-p |
|00000300| 66 6f 72 6d 61 74 20 22 | 52 65 64 6f 20 25 73 3f |format "|Redo %s?|
|00000310| 20 22 20 70 72 69 6e 31 | 2d 74 6f 2d 73 74 72 69 | " prin1|-to-stri|
|00000320| 6e 67 20 65 72 72 6f 72 | 20 22 43 6f 6d 6d 61 6e |ng error| "Comman|
|00000330| 64 20 68 69 73 74 6f 72 | 79 20 65 78 68 61 75 73 |d histor|y exhaus|
|00000340| 74 65 64 2e 22 20 72 65 | 70 65 61 74 2d 6d 61 74 |ted." re|peat-mat|
|00000350| 63 68 69 6e 67 2d 63 6f | 6d 70 6c 65 78 2d 63 6f |ching-co|mplex-co|
|00000360| 6d 6d 61 6e 64 20 65 64 | 69 74 2d 61 6e 64 2d 65 |mmand ed|it-and-e|
|00000370| 76 61 6c 2d 63 6f 6d 6d | 61 6e 64 20 22 52 65 64 |val-comm|and "Red|
|00000380| 6f 3a 20 22 5d 20 36 20 | 22 5c 0a 45 64 69 74 20 |o: "] 6 |"\.Edit |
|00000390| 61 6e 64 20 72 65 2d 65 | 76 61 6c 75 61 74 65 20 |and re-e|valuate |
|000003a0| 63 6f 6d 70 6c 65 78 20 | 63 6f 6d 6d 61 6e 64 20 |complex |command |
|000003b0| 77 69 74 68 20 6e 61 6d | 65 20 6d 61 74 63 68 69 |with nam|e matchi|
|000003c0| 6e 67 20 50 41 54 54 45 | 52 4e 2e 0a 4d 61 74 63 |ng PATTE|RN..Matc|
|000003d0| 68 69 6e 67 20 6f 63 63 | 75 72 72 65 6e 63 65 73 |hing occ|urrences|
|000003e0| 20 61 72 65 20 64 69 73 | 70 6c 61 79 65 64 2c 20 | are dis|played, |
|000003f0| 6d 6f 73 74 20 72 65 63 | 65 6e 74 20 66 69 72 73 |most rec|ent firs|
|00000400| 74 2c 20 75 6e 74 69 6c | 20 79 6f 75 0a 73 65 6c |t, until| you.sel|
|00000410| 65 63 74 20 61 20 66 6f | 72 6d 20 66 6f 72 20 65 |ect a fo|rm for e|
|00000420| 76 61 6c 75 61 74 69 6f | 6e 2e 20 20 49 66 20 50 |valuatio|n. If P|
|00000430| 41 54 54 45 52 4e 20 69 | 73 20 65 6d 70 74 79 20 |ATTERN i|s empty |
|00000440| 28 6f 72 20 6e 69 6c 29 | 2c 20 65 76 65 72 79 20 |(or nil)|, every |
|00000450| 66 6f 72 6d 0a 69 6e 20 | 74 68 65 20 63 6f 6d 6d |form.in |the comm|
|00000460| 61 6e 64 20 68 69 73 74 | 6f 72 79 20 69 73 20 6f |and hist|ory is o|
|00000470| 66 66 65 72 65 64 2e 20 | 20 54 68 65 20 66 6f 72 |ffered. | The for|
|00000480| 6d 20 69 73 20 70 6c 61 | 63 65 64 20 69 6e 20 74 |m is pla|ced in t|
|00000490| 68 65 20 6d 69 6e 69 62 | 75 66 66 65 72 0a 66 6f |he minib|uffer.fo|
|000004a0| 72 20 65 64 69 74 69 6e | 67 20 61 6e 64 20 74 68 |r editin|g and th|
|000004b0| 65 20 72 65 73 75 6c 74 | 20 69 73 20 65 76 61 6c |e result| is eval|
|000004c0| 75 61 74 65 64 2e 22 20 | 22 73 52 65 64 6f 20 43 |uated." |"sRedo C|
|000004d0| 6f 6d 6d 61 6e 64 20 28 | 72 65 67 65 78 70 29 3a |ommand (|regexp):|
|000004e0| 20 22 5d 29 0a 28 64 65 | 66 76 61 72 20 64 65 66 | "]).(de|fvar def|
|000004f0| 61 75 6c 74 2d 63 6f 6d | 6d 61 6e 64 2d 68 69 73 |ault-com|mand-his|
|00000500| 74 6f 72 79 2d 66 69 6c | 74 65 72 2d 67 61 72 62 |tory-fil|ter-garb|
|00000510| 61 67 65 20 27 28 63 6f | 6d 6d 61 6e 64 2d 68 69 |age '(co|mmand-hi|
|00000520| 73 74 6f 72 79 2d 6d 6f | 64 65 20 6c 69 73 74 2d |story-mo|de list-|
|00000530| 63 6f 6d 6d 61 6e 64 2d | 68 69 73 74 6f 72 79 20 |command-|history |
|00000540| 65 6c 65 63 74 72 69 63 | 2d 63 6f 6d 6d 61 6e 64 |electric|-command|
|00000550| 2d 68 69 73 74 6f 72 79 | 29 20 22 5c 0a 2a 41 20 |-history|) "\.*A |
|00000560| 6c 69 73 74 20 6f 66 20 | 73 79 6d 62 6f 6c 73 2e |list of |symbols.|
|00000570| 20 20 49 66 20 20 64 65 | 66 61 75 6c 74 2d 6c 69 | If de|fault-li|
|00000580| 73 74 2d 63 6f 6d 6d 61 | 6e 64 2d 68 69 73 74 6f |st-comma|nd-histo|
|00000590| 72 79 2d 66 69 6c 74 65 | 72 20 20 69 73 0a 67 69 |ry-filte|r is.gi|
|000005a0| 76 65 6e 20 61 20 6c 69 | 73 74 20 77 68 6f 73 65 |ven a li|st whose|
|000005b0| 20 63 61 72 20 69 73 20 | 61 6e 20 65 6c 65 6d 65 | car is |an eleme|
|000005c0| 6e 74 20 6f 66 20 74 68 | 69 73 20 6c 69 73 74 2c |nt of th|is list,|
|000005d0| 20 74 68 65 6e 20 69 74 | 20 77 69 6c 6c 20 72 65 | then it| will re|
|000005e0| 74 75 72 6e 0a 6e 6f 6e | 2d 6e 69 6c 20 28 69 6e |turn.non|-nil (in|
|000005f0| 64 69 63 61 74 69 6e 67 | 20 74 68 65 20 6c 69 73 |dicating| the lis|
|00000600| 74 20 73 68 6f 75 6c 64 | 20 62 65 20 64 69 73 63 |t should| be disc|
|00000610| 61 72 64 65 64 20 66 72 | 6f 6d 20 74 68 65 20 68 |arded fr|om the h|
|00000620| 69 73 74 6f 72 79 29 2e | 0a 49 6e 69 74 69 61 6c |istory).|.Initial|
|00000630| 6c 79 2c 20 61 6c 6c 20 | 63 6f 6d 6d 61 6e 64 73 |ly, all |commands|
|00000640| 20 72 65 6c 61 74 65 64 | 20 74 6f 20 74 68 65 20 | related| to the |
|00000650| 63 6f 6d 6d 61 6e 64 20 | 68 69 73 74 6f 72 79 20 |command |history |
|00000660| 61 72 65 20 64 69 73 63 | 61 72 64 65 64 2e 22 29 |are disc|arded.")|
|00000670| 0a 28 64 65 66 76 61 72 | 20 6c 69 73 74 2d 63 6f |.(defvar| list-co|
|00000680| 6d 6d 61 6e 64 2d 68 69 | 73 74 6f 72 79 2d 66 69 |mmand-hi|story-fi|
|00000690| 6c 74 65 72 20 27 64 65 | 66 61 75 6c 74 2d 63 6f |lter 'de|fault-co|
|000006a0| 6d 6d 61 6e 64 2d 68 69 | 73 74 6f 72 79 2d 66 69 |mmand-hi|story-fi|
|000006b0| 6c 74 65 72 20 22 5c 0a | 49 66 20 6e 6f 6e 2d 6e |lter "\.|If non-n|
|000006c0| 69 6c 2c 20 73 68 6f 75 | 6c 64 20 62 65 20 74 68 |il, shou|ld be th|
|000006d0| 65 20 6e 61 6d 65 20 6f | 66 20 61 20 66 75 6e 63 |e name o|f a func|
|000006e0| 74 69 6f 6e 20 6f 66 20 | 6f 6e 65 20 61 72 67 75 |tion of |one argu|
|000006f0| 6d 65 6e 74 2e 0a 49 74 | 20 69 73 20 70 61 73 73 |ment..It| is pass|
|00000700| 65 64 20 65 61 63 68 20 | 65 6c 65 6d 65 6e 74 20 |ed each |element |
|00000710| 6f 66 20 74 68 65 20 63 | 6f 6d 6d 61 6e 64 20 68 |of the c|ommand h|
|00000720| 69 73 74 6f 72 79 20 77 | 68 65 6e 0a 5c 5c 5b 6c |istory w|hen.\\[l|
|00000730| 69 73 74 2d 63 6f 6d 6d | 61 6e 64 2d 68 69 73 74 |ist-comm|and-hist|
|00000740| 6f 72 79 5d 20 69 73 20 | 63 61 6c 6c 65 64 2e 20 |ory] is |called. |
|00000750| 20 49 66 20 74 68 65 20 | 66 69 6c 74 65 72 20 72 | If the |filter r|
|00000760| 65 74 75 72 6e 73 20 6e | 6f 6e 2d 6e 69 6c 20 66 |eturns n|on-nil f|
|00000770| 6f 72 0a 73 6f 6d 65 20 | 65 6c 65 6d 65 6e 74 2c |or.some |element,|
|00000780| 20 74 68 61 74 20 65 6c | 65 6d 65 6e 74 20 69 73 | that el|ement is|
|00000790| 20 65 78 63 6c 75 64 65 | 64 20 66 72 6f 6d 20 74 | exclude|d from t|
|000007a0| 68 65 20 68 69 73 74 6f | 72 79 20 6c 69 73 74 69 |he histo|ry listi|
|000007b0| 6e 67 2e 20 20 54 68 65 | 0a 64 65 66 61 75 6c 74 |ng. The|.default|
|000007c0| 20 66 69 6c 74 65 72 20 | 72 65 6d 6f 76 65 73 20 | filter |removes |
|000007d0| 63 6f 6d 6d 61 6e 64 73 | 20 61 73 73 6f 63 69 61 |commands| associa|
|000007e0| 74 65 64 20 77 69 74 68 | 20 74 68 65 20 63 6f 6d |ted with| the com|
|000007f0| 6d 61 6e 64 2d 68 69 73 | 74 6f 72 79 2e 22 29 0a |mand-his|tory.").|
|00000800| 28 66 73 65 74 20 27 64 | 65 66 61 75 6c 74 2d 63 |(fset 'd|efault-c|
|00000810| 6f 6d 6d 61 6e 64 2d 68 | 69 73 74 6f 72 79 2d 66 |ommand-h|istory-f|
|00000820| 69 6c 74 65 72 20 23 5b | 28 66 72 6f 62 29 20 22 |ilter #[|(frob) "|
|00000830| 08 3a 3f ae 84 08 40 09 | 3e 87 22 20 5b 66 72 6f |.:?...@.|>." [fro|
|00000840| 62 20 64 65 66 61 75 6c | 74 2d 63 6f 6d 6d 61 6e |b defaul|t-comman|
|00000850| 64 2d 68 69 73 74 6f 72 | 79 2d 66 69 6c 74 65 72 |d-histor|y-filter|
|00000860| 2d 67 61 72 62 61 67 65 | 5d 20 32 20 22 5c 0a 46 |-garbage|] 2 "\.F|
|00000870| 69 6c 74 65 72 20 63 6f | 6d 6d 61 6e 64 73 20 6d |ilter co|mmands m|
|00000880| 61 74 63 68 69 6e 67 20 | 20 64 65 66 61 75 6c 74 |atching | default|
|00000890| 2d 63 6f 6d 6d 61 6e 64 | 2d 68 69 73 74 6f 72 79 |-command|-history|
|000008a0| 2d 66 69 6c 74 65 72 2d | 67 61 72 62 61 67 65 20 |-filter-|garbage |
|000008b0| 20 6c 69 73 74 0a 66 72 | 6f 6d 20 74 68 65 20 63 | list.fr|om the c|
|000008c0| 6f 6d 6d 61 6e 64 20 68 | 69 73 74 6f 72 79 2e 22 |ommand h|istory."|
|000008d0| 5d 29 0a 28 64 65 66 76 | 61 72 20 6c 69 73 74 2d |]).(defv|ar list-|
|000008e0| 63 6f 6d 6d 61 6e 64 2d | 68 69 73 74 6f 72 79 2d |command-|history-|
|000008f0| 6d 61 78 20 33 32 20 22 | 5c 0a 2a 49 66 20 6e 6f |max 32 "|\.*If no|
|00000900| 6e 2d 6e 69 6c 2c 20 73 | 68 6f 75 6c 64 20 62 65 |n-nil, s|hould be|
|00000910| 20 61 20 70 6f 73 69 74 | 69 76 65 20 6e 75 6d 62 | a posit|ive numb|
|00000920| 65 72 20 77 68 69 63 68 | 20 73 70 65 63 69 66 69 |er which| specifi|
|00000930| 65 73 20 74 68 65 20 6d | 61 78 69 6d 75 6d 0a 6c |es the m|aximum.l|
|00000940| 65 6e 67 74 68 20 6f 66 | 20 74 68 65 20 43 6f 6d |ength of| the Com|
|00000950| 6d 61 6e 64 20 48 69 73 | 74 6f 72 79 20 6c 69 73 |mand His|tory lis|
|00000960| 74 69 6e 67 20 70 72 6f | 64 75 63 65 64 20 62 79 |ting pro|duced by|
|00000970| 20 6c 69 73 74 2d 63 6f | 6d 6d 61 6e 64 2d 68 69 | list-co|mmand-hi|
|00000980| 73 74 6f 72 79 2e 22 29 | 0a 28 66 73 65 74 20 27 |story.")|.(fset '|
|00000990| 6c 69 73 74 2d 63 6f 6d | 6d 61 6e 64 2d 68 69 73 |list-com|mand-his|
|000009a0| 74 6f 72 79 20 23 5b 6e | 69 6c 20 22 c0 90 09 c2 |tory #[n|il "....|
|000009b0| 0b ae 81 c4 1d 1e 06 1e | 07 0d c8 55 ac a8 0e 07 |........|...U....|
|000009c0| ab a4 c9 ca 21 ab 8c 0e | 5c 6e ab 88 0e 5c 6e 0e |....!...|\n...\n.|
|000009d0| 07 40 21 ac 8c 0d 53 15 | cb 0e 07 40 21 88 cc 20 |.@!...S.|...@!.. |
|000009e0| 88 0e 07 41 16 07 aa 53 | 2b 8a c0 71 88 65 62 88 |...A...S|+..q.eb.|
|000009f0| 6d ab 85 cd ce 21 aa 82 | cf 20 29 91 87 22 20 5b |m....!..|. ).." [|
|00000a00| 22 2a 43 6f 6d 6d 61 6e | 64 20 48 69 73 74 6f 72 |"*Comman|d Histor|
|00000a10| 79 2a 22 20 63 6f 6d 6d | 61 6e 64 2d 68 69 73 74 |y*" comm|and-hist|
|00000a20| 6f 72 79 20 6e 69 6c 20 | 6c 69 73 74 2d 63 6f 6d |ory nil |list-com|
|00000a30| 6d 61 6e 64 2d 68 69 73 | 74 6f 72 79 2d 6d 61 78 |mand-his|tory-max|
|00000a40| 20 2d 31 20 63 6f 75 6e | 74 20 62 75 66 66 65 72 | -1 coun|t buffer|
|00000a50| 2d 72 65 61 64 2d 6f 6e | 6c 79 20 68 69 73 74 6f |-read-on|ly histo|
|00000a60| 72 79 20 30 20 62 6f 75 | 6e 64 70 20 6c 69 73 74 |ry 0 bou|ndp list|
|00000a70| 2d 63 6f 6d 6d 61 6e 64 | 2d 68 69 73 74 6f 72 79 |-command|-history|
|00000a80| 2d 66 69 6c 74 65 72 20 | 70 72 69 6e 31 20 74 65 |-filter |prin1 te|
|00000a90| 72 70 72 69 20 65 72 72 | 6f 72 20 22 4e 6f 20 63 |rpri err|or "No c|
|00000aa0| 6f 6d 6d 61 6e 64 20 68 | 69 73 74 6f 72 79 2e 22 |ommand h|istory."|
|00000ab0| 20 43 6f 6d 6d 61 6e 64 | 2d 68 69 73 74 6f 72 79 | Command|-history|
|00000ac0| 2d 73 65 74 75 70 5d 20 | 34 20 22 5c 0a 4c 69 73 |-setup] |4 "\.Lis|
|00000ad0| 74 20 68 69 73 74 6f 72 | 79 20 6f 66 20 63 6f 6d |t histor|y of com|
|00000ae0| 6d 61 6e 64 73 20 74 79 | 70 65 64 20 74 6f 20 6d |mands ty|ped to m|
|00000af0| 69 6e 69 62 75 66 66 65 | 72 2e 0a 54 68 65 20 6e |inibuffe|r..The n|
|00000b00| 75 6d 62 65 72 20 6f 66 | 20 63 6f 6d 6d 61 6e 64 |umber of| command|
|00000b10| 73 20 6c 69 73 74 65 64 | 20 69 73 20 63 6f 6e 74 |s listed| is cont|
|00000b20| 72 6f 6c 6c 65 64 20 62 | 79 20 20 6c 69 73 74 2d |rolled b|y list-|
|00000b30| 63 6f 6d 6d 61 6e 64 2d | 68 69 73 74 6f 72 79 2d |command-|history-|
|00000b40| 6d 61 78 2e 0a 43 61 6c | 6c 73 20 76 61 6c 75 65 |max..Cal|ls value|
|00000b50| 20 6f 66 20 20 6c 69 73 | 74 2d 63 6f 6d 6d 61 6e | of lis|t-comman|
|00000b60| 64 2d 68 69 73 74 6f 72 | 79 2d 66 69 6c 74 65 72 |d-histor|y-filter|
|00000b70| 20 20 28 69 66 20 6e 6f | 6e 2d 6e 69 6c 29 20 6f | (if no|n-nil) o|
|00000b80| 6e 20 65 61 63 68 20 68 | 69 73 74 6f 72 79 0a 65 |n each h|istory.e|
|00000b90| 6c 65 6d 65 6e 74 20 74 | 6f 20 6a 75 64 67 65 20 |lement t|o judge |
|00000ba0| 69 66 20 74 68 61 74 20 | 65 6c 65 6d 65 6e 74 20 |if that |element |
|00000bb0| 73 68 6f 75 6c 64 20 62 | 65 20 65 78 63 6c 75 64 |should b|e exclud|
|00000bc0| 65 64 20 66 72 6f 6d 20 | 74 68 65 20 6c 69 73 74 |ed from |the list|
|00000bd0| 2e 0a 0a 54 68 65 20 62 | 75 66 66 65 72 20 69 73 |...The b|uffer is|
|00000be0| 20 6c 65 66 74 20 69 6e | 20 43 6f 6d 6d 61 6e 64 | left in| Command|
|00000bf0| 20 48 69 73 74 6f 72 79 | 20 6d 6f 64 65 2e 22 20 | History| mode." |
|00000c00| 6e 69 6c 5d 29 0a 28 66 | 73 65 74 20 27 43 6f 6d |nil]).(f|set 'Com|
|00000c10| 6d 61 6e 64 2d 68 69 73 | 74 6f 72 79 2d 73 65 74 |mand-his|tory-set|
|00000c20| 75 70 20 23 5b 28 26 6f | 70 74 69 6f 6e 61 6c 20 |up #[(&o|ptional |
|00000c30| 6d 61 6a 6f 72 6d 6f 64 | 65 20 6d 6f 64 65 6e 61 |majormod|e modena|
|00000c40| 6d 65 20 6b 65 79 6d 61 | 70 29 20 22 c0 71 88 c1 |me keyma|p) ".q..|
|00000c50| 5c 6e ae 81 0b 21 88 c4 | c5 21 88 c6 0e 07 21 88 |\n...!..|.!....!.|
|00000c60| c8 16 09 c1 5c 6e ae 81 | 0b 21 88 0e 5c 6e ae 81 |....\n..|.!..\n..|
|00000c70| cb 16 0c 0e 0d ae 81 ce | 89 16 0f 87 22 20 5b 22 |........|...." ["|
|00000c80| 2a 43 6f 6d 6d 61 6e 64 | 20 48 69 73 74 6f 72 79 |*Command| History|
|00000c90| 2a 22 20 75 73 65 2d 6c | 6f 63 61 6c 2d 6d 61 70 |*" use-l|ocal-map|
|00000ca0| 20 6b 65 79 6d 61 70 20 | 63 6f 6d 6d 61 6e 64 2d | keymap |command-|
|00000cb0| 68 69 73 74 6f 72 79 2d | 6d 61 70 20 6c 69 73 70 |history-|map lisp|
|00000cc0| 2d 6d 6f 64 65 2d 76 61 | 72 69 61 62 6c 65 73 20 |-mode-va|riables |
|00000cd0| 6e 69 6c 20 73 65 74 2d | 73 79 6e 74 61 78 2d 74 |nil set-|syntax-t|
|00000ce0| 61 62 6c 65 20 65 6d 61 | 63 73 2d 6c 69 73 70 2d |able ema|cs-lisp-|
|00000cf0| 6d 6f 64 65 2d 73 79 6e | 74 61 78 2d 74 61 62 6c |mode-syn|tax-tabl|
|00000d00| 65 20 74 20 62 75 66 66 | 65 72 2d 72 65 61 64 2d |e t buff|er-read-|
|00000d10| 6f 6e 6c 79 20 6d 61 6a | 6f 72 6d 6f 64 65 20 63 |only maj|ormode c|
|00000d20| 6f 6d 6d 61 6e 64 2d 68 | 69 73 74 6f 72 79 2d 6d |ommand-h|istory-m|
|00000d30| 6f 64 65 20 6d 61 6a 6f | 72 2d 6d 6f 64 65 20 6d |ode majo|r-mode m|
|00000d40| 6f 64 65 6e 61 6d 65 20 | 22 43 6f 6d 6d 61 6e 64 |odename |"Command|
|00000d50| 20 48 69 73 74 6f 72 79 | 22 20 6d 6f 64 65 2d 6e | History|" mode-n|
|00000d60| 61 6d 65 5d 20 32 5d 29 | 0a 28 64 65 66 76 61 72 |ame] 2])|.(defvar|
|00000d70| 20 63 6f 6d 6d 61 6e 64 | 2d 68 69 73 74 6f 72 79 | command|-history|
|00000d80| 2d 68 6f 6f 6b 20 6e 69 | 6c 20 22 5c 0a 49 66 20 |-hook ni|l "\.If |
|00000d90| 6e 6f 6e 2d 6e 69 6c 2c | 20 69 74 73 20 76 61 6c |non-nil,| its val|
|00000da0| 75 65 20 69 73 20 63 61 | 6c 6c 65 64 20 6f 6e 20 |ue is ca|lled on |
|00000db0| 65 6e 74 72 79 20 74 6f | 20 20 63 6f 6d 6d 61 6e |entry to| comman|
|00000dc0| 64 2d 68 69 73 74 6f 72 | 79 2d 6d 6f 64 65 2e 22 |d-histor|y-mode."|
|00000dd0| 29 0a 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 c1 |).(byte-|code "..|
|00000de0| 21 ac 82 c2 11 09 ac a4 | c3 20 11 c4 09 0d 5c 22 |!.......|. ....\"|
|00000df0| 88 c6 09 21 88 c7 09 c8 | c9 23 88 c7 09 ca cb 23 |...!....|.#.....#|
|00000e00| 88 c7 09 cc cb 23 88 c7 | 09 cd ce 23 88 c2 87 22 |.....#..|...#..."|
|00000e10| 20 5b 62 6f 75 6e 64 70 | 20 63 6f 6d 6d 61 6e 64 | [boundp| command|
|00000e20| 2d 68 69 73 74 6f 72 79 | 2d 6d 61 70 20 6e 69 6c |-history|-map nil|
|00000e30| 20 6d 61 6b 65 2d 73 70 | 61 72 73 65 2d 6b 65 79 | make-sp|arse-key|
|00000e40| 6d 61 70 20 73 65 74 2d | 6b 65 79 6d 61 70 2d 70 |map set-|keymap-p|
|00000e50| 61 72 65 6e 74 20 73 68 | 61 72 65 64 2d 6c 69 73 |arent sh|ared-lis|
|00000e60| 70 2d 6d 6f 64 65 2d 6d | 61 70 20 73 75 70 70 72 |p-mode-m|ap suppr|
|00000e70| 65 73 73 2d 6b 65 79 6d | 61 70 20 64 65 66 69 6e |ess-keym|ap defin|
|00000e80| 65 2d 6b 65 79 20 22 78 | 22 20 63 6f 6d 6d 61 6e |e-key "x|" comman|
|00000e90| 64 2d 68 69 73 74 6f 72 | 79 2d 72 65 70 65 61 74 |d-histor|y-repeat|
|00000ea0| 20 22 5c 6e 22 20 6e 65 | 78 74 2d 6c 69 6e 65 20 | "\n" ne|xt-line |
|00000eb0| 22 0d 22 20 22 7f 22 20 | 70 72 65 76 69 6f 75 73 |"." "." |previous|
|00000ec0| 2d 6c 69 6e 65 5d 20 34 | 29 0a 28 66 73 65 74 20 |-line] 4|).(fset |
|00000ed0| 27 63 6f 6d 6d 61 6e 64 | 2d 68 69 73 74 6f 72 79 |'command|-history|
|00000ee0| 2d 72 65 70 65 61 74 20 | 23 5b 6e 69 6c 20 22 8a |-repeat |#[nil ".|
|00000ef0| c0 8a c1 79 88 c2 70 21 | 29 c3 20 41 71 88 21 29 |...y..p!|). Aq.!)|
|00000f00| 87 22 20 5b 65 76 61 6c | 20 30 20 72 65 61 64 20 |." [eval| 0 read |
|00000f10| 62 75 66 66 65 72 2d 6c | 69 73 74 5d 20 33 20 22 |buffer-l|ist] 3 "|
|00000f20| 5c 0a 52 65 70 65 61 74 | 20 74 68 65 20 63 6f 6d |\.Repeat| the com|
|00000f30| 6d 61 6e 64 20 73 68 6f | 77 6e 20 6f 6e 20 74 68 |mand sho|wn on th|
|00000f40| 65 20 63 75 72 72 65 6e | 74 20 6c 69 6e 65 2e 0a |e curren|t line..|
|00000f50| 54 68 65 20 62 75 66 66 | 65 72 20 66 6f 72 20 74 |The buff|er for t|
|00000f60| 68 61 74 20 63 6f 6d 6d | 61 6e 64 20 69 73 20 74 |hat comm|and is t|
|00000f70| 68 65 20 70 72 65 76 69 | 6f 75 73 20 63 75 72 72 |he previ|ous curr|
|00000f80| 65 6e 74 20 62 75 66 66 | 65 72 2e 22 20 6e 69 6c |ent buff|er." nil|
|00000f90| 5d 29 0a 28 66 73 65 74 | 20 27 63 6f 6d 6d 61 6e |]).(fset| 'comman|
|00000fa0| 64 2d 68 69 73 74 6f 72 | 79 2d 6d 6f 64 65 20 23 |d-histor|y-mode #|
|00000fb0| 5b 6e 69 6c 20 22 c0 20 | 88 c1 c2 21 88 c3 c4 21 |[nil ". |...!...!|
|00000fc0| 87 22 20 5b 6c 69 73 74 | 2d 63 6f 6d 6d 61 6e 64 |." [list|-command|
|00000fd0| 2d 68 69 73 74 6f 72 79 | 20 70 6f 70 2d 74 6f 2d |-history| pop-to-|
|00000fe0| 62 75 66 66 65 72 20 22 | 2a 43 6f 6d 6d 61 6e 64 |buffer "|*Command|
|00000ff0| 20 48 69 73 74 6f 72 79 | 2a 22 20 72 75 6e 2d 68 | History|*" run-h|
|00001000| 6f 6f 6b 73 20 63 6f 6d | 6d 61 6e 64 2d 68 69 73 |ooks com|mand-his|
|00001010| 74 6f 72 79 2d 68 6f 6f | 6b 5d 20 32 20 22 5c 0a |tory-hoo|k] 2 "\.|
|00001020| 4d 61 6a 6f 72 20 6d 6f | 64 65 20 66 6f 72 20 65 |Major mo|de for e|
|00001030| 78 61 6d 69 6e 69 6e 67 | 20 63 6f 6d 6d 61 6e 64 |xamining| command|
|00001040| 73 20 66 72 6f 6d 20 20 | 63 6f 6d 6d 61 6e 64 2d |s from |command-|
|00001050| 68 69 73 74 6f 72 79 2e | 0a 54 68 65 20 6e 75 6d |history.|.The num|
|00001060| 62 65 72 20 6f 66 20 63 | 6f 6d 6d 61 6e 64 73 20 |ber of c|ommands |
|00001070| 6c 69 73 74 65 64 20 69 | 73 20 63 6f 6e 74 72 6f |listed i|s contro|
|00001080| 6c 6c 65 64 20 62 79 20 | 20 6c 69 73 74 2d 63 6f |lled by | list-co|
|00001090| 6d 6d 61 6e 64 2d 68 69 | 73 74 6f 72 79 2d 6d 61 |mmand-hi|story-ma|
|000010a0| 78 2e 0a 54 68 65 20 63 | 6f 6d 6d 61 6e 64 20 68 |x..The c|ommand h|
|000010b0| 69 73 74 6f 72 79 20 69 | 73 20 66 69 6c 74 65 72 |istory i|s filter|
|000010c0| 65 64 20 62 79 20 20 6c | 69 73 74 2d 63 6f 6d 6d |ed by l|ist-comm|
|000010d0| 61 6e 64 2d 68 69 73 74 | 6f 72 79 2d 66 69 6c 74 |and-hist|ory-filt|
|000010e0| 65 72 20 20 69 66 20 6e | 6f 6e 2d 6e 69 6c 2e 0a |er if n|on-nil..|
|000010f0| 5c 5c 3c 63 6f 6d 6d 61 | 6e 64 2d 68 69 73 74 6f |\\<comma|nd-histo|
|00001100| 72 79 2d 6d 61 70 3e 55 | 73 65 20 5c 5c 5b 63 6f |ry-map>U|se \\[co|
|00001110| 6d 6d 61 6e 64 2d 68 69 | 73 74 6f 72 79 2d 72 65 |mmand-hi|story-re|
|00001120| 70 65 61 74 5d 20 74 6f | 20 72 65 70 65 61 74 20 |peat] to| repeat |
|00001130| 74 68 65 20 63 6f 6d 6d | 61 6e 64 20 6f 6e 20 74 |the comm|and on t|
|00001140| 68 65 20 63 75 72 72 65 | 6e 74 20 6c 69 6e 65 2e |he curre|nt line.|
|00001150| 0a 0a 4f 74 68 65 72 77 | 69 73 65 20 6d 75 63 68 |..Otherw|ise much|
|00001160| 20 6c 69 6b 65 20 45 6d | 61 63 73 2d 4c 69 73 70 | like Em|acs-Lisp|
|00001170| 20 4d 6f 64 65 20 65 78 | 63 65 70 74 20 74 68 61 | Mode ex|cept tha|
|00001180| 74 20 74 68 65 72 65 20 | 69 73 20 6e 6f 20 73 65 |t there |is no se|
|00001190| 6c 66 2d 69 6e 73 65 72 | 74 69 6f 6e 0a 61 6e 64 |lf-inser|tion.and|
|000011a0| 20 64 69 67 69 74 73 20 | 70 72 6f 76 69 64 65 20 | digits |provide |
|000011b0| 70 72 65 66 69 78 20 61 | 72 67 75 6d 65 6e 74 73 |prefix a|rguments|
|000011c0| 2e 20 20 54 61 62 20 64 | 6f 65 73 20 6e 6f 74 20 |. Tab d|oes not |
|000011d0| 69 6e 64 65 6e 74 2e 0a | 5c 5c 7b 63 6f 6d 6d 61 |indent..|\\{comma|
|000011e0| 6e 64 2d 68 69 73 74 6f | 72 79 2d 6d 61 70 7d 0a |nd-histo|ry-map}.|
|000011f0| 43 61 6c 6c 73 20 74 68 | 65 20 76 61 6c 75 65 20 |Calls th|e value |
|00001200| 6f 66 20 20 63 6f 6d 6d | 61 6e 64 2d 68 69 73 74 |of comm|and-hist|
|00001210| 6f 72 79 2d 68 6f 6f 6b | 20 20 69 66 20 74 68 61 |ory-hook| if tha|
|00001220| 74 20 69 73 20 6e 6f 6e | 2d 6e 69 6c 0a 54 68 65 |t is non|-nil.The|
|00001230| 20 43 6f 6d 6d 61 6e 64 | 20 48 69 73 74 6f 72 79 | Command| History|
|00001240| 20 6c 69 73 74 69 6e 67 | 20 69 73 20 72 65 63 6f | listing| is reco|
|00001250| 6d 70 75 74 65 64 20 65 | 61 63 68 20 74 69 6d 65 |mputed e|ach time|
|00001260| 20 74 68 69 73 20 6d 6f | 64 65 20 69 73 0a 69 6e | this mo|de is.in|
|00001270| 76 6f 6b 65 64 2e 22 20 | 6e 69 6c 5d 29 0a |voked." |nil]). |
+--------+-------------------------+-------------------------+--------+--------+
