DataMuseum.dk Presents historical artifacts from the history of: DKUUG/EUUG Conference tapes

This is an automatic "excavation" of a thematic subset of artifacts from Datamuseum.dk's BitArchive. See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦0d6580555⟧

    Length: 2090 (0x82a)
    Names: »page.elc«

Derivation

└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
    └─ ⟦this⟧ »EUUGD11/gnu-31mar87/emacs/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 c1   ┆ (interactive "P") (byte-code " ┆
0x520…540 88 08 83 0c 00 c2 08 21 82 0d 00 c3 89 10 88 8a 08 c3 56 83 1d 00 c4 08 21 82 27 00 08 c3 57 85   ┆       !          V     ! '   W ┆
0x540…560 27 00 c4 08 53 21 88 c4 20 88 c5 20 88 c6 60 c4 c7 21 88 60 5c 22 29 87 22 20 5b 61 72 67 20 6e   ┆'   S!        `  ! `\") " [arg n┆
0x560…580 69 6c 20 70 72 65 66 69 78 2d 6e 75 6d 65 72 69 63 2d 76 61 6c 75 65 20 30 20 66 6f 72 77 61 72   ┆il prefix-numeric-value 0 forwar┆
0x580…5a0 64 2d 70 61 67 65 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 20 6e 61 72 72 6f 77 2d   ┆d-page beginning-of-line narrow-┆
0x5a0…5c0 74 6f 2d 72 65 67 69 6f 6e 20 2d 31 5d 20 39 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 74 2d   ┆to-region -1] 9))  (defun count-┆
0x5c0…5e0 6c 69 6e 65 73 2d 70 61 67 65 20 6e 69 6c 20 22 5c 0a 52 65 70 6f 72 74 20 6e 75 6d 62 65 72 20   ┆lines-page nil "\ Report number ┆
0x5e0…600 6f 66 20 6c 69 6e 65 73 20 6f 6e 20 63 75 72 72 65 6e 74 20 70 61 67 65 2c 20 61 6e 64 20 68 6f   ┆of lines on current page, and ho┆
0x600…620 77 20 6d 61 6e 79 20 61 72 65 20 62 65 66 6f 72 65 20 6f 72 20 61 66 74 65 72 20 70 6f 69 6e 74   ┆w many are before or after point┆
0x620…640 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 c7 88 8a   ┆." (interactive) (byte-code "   ┆
0x640…660 60 c7 c7 c7 c7 c7 1d 1c 1b 1a 19 18 c8 20 88 c9 20 88 ca 0e 06 21 86 1e 00 cb 20 88 60 89 12 88   ┆`                    !      `   ┆
0x660…680 cc 20 88 60 89 11 88 cd 09 0a 5c 22 13 cd 09 08 5c 22 14 cd 08 0a 5c 22 89 15 88 ce cf 0b 0c 0d   ┆   `      \"    \"    \"        ┆
0x680…6a0 24 2e 06 29 87 22 20 5b 6f 70 6f 69 6e 74 20 62 65 67 20 65 6e 64 20 74 6f 74 61 6c 20 62 65 66   ┆$. ) " [opoint beg end total bef┆
0x6a0…6c0 6f 72 65 20 61 66 74 65 72 20 70 61 67 65 2d 64 65 6c 69 6d 69 74 65 72 20 6e 69 6c 20 66 6f 72   ┆ore after page-delimiter nil for┆
0x6c0…6e0 77 61 72 64 2d 70 61 67 65 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 20 6c 6f 6f 6b   ┆ward-page beginning-of-line look┆
0x6e0…700 69 6e 67 2d 61 74 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 62 61 63 6b 77 61 72 64 2d 70 61 67 65   ┆ing-at end-of-line backward-page┆
0x700…720 20 63 6f 75 6e 74 2d 6c 69 6e 65 73 20 6d 65 73 73 61 67 65 20 22 50 61 67 65 20 68 61 73 20 25   ┆ count-lines message "Page has %┆
0x720…740 64 20 6c 69 6e 65 73 20 28 25 64 20 2b 20 25 64 29 22 5d 20 31 33 29 29 0a 0a 28 64 65 66 75 6e   ┆d lines (%d + %d)"] 13))  (defun┆
0x740…760 20 77 68 61 74 2d 70 61 67 65 20 6e 69 6c 20 22 5c 0a 50 72 69 6e 74 20 70 61 67 65 20 61 6e 64   ┆ what-page nil "\ Print page and┆
0x760…780 20 6c 69 6e 65 20 6e 75 6d 62 65 72 20 6f 66 20 70 6f 69 6e 74 2e 22 20 28 69 6e 74 65 72 61 63   ┆ line number of point." (interac┆
0x780…7a0 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c4 88 8c c5 20 88 8a c6 60 19 18 c6 62 88   ┆tive) (byte-code "        `   b ┆
0x7a0…7c0 c7 0a 09 c3 23 85 1e 00 08 54 89 10 88 82 0e 00 88 c8 c9 08 ca 60 09 5c 22 54 23 2a 29 29 87 22   ┆    #    T           ` \"T#*)) "┆
0x7c0…7e0 20 5b 63 6f 75 6e 74 20 6f 70 6f 69 6e 74 20 70 61 67 65 2d 64 65 6c 69 6d 69 74 65 72 20 74 20   ┆ [count opoint page-delimiter t ┆
0x7e0…800 6e 69 6c 20 77 69 64 65 6e 20 31 20 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 6d 65   ┆nil widen 1 re-search-forward me┆
0x800…820 73 73 61 67 65 20 22 50 61 67 65 20 25 64 2c 20 6c 69 6e 65 20 25 64 22 20 63 6f 75 6e 74 2d 6c   ┆ssage "Page %d, line %d" count-l┆
0x820…82a 69 6e 65 73 5d 20 38 29 29 0a   ┆ines] 8)) ┆