home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1991-01-10 | 2.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: '(defun forward-page ('
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0a 28 64 65 66 75 6e 20 | 66 6f 72 77 61 72 64 2d |.(defun |forward-|
|00000010| 70 61 67 65 20 28 26 6f | 70 74 69 6f 6e 61 6c 20 |page (&o|ptional |
|00000020| 63 6f 75 6e 74 29 20 22 | 5c 0a 4d 6f 76 65 20 66 |count) "|\.Move f|
|00000030| 6f 72 77 61 72 64 20 74 | 6f 20 70 61 67 65 20 62 |orward t|o page b|
|00000040| 6f 75 6e 64 61 72 79 2e | 20 20 57 69 74 68 20 61 |oundary.| With a|
|00000050| 72 67 2c 20 72 65 70 65 | 61 74 2c 20 6f 72 20 67 |rg, repe|at, or g|
|00000060| 6f 20 62 61 63 6b 20 69 | 66 20 6e 65 67 61 74 69 |o back i|f negati|
|00000070| 76 65 2e 0a 41 20 70 61 | 67 65 20 62 6f 75 6e 64 |ve..A pa|ge bound|
|00000080| 61 72 79 20 69 73 20 61 | 6e 79 20 6c 69 6e 65 20 |ary is a|ny line |
|00000090| 77 68 6f 73 65 20 62 65 | 67 69 6e 6e 69 6e 67 20 |whose be|ginning |
|000000a0| 6d 61 74 63 68 65 73 20 | 74 68 65 20 72 65 67 65 |matches |the rege|
|000000b0| 78 70 20 20 70 61 67 65 | 2d 64 65 6c 69 6d 69 74 |xp page|-delimit|
|000000c0| 65 72 2e 22 20 28 69 6e | 74 65 72 61 63 74 69 76 |er." (in|teractiv|
|000000d0| 65 20 22 70 22 29 20 28 | 62 79 74 65 2d 63 6f 64 |e "p") (|byte-cod|
|000000e0| 65 20 22 c2 88 08 86 09 | 00 c4 89 10 88 08 c5 56 |e ".....|.......V|
|000000f0| 85 12 00 6d 3f 85 2c 00 | c6 09 c2 c3 23 83 21 00 |...m?.,.|....#.!.|
|00000100| c2 82 23 00 64 62 88 08 | 53 89 10 88 82 0a 00 88 |..#.db..|S.......|
|00000110| 08 c5 57 85 35 00 6f 3f | 85 56 00 c7 c8 21 88 c9 |..W.5.o?|.V...!..|
|00000120| 09 c2 c3 23 83 4b 00 ca | c5 21 62 82 4d 00 65 62 |...#.K..|.!b.M.eb|
|00000130| 88 08 54 89 10 88 82 2d | 00 87 22 20 5b 63 6f 75 |..T....-|.." [cou|
|00000140| 6e 74 20 70 61 67 65 2d | 64 65 6c 69 6d 69 74 65 |nt page-|delimite|
|00000150| 72 20 6e 69 6c 20 74 20 | 31 20 30 20 72 65 2d 73 |r nil t |1 0 re-s|
|00000160| 65 61 72 63 68 2d 66 6f | 72 77 61 72 64 20 66 6f |earch-fo|rward fo|
|00000170| 72 77 61 72 64 2d 63 68 | 61 72 20 2d 31 20 72 65 |rward-ch|ar -1 re|
|00000180| 2d 73 65 61 72 63 68 2d | 62 61 63 6b 77 61 72 64 |-search-|backward|
|00000190| 20 6d 61 74 63 68 2d 65 | 6e 64 5d 20 37 29 29 0a | match-e|nd] 7)).|
|000001a0| 0a 28 64 65 66 75 6e 20 | 62 61 63 6b 77 61 72 64 |.(defun |backward|
|000001b0| 2d 70 61 67 65 20 28 26 | 6f 70 74 69 6f 6e 61 6c |-page (&|optional|
|000001c0| 20 63 6f 75 6e 74 29 20 | 22 5c 0a 4d 6f 76 65 20 | count) |"\.Move |
|000001d0| 62 61 63 6b 77 61 72 64 | 20 74 6f 20 70 61 67 65 |backward| to page|
|000001e0| 20 62 6f 75 6e 64 61 72 | 79 2e 20 20 57 69 74 68 | boundar|y. With|
|000001f0| 20 61 72 67 2c 20 72 65 | 70 65 61 74 2c 20 6f 72 | arg, re|peat, or|
|00000200| 20 67 6f 20 66 77 64 20 | 69 66 20 6e 65 67 61 74 | go fwd |if negat|
|00000210| 69 76 65 2e 0a 41 20 70 | 61 67 65 20 62 6f 75 6e |ive..A p|age boun|
|00000220| 64 61 72 79 20 69 73 20 | 61 6e 79 20 6c 69 6e 65 |dary is |any line|
|00000230| 20 77 68 6f 73 65 20 62 | 65 67 69 6e 6e 69 6e 67 | whose b|eginning|
|00000240| 20 6d 61 74 63 68 65 73 | 20 74 68 65 20 72 65 67 | matches| the reg|
|00000250| 65 78 70 20 20 70 61 67 | 65 2d 64 65 6c 69 6d 69 |exp pag|e-delimi|
|00000260| 74 65 72 2e 22 20 28 69 | 6e 74 65 72 61 63 74 69 |ter." (i|nteracti|
|00000270| 76 65 20 22 70 22 29 20 | 28 62 79 74 65 2d 63 6f |ve "p") |(byte-co|
|00000280| 64 65 20 22 c1 88 08 86 | 09 00 c2 89 10 88 c3 08 |de "....|........|
|00000290| 5b 21 87 22 20 5b 63 6f | 75 6e 74 20 6e 69 6c 20 |[!." [co|unt nil |
|000002a0| 31 20 66 6f 72 77 61 72 | 64 2d 70 61 67 65 5d 20 |1 forwar|d-page] |
|000002b0| 32 29 29 0a 0a 28 64 65 | 66 75 6e 20 6d 61 72 6b |2))..(de|fun mark|
|000002c0| 2d 70 61 67 65 20 28 26 | 6f 70 74 69 6f 6e 61 6c |-page (&|optional|
|000002d0| 20 61 72 67 29 20 22 5c | 0a 50 75 74 20 6d 61 72 | arg) "\|.Put mar|
|000002e0| 6b 20 61 74 20 65 6e 64 | 20 6f 66 20 70 61 67 65 |k at end| of page|
|000002f0| 2c 20 70 6f 69 6e 74 20 | 61 74 20 62 65 67 69 6e |, point |at begin|
|00000300| 6e 69 6e 67 2e 0a 41 20 | 6e 75 6d 65 72 69 63 20 |ning..A |numeric |
|00000310| 61 72 67 20 73 70 65 63 | 69 66 69 65 73 20 74 6f |arg spec|ifies to|
|00000320| 20 6d 6f 76 65 20 66 6f | 72 77 61 72 64 20 6f 72 | move fo|rward or|
|00000330| 20 62 61 63 6b 77 61 72 | 64 20 62 79 20 74 68 61 | backwar|d by tha|
|00000340| 74 20 6d 61 6e 79 20 70 | 61 67 65 73 2c 0a 74 68 |t many p|ages,.th|
|00000350| 75 73 20 6d 61 72 6b 69 | 6e 67 20 61 20 70 61 67 |us marki|ng a pag|
|00000360| 65 20 6f 74 68 65 72 20 | 74 68 61 6e 20 74 68 65 |e other |than the|
|00000370| 20 6f 6e 65 20 70 6f 69 | 6e 74 20 77 61 73 20 6f | one poi|nt was o|
|00000380| 72 69 67 69 6e 61 6c 6c | 79 20 69 6e 2e 22 20 28 |riginall|y in." (|
|00000390| 69 6e 74 65 72 61 63 74 | 69 76 65 20 22 50 22 29 |interact|ive "P")|
|000003a0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c1 88 08 | (byte-c|ode "...|
|000003b0| 83 0c 00 c3 08 21 82 0d | 00 c4 89 10 88 08 c4 56 |.....!..|.......V|
|000003c0| 83 1c 00 c5 08 21 82 26 | 00 08 c4 57 85 26 00 c5 |.....!.&|...W.&..|
|000003d0| 08 53 21 88 c5 20 88 c6 | c1 c2 5c 22 88 c5 c7 21 |.S!.. ..|..\"...!|
|000003e0| 87 22 20 5b 61 72 67 20 | 6e 69 6c 20 74 20 70 72 |." [arg |nil t pr|
|000003f0| 65 66 69 78 2d 6e 75 6d | 65 72 69 63 2d 76 61 6c |efix-num|eric-val|
|00000400| 75 65 20 30 20 66 6f 72 | 77 61 72 64 2d 70 61 67 |ue 0 for|ward-pag|
|00000410| 65 20 70 75 73 68 2d 6d | 61 72 6b 20 2d 31 5d 20 |e push-m|ark -1] |
|00000420| 37 29 29 0a 0a 28 64 65 | 66 75 6e 20 6e 61 72 72 |7))..(de|fun narr|
|00000430| 6f 77 2d 74 6f 2d 70 61 | 67 65 20 28 26 6f 70 74 |ow-to-pa|ge (&opt|
|00000440| 69 6f 6e 61 6c 20 61 72 | 67 29 20 22 5c 0a 4d 61 |ional ar|g) "\.Ma|
|00000450| 6b 65 20 74 65 78 74 20 | 6f 75 74 73 69 64 65 20 |ke text |outside |
|00000460| 63 75 72 72 65 6e 74 20 | 70 61 67 65 20 69 6e 76 |current |page inv|
|00000470| 69 73 69 62 6c 65 2e 0a | 41 20 6e 75 6d 65 72 69 |isible..|A numeri|
|00000480| 63 20 61 72 67 20 73 70 | 65 63 69 66 69 65 73 20 |c arg sp|ecifies |
|00000490| 74 6f 20 6d 6f 76 65 20 | 66 6f 72 77 61 72 64 20 |to move |forward |
|000004a0| 6f 72 20 62 61 63 6b 77 | 61 72 64 20 62 79 20 74 |or backw|ard by t|
|000004b0| 68 61 74 20 6d 61 6e 79 | 20 70 61 67 65 73 2c 0a |hat many| pages,.|
|000004c0| 74 68 75 73 20 73 68 6f | 77 69 6e 67 20 61 20 70 |thus sho|wing a p|
|000004d0| 61 67 65 20 6f 74 68 65 | 72 20 74 68 61 6e 20 74 |age othe|r than t|
|000004e0| 68 65 20 6f 6e 65 20 70 | 6f 69 6e 74 20 77 61 73 |he one p|oint was|
|000004f0| 20 6f 72 69 67 69 6e 61 | 6c 6c 79 20 69 6e 2e 22 | origina|lly in."|
|00000500| 20 28 69 6e 74 65 72 61 | 63 74 69 76 65 20 22 50 | (intera|ctive "P|
|00000510| 22 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c2 |") (byte|-code ".|
|00000520| 88 08 83 0c 00 c3 08 21 | 82 0d 00 c4 89 10 88 8a |.......!|........|
|00000530| c5 20 88 08 c4 56 83 20 | 00 c6 08 21 82 2a 00 08 |. ...V. |...!.*..|
|00000540| c4 57 85 2a 00 c6 08 53 | 21 88 c6 20 88 8a c7 20 |.W.*...S|!.. ... |
|00000550| 88 c8 09 21 29 85 3b 00 | c7 20 88 c9 60 c6 ca 21 |...!).;.|. ..`..!|
|00000560| 88 6c 85 48 00 6f 3f 85 | 4e 00 cb cc 21 88 60 5c |.l.H.o?.|N...!.`\|
|00000570| 22 29 87 22 20 5b 61 72 | 67 20 70 61 67 65 2d 64 |")." [ar|g page-d|
|00000580| 65 6c 69 6d 69 74 65 72 | 20 6e 69 6c 20 70 72 65 |elimiter| nil pre|
|00000590| 66 69 78 2d 6e 75 6d 65 | 72 69 63 2d 76 61 6c 75 |fix-nume|ric-valu|
|000005a0| 65 20 30 20 77 69 64 65 | 6e 20 66 6f 72 77 61 72 |e 0 wide|n forwar|
|000005b0| 64 2d 70 61 67 65 20 62 | 65 67 69 6e 6e 69 6e 67 |d-page b|eginning|
|000005c0| 2d 6f 66 2d 6c 69 6e 65 | 20 6c 6f 6f 6b 69 6e 67 |-of-line| looking|
|000005d0| 2d 61 74 20 6e 61 72 72 | 6f 77 2d 74 6f 2d 72 65 |-at narr|ow-to-re|
|000005e0| 67 69 6f 6e 20 2d 31 20 | 66 6f 72 77 61 72 64 2d |gion -1 |forward-|
|000005f0| 6c 69 6e 65 20 31 5d 20 | 31 33 29 29 0a 0a 28 64 |line 1] |13))..(d|
|00000600| 65 66 75 6e 20 63 6f 75 | 6e 74 2d 6c 69 6e 65 73 |efun cou|nt-lines|
|00000610| 2d 70 61 67 65 20 6e 69 | 6c 20 22 5c 0a 52 65 70 |-page ni|l "\.Rep|
|00000620| 6f 72 74 20 6e 75 6d 62 | 65 72 20 6f 66 20 6c 69 |ort numb|er of li|
|00000630| 6e 65 73 20 6f 6e 20 63 | 75 72 72 65 6e 74 20 70 |nes on c|urrent p|
|00000640| 61 67 65 2c 20 61 6e 64 | 20 68 6f 77 20 6d 61 6e |age, and| how man|
|00000650| 79 20 61 72 65 20 62 65 | 66 6f 72 65 20 6f 72 20 |y are be|fore or |
|00000660| 61 66 74 65 72 20 70 6f | 69 6e 74 2e 22 20 28 69 |after po|int." (i|
|00000670| 6e 74 65 72 61 63 74 69 | 76 65 29 20 28 62 79 74 |nteracti|ve) (byt|
|00000680| 65 2d 63 6f 64 65 20 22 | c7 88 8a 60 c7 c7 c7 c7 |e-code "|...`....|
|00000690| c7 1d 1c 1b 1a 19 18 c8 | 20 88 c9 20 88 ca 0e 06 |........| .. ....|
|000006a0| 21 86 1e 00 cb 20 88 60 | 89 12 88 cc 20 88 60 89 |!.... .`|.... .`.|
|000006b0| 11 88 cd 09 0a 5c 22 13 | cd 09 08 5c 22 14 cd 08 |.....\".|...\"...|
|000006c0| 0a 5c 22 89 15 88 ce cf | 0b 0c 0d 24 2e 06 29 87 |.\".....|...$..).|
|000006d0| 22 20 5b 6f 70 6f 69 6e | 74 20 62 65 67 20 65 6e |" [opoin|t beg en|
|000006e0| 64 20 74 6f 74 61 6c 20 | 62 65 66 6f 72 65 20 61 |d total |before a|
|000006f0| 66 74 65 72 20 70 61 67 | 65 2d 64 65 6c 69 6d 69 |fter pag|e-delimi|
|00000700| 74 65 72 20 6e 69 6c 20 | 66 6f 72 77 61 72 64 2d |ter nil |forward-|
|00000710| 70 61 67 65 20 62 65 67 | 69 6e 6e 69 6e 67 2d 6f |page beg|inning-o|
|00000720| 66 2d 6c 69 6e 65 20 6c | 6f 6f 6b 69 6e 67 2d 61 |f-line l|ooking-a|
|00000730| 74 20 65 6e 64 2d 6f 66 | 2d 6c 69 6e 65 20 62 61 |t end-of|-line ba|
|00000740| 63 6b 77 61 72 64 2d 70 | 61 67 65 20 63 6f 75 6e |ckward-p|age coun|
|00000750| 74 2d 6c 69 6e 65 73 20 | 6d 65 73 73 61 67 65 20 |t-lines |message |
|00000760| 22 50 61 67 65 20 68 61 | 73 20 25 64 20 6c 69 6e |"Page ha|s %d lin|
|00000770| 65 73 20 28 25 64 20 2b | 20 25 64 29 22 5d 20 31 |es (%d +| %d)"] 1|
|00000780| 33 29 29 0a 0a 28 64 65 | 66 75 6e 20 77 68 61 74 |3))..(de|fun what|
|00000790| 2d 70 61 67 65 20 6e 69 | 6c 20 22 5c 0a 50 72 69 |-page ni|l "\.Pri|
|000007a0| 6e 74 20 70 61 67 65 20 | 61 6e 64 20 6c 69 6e 65 |nt page |and line|
|000007b0| 20 6e 75 6d 62 65 72 20 | 6f 66 20 70 6f 69 6e 74 | number |of point|
|000007c0| 2e 22 20 28 69 6e 74 65 | 72 61 63 74 69 76 65 29 |." (inte|ractive)|
|000007d0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c4 88 8c | (byte-c|ode "...|
|000007e0| c5 20 88 8a c6 20 88 c7 | 60 19 18 c7 62 88 c8 0a |. ... ..|`...b...|
|000007f0| 09 c3 23 85 21 00 08 54 | 89 10 88 82 11 00 88 c9 |..#.!..T|........|
|00000800| ca 08 cb 60 09 5c 22 54 | 23 2a 29 29 87 22 20 5b |...`.\"T|#*))." [|
|00000810| 63 6f 75 6e 74 20 6f 70 | 6f 69 6e 74 20 70 61 67 |count op|oint pag|
|00000820| 65 2d 64 65 6c 69 6d 69 | 74 65 72 20 74 20 6e 69 |e-delimi|ter t ni|
|00000830| 6c 20 77 69 64 65 6e 20 | 62 65 67 69 6e 6e 69 6e |l widen |beginnin|
|00000840| 67 2d 6f 66 2d 6c 69 6e | 65 20 31 20 72 65 2d 73 |g-of-lin|e 1 re-s|
|00000850| 65 61 72 63 68 2d 66 6f | 72 77 61 72 64 20 6d 65 |earch-fo|rward me|
|00000860| 73 73 61 67 65 20 22 50 | 61 67 65 20 25 64 2c 20 |ssage "P|age %d, |
|00000870| 6c 69 6e 65 20 25 64 22 | 20 63 6f 75 6e 74 2d 6c |line %d"| count-l|
|00000880| 69 6e 65 73 5d 20 39 29 | 29 0a |ines] 9)|). |
+--------+-------------------------+-------------------------+--------+--------+
