DataMuseum.dk

top - metrics - download

    Length: 2165 (0x875)
    Names: »page.elc«

└─⟦a05ed705a⟧ Bits:30007078 DKUUG GNU 2/12/89
    └─⟦46d41b2d0⟧ »./emacs-18.55.tar.Z« 
        └─⟦fa971747f⟧ 
            └─⟦this⟧ »dist-18.55/lisp/page.elc« 

Hex Dump

0x000…020 0a 28 64 65 66 75 6e 20 66 6f 72 77 61 72 64 2d 70 61 67 65 20 28 26 6f 70 74 69 6f 6e 61 6c 20   ┆ (defun forward-page (&optional ┆
0x020…040 63 6f 75 6e 74 29 20 22 5c 0a 4d 6f 76 65 20 66 6f 72 77 61 72 64 20 74 6f 20 70 61 67 65 20 62   ┆count) "\ Move forward to page b┆
0x040…060 6f 75 6e 64 61 72 79 2e 20 20 57 69 74 68 20 61 72 67 2c 20 72 65 70 65 61 74 2c 20 6f 72 20 67   ┆oundary.  With arg, repeat, or g┆
0x060…080 6f 20 62 61 63 6b 20 69 66 20 6e 65 67 61 74 69 76 65 2e 0a 41 20 70 61 67 65 20 62 6f 75 6e 64   ┆o back if negative. A page bound┆
0x080…0a0 61 72 79 20 69 73 20 61 6e 79 20 6c 69 6e 65 20 77 68 6f 73 65 20 62 65 67 69 6e 6e 69 6e 67 20   ┆ary is any line whose beginning ┆
0x0a0…0c0 6d 61 74 63 68 65 73 20 74 68 65 20 72 65 67 65 78 70 20 20 70 61 67 65 2d 64 65 6c 69 6d 69 74   ┆matches the regexp  page-delimit┆
0x0c0…0e0 65 72 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 70 22 29 20 28 62 79 74 65 2d 63 6f 64   ┆er." (interactive "p") (byte-cod┆
0x0e0…100 65 20 22 c2 88 08 86 09 00 c4 89 10 88 08 c5 56 85 12 00 6d 3f 85 2c 00 c6 09 c2 c3 23 83 21 00   ┆e "            V   m? ,     # ! ┆
0x100…120 c2 82 23 00 64 62 88 08 53 89 10 88 82 0a 00 88 08 c5 57 85 35 00 6f 3f 85 56 00 c7 c8 21 88 c9   ┆  # db  S         W 5 o? V   !  ┆
0x120…140 09 c2 c3 23 83 4b 00 ca c5 21 62 82 4d 00 65 62 88 08 54 89 10 88 82 2d 00 87 22 20 5b 63 6f 75   ┆   # K   !b M eb  T    -  " [cou┆
0x140…160 6e 74 20 70 61 67 65 2d 64 65 6c 69 6d 69 74 65 72 20 6e 69 6c 20 74 20 31 20 30 20 72 65 2d 73   ┆nt page-delimiter nil t 1 0 re-s┆
0x160…180 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 66 6f 72 77 61 72 64 2d 63 68 61 72 20 2d 31 20 72 65   ┆earch-forward forward-char -1 re┆
0x180…1a0 2d 73 65 61 72 63 68 2d 62 61 63 6b 77 61 72 64 20 6d 61 74 63 68 2d 65 6e 64 5d 20 37 29 29 0a   ┆-search-backward match-end] 7)) ┆
0x1a0…1c0 0a 28 64 65 66 75 6e 20 62 61 63 6b 77 61 72 64 2d 70 61 67 65 20 28 26 6f 70 74 69 6f 6e 61 6c   ┆ (defun backward-page (&optional┆
0x1c0…1e0 20 63 6f 75 6e 74 29 20 22 5c 0a 4d 6f 76 65 20 62 61 63 6b 77 61 72 64 20 74 6f 20 70 61 67 65   ┆ count) "\ Move backward to page┆
0x1e0…200 20 62 6f 75 6e 64 61 72 79 2e 20 20 57 69 74 68 20 61 72 67 2c 20 72 65 70 65 61 74 2c 20 6f 72   ┆ boundary.  With arg, repeat, or┆
0x200…220 20 67 6f 20 66 77 64 20 69 66 20 6e 65 67 61 74 69 76 65 2e 0a 41 20 70 61 67 65 20 62 6f 75 6e   ┆ go fwd if negative. A page boun┆
0x220…240 64 61 72 79 20 69 73 20 61 6e 79 20 6c 69 6e 65 20 77 68 6f 73 65 20 62 65 67 69 6e 6e 69 6e 67   ┆dary is any line whose beginning┆
0x240…260 20 6d 61 74 63 68 65 73 20 74 68 65 20 72 65 67 65 78 70 20 20 70 61 67 65 2d 64 65 6c 69 6d 69   ┆ matches the regexp  page-delimi┆
0x260…280 74 65 72 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 70 22 29 20 28 62 79 74 65 2d 63 6f   ┆ter." (interactive "p") (byte-co┆
0x280…2a0 64 65 20 22 c1 88 08 86 09 00 c2 89 10 88 c3 08 5b 21 87 22 20 5b 63 6f 75 6e 74 20 6e 69 6c 20   ┆de "            [! " [count nil ┆
0x2a0…2c0 31 20 66 6f 72 77 61 72 64 2d 70 61 67 65 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 72 6b   ┆1 forward-page] 2))  (defun mark┆
0x2c0…2e0 2d 70 61 67 65 20 28 26 6f 70 74 69 6f 6e 61 6c 20 61 72 67 29 20 22 5c 0a 50 75 74 20 6d 61 72   ┆-page (&optional arg) "\ Put mar┆
0x2e0…300 6b 20 61 74 20 65 6e 64 20 6f 66 20 70 61 67 65 2c 20 70 6f 69 6e 74 20 61 74 20 62 65 67 69 6e   ┆k at end of page, point at begin┆
0x300…320 6e 69 6e 67 2e 0a 41 20 6e 75 6d 65 72 69 63 20 61 72 67 20 73 70 65 63 69 66 69 65 73 20 74 6f   ┆ning. A numeric arg specifies to┆
0x320…340 20 6d 6f 76 65 20 66 6f 72 77 61 72 64 20 6f 72 20 62 61 63 6b 77 61 72 64 20 62 79 20 74 68 61   ┆ move forward or backward by tha┆
0x340…360 74 20 6d 61 6e 79 20 70 61 67 65 73 2c 0a 74 68 75 73 20 6d 61 72 6b 69 6e 67 20 61 20 70 61 67   ┆t many pages, thus marking a pag┆
0x360…380 65 20 6f 74 68 65 72 20 74 68 61 6e 20 74 68 65 20 6f 6e 65 20 70 6f 69 6e 74 20 77 61 73 20 6f   ┆e other than the one point was o┆
0x380…3a0 72 69 67 69 6e 61 6c 6c 79 20 69 6e 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 50 22 29   ┆riginally in." (interactive "P")┆
0x3a0…3c0 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 08 83 0c 00 c3 08 21 82 0d 00 c4 89 10 88 08 c4 56   ┆ (byte-code "        !         V┆
0x3c0…3e0 83 1c 00 c5 08 21 82 26 00 08 c4 57 85 26 00 c5 08 53 21 88 c5 20 88 c6 c1 c2 5c 22 88 c5 c7 21   ┆     ! &   W &   S!       \"   !┆
0x3e0…400 87 22 20 5b 61 72 67 20 6e 69 6c 20 74 20 70 72 65 66 69 78 2d 6e 75 6d 65 72 69 63 2d 76 61 6c   ┆ " [arg nil t prefix-numeric-val┆
0x400…420 75 65 20 30 20 66 6f 72 77 61 72 64 2d 70 61 67 65 20 70 75 73 68 2d 6d 61 72 6b 20 2d 31 5d 20   ┆ue 0 forward-page push-mark -1] ┆
0x420…440 37 29 29 0a 0a 28 64 65 66 75 6e 20 6e 61 72 72 6f 77 2d 74 6f 2d 70 61 67 65 20 28 26 6f 70 74   ┆7))  (defun narrow-to-page (&opt┆
0x440…460 69 6f 6e 61 6c 20 61 72 67 29 20 22 5c 0a 4d 61 6b 65 20 74 65 78 74 20 6f 75 74 73 69 64 65 20   ┆ional arg) "\ Make text outside ┆
0x460…480 63 75 72 72 65 6e 74 20 70 61 67 65 20 69 6e 76 69 73 69 62 6c 65 2e 0a 41 20 6e 75 6d 65 72 69   ┆current page invisible. A numeri┆
0x480…4a0 63 20 61 72 67 20 73 70 65 63 69 66 69 65 73 20 74 6f 20 6d 6f 76 65 20 66 6f 72 77 61 72 64 20   ┆c arg specifies to move forward ┆
0x4a0…4c0 6f 72 20 62 61 63 6b 77 61 72 64 20 62 79 20 74 68 61 74 20 6d 61 6e 79 20 70 61 67 65 73 2c 0a   ┆or backward by that many pages, ┆
0x4c0…4e0 74 68 75 73 20 73 68 6f 77 69 6e 67 20 61 20 70 61 67 65 20 6f 74 68 65 72 20 74 68 61 6e 20 74   ┆thus showing a page other than t┆
0x4e0…500 68 65 20 6f 6e 65 20 70 6f 69 6e 74 20 77 61 73 20 6f 72 69 67 69 6e 61 6c 6c 79 20 69 6e 2e 22   ┆he one point was originally in."┆
0x500…520 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 50 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2   ┆ (interactive "P") (byte-code " ┆
0x520…540 88 08 83 0c 00 c3 08 21 82 0d 00 c4 89 10 88 8a c5 20 88 08 c4 56 83 20 00 c6 08 21 82 2a 00 08   ┆       !             V     ! *  ┆
0x540…560 c4 57 85 2a 00 c6 08 53 21 88 c6 20 88 8a c7 20 88 c8 09 21 29 85 3b 00 c7 20 88 c9 60 c6 ca 21   ┆ W *   S!          !) ;     `  !┆
0x560…580 88 6c 85 48 00 6f 3f 85 4e 00 cb cc 21 88 60 5c 22 29 87 22 20 5b 61 72 67 20 70 61 67 65 2d 64   ┆ l H o? N   ! `\") " [arg page-d┆
0x580…5a0 65 6c 69 6d 69 74 65 72 20 6e 69 6c 20 70 72 65 66 69 78 2d 6e 75 6d 65 72 69 63 2d 76 61 6c 75   ┆elimiter nil prefix-numeric-valu┆
0x5a0…5c0 65 20 30 20 77 69 64 65 6e 20 66 6f 72 77 61 72 64 2d 70 61 67 65 20 62 65 67 69 6e 6e 69 6e 67   ┆e 0 widen forward-page beginning┆
0x5c0…5e0 2d 6f 66 2d 6c 69 6e 65 20 6c 6f 6f 6b 69 6e 67 2d 61 74 20 6e 61 72 72 6f 77 2d 74 6f 2d 72 65   ┆-of-line looking-at narrow-to-re┆
0x5e0…600 67 69 6f 6e 20 2d 31 20 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 31 5d 20 31 33 29 29 0a 0a 28 64   ┆gion -1 forward-line 1] 13))  (d┆
0x600…620 65 66 75 6e 20 63 6f 75 6e 74 2d 6c 69 6e 65 73 2d 70 61 67 65 20 6e 69 6c 20 22 5c 0a 52 65 70   ┆efun count-lines-page nil "\ Rep┆
0x620…640 6f 72 74 20 6e 75 6d 62 65 72 20 6f 66 20 6c 69 6e 65 73 20 6f 6e 20 63 75 72 72 65 6e 74 20 70   ┆ort number of lines on current p┆
0x640…660 61 67 65 2c 20 61 6e 64 20 68 6f 77 20 6d 61 6e 79 20 61 72 65 20 62 65 66 6f 72 65 20 6f 72 20   ┆age, and how many are before or ┆
0x660…680 61 66 74 65 72 20 70 6f 69 6e 74 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74   ┆after point." (interactive) (byt┆
0x680…6a0 65 2d 63 6f 64 65 20 22 c7 88 8a 60 c7 c7 c7 c7 c7 1d 1c 1b 1a 19 18 c8 20 88 c9 20 88 ca 0e 06   ┆e-code "   `                    ┆
0x6a0…6c0 21 86 1e 00 cb 20 88 60 89 12 88 cc 20 88 60 89 11 88 cd 09 0a 5c 22 13 cd 09 08 5c 22 14 cd 08   ┆!      `      `      \"    \"   ┆
0x6c0…6e0 0a 5c 22 89 15 88 ce cf 0b 0c 0d 24 2e 06 29 87 22 20 5b 6f 70 6f 69 6e 74 20 62 65 67 20 65 6e   ┆ \"        $. ) " [opoint beg en┆
0x6e0…700 64 20 74 6f 74 61 6c 20 62 65 66 6f 72 65 20 61 66 74 65 72 20 70 61 67 65 2d 64 65 6c 69 6d 69   ┆d total before after page-delimi┆
0x700…720 74 65 72 20 6e 69 6c 20 66 6f 72 77 61 72 64 2d 70 61 67 65 20 62 65 67 69 6e 6e 69 6e 67 2d 6f   ┆ter nil forward-page beginning-o┆
0x720…740 66 2d 6c 69 6e 65 20 6c 6f 6f 6b 69 6e 67 2d 61 74 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 62 61   ┆f-line looking-at end-of-line ba┆
0x740…760 63 6b 77 61 72 64 2d 70 61 67 65 20 63 6f 75 6e 74 2d 6c 69 6e 65 73 20 6d 65 73 73 61 67 65 20   ┆ckward-page count-lines message ┆
0x760…780 22 50 61 67 65 20 68 61 73 20 25 64 20 6c 69 6e 65 73 20 28 25 64 20 2b 20 25 64 29 22 5d 20 31   ┆"Page has %d lines (%d + %d)"] 1┆
0x780…7a0 33 29 29 0a 0a 28 64 65 66 75 6e 20 77 68 61 74 2d 70 61 67 65 20 6e 69 6c 20 22 5c 0a 50 72 69   ┆3))  (defun what-page nil "\ Pri┆
0x7a0…7c0 6e 74 20 70 61 67 65 20 61 6e 64 20 6c 69 6e 65 20 6e 75 6d 62 65 72 20 6f 66 20 70 6f 69 6e 74   ┆nt page and line number of point┆
0x7c0…7e0 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c4 88 8c   ┆." (interactive) (byte-code "   ┆
0x7e0…800 c5 20 88 8a c6 60 19 18 c6 62 88 c7 0a 09 c3 23 85 1e 00 08 54 89 10 88 82 0e 00 88 c8 c9 08 ca   ┆     `   b     #    T           ┆
0x800…820 60 09 5c 22 54 23 2a 29 29 87 22 20 5b 63 6f 75 6e 74 20 6f 70 6f 69 6e 74 20 70 61 67 65 2d 64   ┆` \"T#*)) " [count opoint page-d┆
0x820…840 65 6c 69 6d 69 74 65 72 20 74 20 6e 69 6c 20 77 69 64 65 6e 20 31 20 72 65 2d 73 65 61 72 63 68   ┆elimiter t nil widen 1 re-search┆
0x840…860 2d 66 6f 72 77 61 72 64 20 6d 65 73 73 61 67 65 20 22 50 61 67 65 20 25 64 2c 20 6c 69 6e 65 20   ┆-forward message "Page %d, line ┆
0x860…875 25 64 22 20 63 6f 75 6e 74 2d 6c 69 6e 65 73 5d 20 38 29 29 0a   ┆%d" count-lines] 8)) ┆