/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / emacs-19.16 / lisp / page.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|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 69 6d 62 40 67 65 |piled by| jimb@ge|
|00000020| 65 63 68 2e 67 6e 75 2e | 61 69 2e 6d 69 74 2e 65 |ech.gnu.|ai.mit.e|
|00000030| 64 75 20 6f 6e 20 4d 6f | 6e 20 4a 75 6c 20 20 35 |du on Mo|n Jul  5|
|00000040| 20 32 33 3a 34 34 3a 31 | 36 20 31 39 39 33 0a 3b | 23:44:1|6 1993.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 67 64 |;; from |file /gd|
|00000060| 2f 67 6e 75 2f 65 6d 61 | 63 73 2f 31 39 2e 30 2f |/gnu/ema|cs/19.0/|
|00000070| 6c 69 73 70 2f 70 61 67 | 65 2e 65 6c 0a 3b 3b 3b |lisp/pag|e.el.;;;|
|00000080| 20 65 6d 61 63 73 20 76 | 65 72 73 69 6f 6e 20 31 | emacs v|ersion 1|
|00000090| 39 2e 31 35 2e 31 36 2e | 0a 3b 3b 3b 20 62 79 74 |9.15.16.|.;;; byt|
|000000a0| 65 63 6f 6d 70 20 76 65 | 72 73 69 6f 6e 20 46 53 |ecomp ve|rsion FS|
|000000b0| 46 20 32 2e 31 30 0a 3b | 3b 3b 20 6f 70 74 69 6d |F 2.10.;|;; optim|
|000000c0| 69 7a 61 74 69 6f 6e 20 | 69 73 20 6f 6e 2e 0a 3b |ization |is on..;|
|000000d0| 3b 3b 20 74 68 69 73 20 | 66 69 6c 65 20 75 73 65 |;; this |file use|
|000000e0| 73 20 6f 70 63 6f 64 65 | 73 20 77 68 69 63 68 20 |s opcode|s which |
|000000f0| 64 6f 20 6e 6f 74 20 65 | 78 69 73 74 20 69 6e 20 |do not e|xist in |
|00000100| 45 6d 61 63 73 20 31 38 | 2e 0a 0a 28 69 66 20 28 |Emacs 18|...(if (|
|00000110| 61 6e 64 20 28 62 6f 75 | 6e 64 70 20 27 65 6d 61 |and (bou|ndp 'ema|
|00000120| 63 73 2d 76 65 72 73 69 | 6f 6e 29 0a 09 20 28 6f |cs-versi|on).. (o|
|00000130| 72 20 28 61 6e 64 20 28 | 62 6f 75 6e 64 70 20 27 |r (and (|boundp '|
|00000140| 65 70 6f 63 68 3a 3a 76 | 65 72 73 69 6f 6e 29 20 |epoch::v|ersion) |
|00000150| 65 70 6f 63 68 3a 3a 76 | 65 72 73 69 6f 6e 29 0a |epoch::v|ersion).|
|00000160| 09 20 20 20 20 20 28 73 | 74 72 69 6e 67 2d 6c 65 |.     (s|tring-le|
|00000170| 73 73 70 20 65 6d 61 63 | 73 2d 76 65 72 73 69 6f |ssp emac|s-versio|
|00000180| 6e 20 22 31 39 22 29 29 | 29 0a 20 20 20 20 28 65 |n "19"))|).    (e|
|00000190| 72 72 6f 72 20 22 54 68 | 69 73 20 66 69 6c 65 20 |rror "Th|is file |
|000001a0| 77 61 73 20 63 6f 6d 70 | 69 6c 65 64 20 66 6f 72 |was comp|iled for|
|000001b0| 20 45 6d 61 63 73 20 31 | 39 22 29 29 0a 0a 28 64 | Emacs 1|9"))..(d|
|000001c0| 65 66 61 6c 69 61 73 20 | 27 66 6f 72 77 61 72 64 |efalias |'forward|
|000001d0| 2d 70 61 67 65 20 23 5b | 28 26 6f 70 74 69 6f 6e |-page #[|(&option|
|000001e0| 61 6c 20 63 6f 75 6e 74 | 29 20 22 08 84 06 00 c1 |al count|) ".....|
|000001f0| 10 08 c2 56 83 29 00 6d | 84 29 00 6e 83 17 00 c1 |...V.).m|.).n....|
|00000200| 75 88 c3 0c c5 c6 23 84 | 5c 22 00 64 62 88 08 53 |u.....#.|\".db..S|
|00000210| 89 10 82 07 00 08 c2 57 | 85 50 00 6f 3f 85 50 00 |.......W|.P.o?.P.|
|00000220| c7 75 88 c8 0c c5 c6 23 | 83 46 00 c2 95 62 88 82 |.u.....#|.F...b..|
|00000230| 49 00 65 62 88 08 54 89 | 10 82 2a 00 87 22 20 5b |I.eb..T.|..*.." [|
|00000240| 63 6f 75 6e 74 20 31 20 | 30 20 72 65 2d 73 65 61 |count 1 |0 re-sea|
|00000250| 72 63 68 2d 66 6f 72 77 | 61 72 64 20 70 61 67 65 |rch-forw|ard page|
|00000260| 2d 64 65 6c 69 6d 69 74 | 65 72 20 6e 69 6c 20 74 |-delimit|er nil t|
|00000270| 20 2d 31 20 72 65 2d 73 | 65 61 72 63 68 2d 62 61 | -1 re-s|earch-ba|
|00000280| 63 6b 77 61 72 64 5d 20 | 35 20 22 5c 0a 4d 6f 76 |ckward] |5 "\.Mov|
|00000290| 65 20 66 6f 72 77 61 72 | 64 20 74 6f 20 70 61 67 |e forwar|d to pag|
|000002a0| 65 20 62 6f 75 6e 64 61 | 72 79 2e 20 20 57 69 74 |e bounda|ry.  Wit|
|000002b0| 68 20 61 72 67 2c 20 72 | 65 70 65 61 74 2c 20 6f |h arg, r|epeat, o|
|000002c0| 72 20 67 6f 20 62 61 63 | 6b 20 69 66 20 6e 65 67 |r go bac|k if neg|
|000002d0| 61 74 69 76 65 2e 0a 41 | 20 70 61 67 65 20 62 6f |ative..A| page bo|
|000002e0| 75 6e 64 61 72 79 20 69 | 73 20 61 6e 79 20 6c 69 |undary i|s any li|
|000002f0| 6e 65 20 77 68 6f 73 65 | 20 62 65 67 69 6e 6e 69 |ne whose| beginni|
|00000300| 6e 67 20 6d 61 74 63 68 | 65 73 20 74 68 65 20 72 |ng match|es the r|
|00000310| 65 67 65 78 70 0a 60 70 | 61 67 65 2d 64 65 6c 69 |egexp.`p|age-deli|
|00000320| 6d 69 74 65 72 27 2e 22 | 20 22 70 22 5d 29 0a 28 |miter'."| "p"]).(|
|00000330| 64 65 66 61 6c 69 61 73 | 20 27 62 61 63 6b 77 61 |defalias| 'backwa|
|00000340| 72 64 2d 70 61 67 65 20 | 23 5b 28 26 6f 70 74 69 |rd-page |#[(&opti|
|00000350| 6f 6e 61 6c 20 63 6f 75 | 6e 74 29 20 22 08 84 06 |onal cou|nt) "...|
|00000360| 00 c1 10 c2 08 5b 21 87 | 22 20 5b 63 6f 75 6e 74 |.....[!.|" [count|
|00000370| 20 31 20 66 6f 72 77 61 | 72 64 2d 70 61 67 65 5d | 1 forwa|rd-page]|
|00000380| 20 32 20 22 5c 0a 4d 6f | 76 65 20 62 61 63 6b 77 | 2 "\.Mo|ve backw|
|00000390| 61 72 64 20 74 6f 20 70 | 61 67 65 20 62 6f 75 6e |ard to p|age boun|
|000003a0| 64 61 72 79 2e 20 20 57 | 69 74 68 20 61 72 67 2c |dary.  W|ith arg,|
|000003b0| 20 72 65 70 65 61 74 2c | 20 6f 72 20 67 6f 20 66 | repeat,| or go f|
|000003c0| 77 64 20 69 66 20 6e 65 | 67 61 74 69 76 65 2e 0a |wd if ne|gative..|
|000003d0| 41 20 70 61 67 65 20 62 | 6f 75 6e 64 61 72 79 20 |A page b|oundary |
|000003e0| 69 73 20 61 6e 79 20 6c | 69 6e 65 20 77 68 6f 73 |is any l|ine whos|
|000003f0| 65 20 62 65 67 69 6e 6e | 69 6e 67 20 6d 61 74 63 |e beginn|ing matc|
|00000400| 68 65 73 20 74 68 65 20 | 72 65 67 65 78 70 0a 60 |hes the |regexp.`|
|00000410| 70 61 67 65 2d 64 65 6c | 69 6d 69 74 65 72 27 2e |page-del|imiter'.|
|00000420| 22 20 22 70 22 5d 29 0a | 28 64 65 66 61 6c 69 61 |" "p"]).|(defalia|
|00000430| 73 20 27 6d 61 72 6b 2d | 70 61 67 65 20 23 5b 28 |s 'mark-|page #[(|
|00000440| 26 6f 70 74 69 6f 6e 61 | 6c 20 61 72 67 29 20 22 |&optiona|l arg) "|
|00000450| 08 83 5c 6e 00 c1 08 21 | 82 0b 00 c2 89 10 c2 56 |..\n...!|.......V|
|00000460| 83 19 00 c3 08 21 88 82 | 24 00 08 c2 57 83 24 00 |.....!..|$...W.$.|
|00000470| c3 08 53 21 88 c3 20 88 | c4 c5 c6 89 23 88 c3 c7 |..S!.. .|....#...|
|00000480| 21 87 22 20 5b 61 72 67 | 20 70 72 65 66 69 78 2d |!." [arg| prefix-|
|00000490| 6e 75 6d 65 72 69 63 2d | 76 61 6c 75 65 20 30 20 |numeric-|value 0 |
|000004a0| 66 6f 72 77 61 72 64 2d | 70 61 67 65 20 70 75 73 |forward-|page pus|
|000004b0| 68 2d 6d 61 72 6b 20 6e | 69 6c 20 74 20 2d 31 5d |h-mark n|il t -1]|
|000004c0| 20 35 20 22 5c 0a 50 75 | 74 20 6d 61 72 6b 20 61 | 5 "\.Pu|t mark a|
|000004d0| 74 20 65 6e 64 20 6f 66 | 20 70 61 67 65 2c 20 70 |t end of| page, p|
|000004e0| 6f 69 6e 74 20 61 74 20 | 62 65 67 69 6e 6e 69 6e |oint at |beginnin|
|000004f0| 67 2e 0a 41 20 6e 75 6d | 65 72 69 63 20 61 72 67 |g..A num|eric arg|
|00000500| 20 73 70 65 63 69 66 69 | 65 73 20 74 6f 20 6d 6f | specifi|es to mo|
|00000510| 76 65 20 66 6f 72 77 61 | 72 64 20 6f 72 20 62 61 |ve forwa|rd or ba|
|00000520| 63 6b 77 61 72 64 20 62 | 79 20 74 68 61 74 20 6d |ckward b|y that m|
|00000530| 61 6e 79 20 70 61 67 65 | 73 2c 0a 74 68 75 73 20 |any page|s,.thus |
|00000540| 6d 61 72 6b 69 6e 67 20 | 61 20 70 61 67 65 20 6f |marking |a page o|
|00000550| 74 68 65 72 20 74 68 61 | 6e 20 74 68 65 20 6f 6e |ther tha|n the on|
|00000560| 65 20 70 6f 69 6e 74 20 | 77 61 73 20 6f 72 69 67 |e point |was orig|
|00000570| 69 6e 61 6c 6c 79 20 69 | 6e 2e 22 20 22 50 22 5d |inally i|n." "P"]|
|00000580| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 6e 61 72 |).(defal|ias 'nar|
|00000590| 72 6f 77 2d 74 6f 2d 70 | 61 67 65 20 23 5b 28 26 |row-to-p|age #[(&|
|000005a0| 6f 70 74 69 6f 6e 61 6c | 20 61 72 67 29 20 22 08 |optional| arg) ".|
|000005b0| 83 5c 6e 00 c1 08 21 82 | 0b 00 c2 10 8a 7e 88 08 |.\n...!.|.....~..|
|000005c0| c2 56 83 1c 00 c3 08 21 | 88 82 27 00 08 c2 57 83 |.V.....!|..'...W.|
|000005d0| 27 00 c3 08 53 21 88 c3 | 20 88 8a c2 79 88 c4 0d |'...S!..| ...y...|
|000005e0| 21 29 83 38 00 c2 79 88 | 60 c3 c6 21 88 6c 83 48 |!).8..y.|`..!.l.H|
|000005f0| 00 6f 84 48 00 c7 79 88 | 60 7d 29 87 22 20 5b 61 |.o.H..y.|`})." [a|
|00000600| 72 67 20 70 72 65 66 69 | 78 2d 6e 75 6d 65 72 69 |rg prefi|x-numeri|
|00000610| 63 2d 76 61 6c 75 65 20 | 30 20 66 6f 72 77 61 72 |c-value |0 forwar|
|00000620| 64 2d 70 61 67 65 20 6c | 6f 6f 6b 69 6e 67 2d 61 |d-page l|ooking-a|
|00000630| 74 20 70 61 67 65 2d 64 | 65 6c 69 6d 69 74 65 72 |t page-d|elimiter|
|00000640| 20 2d 31 20 31 5d 20 33 | 20 22 5c 0a 4d 61 6b 65 | -1 1] 3| "\.Make|
|00000650| 20 74 65 78 74 20 6f 75 | 74 73 69 64 65 20 63 75 | text ou|tside cu|
|00000660| 72 72 65 6e 74 20 70 61 | 67 65 20 69 6e 76 69 73 |rrent pa|ge invis|
|00000670| 69 62 6c 65 2e 0a 41 20 | 6e 75 6d 65 72 69 63 20 |ible..A |numeric |
|00000680| 61 72 67 20 73 70 65 63 | 69 66 69 65 73 20 74 6f |arg spec|ifies to|
|00000690| 20 6d 6f 76 65 20 66 6f | 72 77 61 72 64 20 6f 72 | move fo|rward or|
|000006a0| 20 62 61 63 6b 77 61 72 | 64 20 62 79 20 74 68 61 | backwar|d by tha|
|000006b0| 74 20 6d 61 6e 79 20 70 | 61 67 65 73 2c 0a 74 68 |t many p|ages,.th|
|000006c0| 75 73 20 73 68 6f 77 69 | 6e 67 20 61 20 70 61 67 |us showi|ng a pag|
|000006d0| 65 20 6f 74 68 65 72 20 | 74 68 61 6e 20 74 68 65 |e other |than the|
|000006e0| 20 6f 6e 65 20 70 6f 69 | 6e 74 20 77 61 73 20 6f | one poi|nt was o|
|000006f0| 72 69 67 69 6e 61 6c 6c | 79 20 69 6e 2e 22 20 22 |riginall|y in." "|
|00000700| 50 22 5d 29 0a 28 70 75 | 74 20 28 71 75 6f 74 65 |P"]).(pu|t (quote|
|00000710| 20 6e 61 72 72 6f 77 2d | 74 6f 2d 70 61 67 65 29 | narrow-|to-page)|
|00000720| 20 28 71 75 6f 74 65 20 | 64 69 73 61 62 6c 65 64 | (quote |disabled|
|00000730| 29 20 74 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |) t).(de|falias '|
|00000740| 63 6f 75 6e 74 2d 6c 69 | 6e 65 73 2d 70 61 67 65 |count-li|nes-page|
|00000750| 20 23 5b 6e 69 6c 20 22 | 8a 60 c0 89 89 89 89 19 | #[nil "|.`......|
|00000760| 1a 1b 1c 1d 1e 06 c7 20 | 88 c8 79 88 c9 0e 5c 6e |....... |..y...\n|
|00000770| 21 84 1e 00 c0 7f 88 60 | 14 cb 20 88 60 15 cc 0d |!......`|.. .`...|
|00000780| 0c 5c 22 13 cc 0d 0e 06 | 5c 22 12 cc 0e 06 0c 5c |.\".....|\".....\|
|00000790| 22 11 cd ce 0b 5c 6e 09 | 24 2e 07 87 22 20 5b 6e |"....\n.|$..." [n|
|000007a0| 69 6c 20 61 66 74 65 72 | 20 62 65 66 6f 72 65 20 |il after| before |
|000007b0| 74 6f 74 61 6c 20 65 6e | 64 20 62 65 67 20 6f 70 |total en|d beg op|
|000007c0| 6f 69 6e 74 20 66 6f 72 | 77 61 72 64 2d 70 61 67 |oint for|ward-pag|
|000007d0| 65 20 30 20 6c 6f 6f 6b | 69 6e 67 2d 61 74 20 70 |e 0 look|ing-at p|
|000007e0| 61 67 65 2d 64 65 6c 69 | 6d 69 74 65 72 20 62 61 |age-deli|miter ba|
|000007f0| 63 6b 77 61 72 64 2d 70 | 61 67 65 20 63 6f 75 6e |ckward-p|age coun|
|00000800| 74 2d 6c 69 6e 65 73 20 | 6d 65 73 73 61 67 65 20 |t-lines |message |
|00000810| 22 50 61 67 65 20 68 61 | 73 20 25 64 20 6c 69 6e |"Page ha|s %d lin|
|00000820| 65 73 20 28 25 64 20 2b | 20 25 64 29 22 5d 20 36 |es (%d +| %d)"] 6|
|00000830| 20 22 5c 0a 52 65 70 6f | 72 74 20 6e 75 6d 62 65 | "\.Repo|rt numbe|
|00000840| 72 20 6f 66 20 6c 69 6e | 65 73 20 6f 6e 20 63 75 |r of lin|es on cu|
|00000850| 72 72 65 6e 74 20 70 61 | 67 65 2c 20 61 6e 64 20 |rrent pa|ge, and |
|00000860| 68 6f 77 20 6d 61 6e 79 | 20 61 72 65 20 62 65 66 |how many| are bef|
|00000870| 6f 72 65 20 6f 72 20 61 | 66 74 65 72 20 70 6f 69 |ore or a|fter poi|
|00000880| 6e 74 2e 22 20 6e 69 6c | 5d 29 0a 28 64 65 66 61 |nt." nil|]).(defa|
|00000890| 6c 69 61 73 20 27 77 68 | 61 74 2d 70 61 67 65 20 |lias 'wh|at-page |
|000008a0| 23 5b 6e 69 6c 20 22 8c | 7e 88 8a c0 79 88 c1 60 |#[nil ".|~...y..`|
|000008b0| 1a 1b c1 62 88 c4 0d 5c | 6e c6 23 83 1c 00 0b 54 |...b...\|n.#....T|
|000008c0| 13 82 0e 00 c7 c8 0b c9 | 60 5c 6e 5c 22 54 23 2c |........|`\n\"T#,|
|000008d0| 87 22 20 5b 30 20 31 20 | 6f 70 6f 69 6e 74 20 63 |." [0 1 |opoint c|
|000008e0| 6f 75 6e 74 20 72 65 2d | 73 65 61 72 63 68 2d 66 |ount re-|search-f|
|000008f0| 6f 72 77 61 72 64 20 70 | 61 67 65 2d 64 65 6c 69 |orward p|age-deli|
|00000900| 6d 69 74 65 72 20 74 20 | 6d 65 73 73 61 67 65 20 |miter t |message |
|00000910| 22 50 61 67 65 20 25 64 | 2c 20 6c 69 6e 65 20 25 |"Page %d|, line %|
|00000920| 64 22 20 63 6f 75 6e 74 | 2d 6c 69 6e 65 73 5d 20 |d" count|-lines] |
|00000930| 36 20 22 5c 0a 50 72 69 | 6e 74 20 70 61 67 65 20 |6 "\.Pri|nt page |
|00000940| 61 6e 64 20 6c 69 6e 65 | 20 6e 75 6d 62 65 72 20 |and line| number |
|00000950| 6f 66 20 70 6f 69 6e 74 | 2e 22 20 6e 69 6c 5d 29 |of point|." nil])|
|00000960| 0a                      |                         |.       |        |
+--------+-------------------------+-------------------------+--------+--------+