⟦8aa1d8c23⟧

Hex Dump

0x0000…0020 0a 28 64 65 66 76 61 72 20 70 61 72 61 67 72 61 70 68 2d 69 67 6e 6f 72 65 2d 66 69 6c 6c 2d 70   ┆ (defvar paragraph-ignore-fill-p┆
0x0020…0040 72 65 66 69 78 20 6e 69 6c 20 22 5c 0a 4e 6f 6e 2d 6e 69 6c 20 6d 65 61 6e 73 20 74 68 65 20 70   ┆refix nil "\ Non-nil means the p┆
0x0040…0060 61 72 61 67 72 61 70 68 20 63 6f 6d 6d 61 6e 64 73 20 61 72 65 20 6e 6f 74 20 61 66 66 65 63 74   ┆aragraph commands are not affect┆
0x0060…0080 65 64 20 62 79 20 66 69 6c 6c 2d 70 72 65 66 69 78 2e 0a 54 68 69 73 20 69 73 20 64 65 73 69 72   ┆ed by fill-prefix. This is desir┆
0x0080…00a0 61 62 6c 65 20 69 6e 20 6d 6f 64 65 73 20 77 68 65 72 65 20 62 6c 61 6e 6b 20 6c 69 6e 65 73 20   ┆able in modes where blank lines ┆
0x00a0…00c0 61 72 65 20 74 68 65 20 70 61 72 61 67 72 61 70 68 20 64 65 6c 69 6d 69 74 65 72 73 2e 22 29 0a   ┆are the paragraph delimiters.") ┆
0x00c0…00e0 0a 28 64 65 66 75 6e 20 66 6f 72 77 61 72 64 2d 70 61 72 61 67 72 61 70 68 20 28 26 6f 70 74 69   ┆ (defun forward-paragraph (&opti┆
0x00e0…0100 6f 6e 61 6c 20 61 72 67 29 20 22 5c 0a 4d 6f 76 65 20 66 6f 72 77 61 72 64 20 74 6f 20 65 6e 64   ┆onal arg) "\ Move forward to end┆
0x0100…0120 20 6f 66 20 70 61 72 61 67 72 61 70 68 2e 20 20 57 69 74 68 20 61 72 67 2c 20 64 6f 20 69 74 20   ┆ of paragraph.  With arg, do it ┆
0x0120…0140 61 72 67 20 74 69 6d 65 73 2e 0a 41 20 6c 69 6e 65 20 77 68 69 63 68 20 20 70 61 72 61 67 72 61   ┆arg times. A line which  paragra┆
0x0140…0160 70 68 2d 73 74 61 72 74 20 20 6d 61 74 63 68 65 73 20 65 69 74 68 65 72 20 73 65 70 61 72 61 74   ┆ph-start  matches either separat┆
0x0160…0180 65 73 20 70 61 72 61 67 72 61 70 68 73 0a 28 69 66 20 20 70 61 72 61 67 72 61 70 68 2d 73 65 70   ┆es paragraphs (if  paragraph-sep┆
0x0180…01a0 61 72 61 74 65 20 20 6d 61 74 63 68 65 73 20 69 74 20 61 6c 73 6f 29 20 6f 72 20 69 73 20 74 68   ┆arate  matches it also) or is th┆
0x01a0…01c0 65 20 66 69 72 73 74 20 6c 69 6e 65 20 6f 66 20 61 20 70 61 72 61 67 72 61 70 68 2e 0a 41 20 70   ┆e first line of a paragraph. A p┆
0x01c0…01e0 61 72 61 67 72 61 70 68 20 65 6e 64 20 69 73 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66   ┆aragraph end is the beginning of┆
0x01e0…0200 20 61 20 6c 69 6e 65 20 77 68 69 63 68 20 69 73 20 6e 6f 74 20 70 61 72 74 20 6f 66 20 74 68 65   ┆ a line which is not part of the┆
0x0200…0220 20 70 61 72 61 67 72 61 70 68 0a 74 6f 20 77 68 69 63 68 20 74 68 65 20 65 6e 64 20 6f 66 20 74   ┆ paragraph to which the end of t┆
0x0220…0240 68 65 20 70 72 65 76 69 6f 75 73 20 6c 69 6e 65 20 62 65 6c 6f 6e 67 73 2c 20 6f 72 20 74 68 65   ┆he previous line belongs, or the┆
0x0240…0260 20 65 6e 64 20 6f 66 20 74 68 65 20 62 75 66 66 65 72 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76   ┆ end of the buffer." (interactiv┆
0x0260…0280 65 20 22 70 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c6 88 08 86 09 00 c8 89 10 88 0a 85 1e   ┆e "p") (byte-code "             ┆
0x0280…02a0 00 c9 0a ca 5c 22 3f 85 1e 00 0b 3f 85 1e 00 cb 0a 21 19 09 83 2b 00 0c cc 09 cd 52 82 2c 00 0c   ┆    \"?    ?     !   +     R ,  ┆
0x02a0…02c0 1c 08 ce 57 85 bd 00 cf 0c 21 3f 85 42 00 d0 d1 60 53 65 5d c5 23 83 49 00 c6 82 b4 00 d2 d3 21   ┆   W     !? B   `Se] # I       !┆
0x02c0…02e0 88 d4 20 88 6f 3f 85 58 00 cf 0c 21 85 62 00 d5 d3 21 88 82 50 00 88 d6 20 88 09 83 8c 00 d4 20   ┆    o? X   ! b   !  P           ┆
0x02e0…0300 88 6f 3f 85 7c 00 cf 0c 21 3f 85 7c 00 cf 09 21 85 86 00 d5 d3 21 88 82 6a 00 88 6f 3f 82 92 00   ┆ o? |   !? |   !     !  j  o?   ┆
0x0300…0320 d0 0e 07 c6 c5 23 83 b2 00 cf 0c 21 85 a2 00 d5 c8 21 88 82 95 00 88 60 d7 5a 66 d8 3d 85 af 00   ┆     #     !     !     ` Zf =   ┆
0x0320…0340 d5 d3 21 82 b4 00 65 62 88 08 54 89 10 88 82 2d 00 88 08 ce 56 85 17 01 d4 20 88 6d 3f 85 cf 00   ┆  !   eb  T    -    V      m?   ┆
0x0340…0360 cf 0c 21 d5 c8 21 88 85 db 00 c6 88 82 c7 00 88 09 83 fc 00 6d 3f 85 ef 00 cf 0c 21 3f 85 ef 00   ┆  !  !              m?     !?   ┆
0x0360…0380 cf 09 21 85 f9 00 d5 c8 21 88 82 e0 00 82 0e 01 d9 0e 07 c6 c5 23 83 0c 01 da ce 21 62 82 0e 01   ┆  !     !            #     !b   ┆
0x0380…03a0 64 62 88 08 53 89 10 88 82 be 00 2a 87 22 20 5b 61 72 67 20 66 69 6c 6c 2d 70 72 65 66 69 78 2d   ┆db  S      * " [arg fill-prefix-┆
0x03a0…03c0 72 65 67 65 78 70 20 66 69 6c 6c 2d 70 72 65 66 69 78 20 70 61 72 61 67 72 61 70 68 2d 69 67 6e   ┆regexp fill-prefix paragraph-ign┆
0x03c0…03e0 6f 72 65 2d 66 69 6c 6c 2d 70 72 65 66 69 78 20 70 61 72 61 67 72 61 70 68 2d 73 65 70 61 72 61   ┆ore-fill-prefix paragraph-separa┆
0x03e0…0400 74 65 20 74 20 6e 69 6c 20 70 61 72 61 67 72 61 70 68 2d 73 74 61 72 74 20 31 20 65 71 75 61 6c   ┆te t nil paragraph-start 1 equal┆
0x0400…0420 20 22 22 20 72 65 67 65 78 70 2d 71 75 6f 74 65 20 22 5c 5c 7c 5e 22 20 22 5b 20 09 5d 2a 24 22   ┆ "" regexp-quote "\\|^" "[  ]*$"┆
0x0420…0440 20 30 20 6c 6f 6f 6b 69 6e 67 2d 61 74 20 72 65 2d 73 65 61 72 63 68 2d 62 61 63 6b 77 61 72 64   ┆ 0 looking-at re-search-backward┆
0x0440…0460 20 22 5e 0a 22 20 66 6f 72 77 61 72 64 2d 63 68 61 72 20 2d 31 20 62 65 67 69 6e 6e 69 6e 67 2d   ┆ "^ " forward-char -1 beginning-┆
0x0460…0480 6f 66 2d 6c 69 6e 65 20 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65   ┆of-line forward-line end-of-line┆
0x0480…04a0 20 32 20 31 30 20 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 6d 61 74 63 68 2d 62 65   ┆ 2 10 re-search-forward match-be┆
0x04a0…04c0 67 69 6e 6e 69 6e 67 5d 20 32 38 29 29 0a 0a 28 64 65 66 75 6e 20 62 61 63 6b 77 61 72 64 2d 70   ┆ginning] 28))  (defun backward-p┆
0x04c0…04e0 61 72 61 67 72 61 70 68 20 28 26 6f 70 74 69 6f 6e 61 6c 20 61 72 67 29 20 22 5c 0a 4d 6f 76 65   ┆aragraph (&optional arg) "\ Move┆
0x04e0…0500 20 62 61 63 6b 77 61 72 64 20 74 6f 20 73 74 61 72 74 20 6f 66 20 70 61 72 61 67 72 61 70 68 2e   ┆ backward to start of paragraph.┆
0x0500…0520 20 20 57 69 74 68 20 61 72 67 2c 20 64 6f 20 69 74 20 61 72 67 20 74 69 6d 65 73 2e 0a 41 20 70   ┆  With arg, do it arg times. A p┆
0x0520…0540 61 72 61 67 72 61 70 68 20 73 74 61 72 74 20 69 73 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20   ┆aragraph start is the beginning ┆
0x0540…0560 6f 66 20 61 20 6c 69 6e 65 20 77 68 69 63 68 20 69 73 20 61 20 66 69 72 73 74 2d 6c 69 6e 65 2d   ┆of a line which is a first-line-┆
0x0560…0580 6f 66 2d 70 61 72 61 67 72 61 70 68 0a 6f 72 20 77 68 69 63 68 20 69 73 20 6f 72 64 69 6e 61 72   ┆of-paragraph or which is ordinar┆
0x0580…05a0 79 20 74 65 78 74 20 61 6e 64 20 66 6f 6c 6c 6f 77 73 20 61 20 70 61 72 61 67 72 61 70 68 2d 73   ┆y text and follows a paragraph-s┆
0x05a0…05c0 65 70 61 72 61 74 69 6e 67 20 6c 69 6e 65 3b 20 65 78 63 65 70 74 3a 0a 69 66 20 74 68 65 20 66   ┆eparating line; except: if the f┆
0x05c0…05e0 69 72 73 74 20 72 65 61 6c 20 6c 69 6e 65 20 6f 66 20 61 20 70 61 72 61 67 72 61 70 68 20 69 73   ┆irst real line of a paragraph is┆
0x05e0…0600 20 70 72 65 63 65 64 65 64 20 62 79 20 61 20 62 6c 61 6e 6b 20 6c 69 6e 65 2c 0a 74 68 65 20 70   ┆ preceded by a blank line, the p┆
0x0600…0620 61 72 61 67 72 61 70 68 20 73 74 61 72 74 73 20 61 74 20 74 68 61 74 20 62 6c 61 6e 6b 20 6c 69   ┆aragraph starts at that blank li┆
0x0620…0640 6e 65 2e 0a 53 65 65 20 66 6f 72 77 61 72 64 2d 70 61 72 61 67 72 61 70 68 20 66 6f 72 20 6d 6f   ┆ne. See forward-paragraph for mo┆
0x0640…0660 72 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 70   ┆re information." (interactive "p┆
0x0660…0680 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 08 86 09 00 c2 89 10 88 c3 08 5b 21 87 22 20   ┆") (byte-code "            [! " ┆
0x0680…06a0 5b 61 72 67 20 6e 69 6c 20 31 20 66 6f 72 77 61 72 64 2d 70 61 72 61 67 72 61 70 68 5d 20 32 29   ┆[arg nil 1 forward-paragraph] 2)┆
0x06a0…06c0 29 0a 0a 28 64 65 66 75 6e 20 6d 61 72 6b 2d 70 61 72 61 67 72 61 70 68 20 6e 69 6c 20 22 5c 0a   ┆)  (defun mark-paragraph nil "\ ┆
0x06c0…06e0 50 75 74 20 70 6f 69 6e 74 20 61 74 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 74 68 69 73 20 70   ┆Put point at beginning of this p┆
0x06e0…0700 61 72 61 67 72 61 70 68 2c 20 6d 61 72 6b 20 61 74 20 65 6e 64 2e 22 20 28 69 6e 74 65 72 61 63   ┆aragraph, mark at end." (interac┆
0x0700…0720 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c2 c3 21 88 c4 c0 c1 5c 22 88 c5 c3   ┆tive) (byte-code "    !    \"   ┆
0x0720…0740 21 87 22 20 5b 6e 69 6c 20 74 20 66 6f 72 77 61 72 64 2d 70 61 72 61 67 72 61 70 68 20 31 20 70   ┆! " [nil t forward-paragraph 1 p┆
0x0740…0760 75 73 68 2d 6d 61 72 6b 20 62 61 63 6b 77 61 72 64 2d 70 61 72 61 67 72 61 70 68 5d 20 34 29 29   ┆ush-mark backward-paragraph] 4))┆
0x0760…0780 0a 0a 28 64 65 66 75 6e 20 6b 69 6c 6c 2d 70 61 72 61 67 72 61 70 68 20 28 61 72 67 29 20 22 5c   ┆  (defun kill-paragraph (arg) "\┆
0x0780…07a0 0a 4b 69 6c 6c 20 74 6f 20 65 6e 64 20 6f 66 20 70 61 72 61 67 72 61 70 68 2e 22 20 28 69 6e 74   ┆ Kill to end of paragraph." (int┆
0x07a0…07c0 65 72 61 63 74 69 76 65 20 22 2a 70 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 c2 60 c3   ┆eractive "*p") (byte-code "   ` ┆
0x07c0…07e0 08 21 88 60 5c 22 87 22 20 5b 61 72 67 20 6e 69 6c 20 6b 69 6c 6c 2d 72 65 67 69 6f 6e 20 66 6f   ┆ ! `\" " [arg nil kill-region fo┆
0x07e0…0800 72 77 61 72 64 2d 70 61 72 61 67 72 61 70 68 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 62 61 63   ┆rward-paragraph] 4))  (defun bac┆
0x0800…0820 6b 77 61 72 64 2d 6b 69 6c 6c 2d 70 61 72 61 67 72 61 70 68 20 28 61 72 67 29 20 22 5c 0a 4b 69   ┆kward-kill-paragraph (arg) "\ Ki┆
0x0820…0840 6c 6c 20 62 61 63 6b 20 74 6f 20 73 74 61 72 74 20 6f 66 20 70 61 72 61 67 72 61 70 68 2e 22 20   ┆ll back to start of paragraph." ┆
0x0840…0860 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 2a 70 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1   ┆(interactive "*p") (byte-code " ┆
0x0860…0880 88 c2 60 c3 08 21 88 60 5c 22 87 22 20 5b 61 72 67 20 6e 69 6c 20 6b 69 6c 6c 2d 72 65 67 69 6f   ┆  `  ! `\" " [arg nil kill-regio┆
0x0880…08a0 6e 20 62 61 63 6b 77 61 72 64 2d 70 61 72 61 67 72 61 70 68 5d 20 34 29 29 0a 0a 28 64 65 66 75   ┆n backward-paragraph] 4))  (defu┆
0x08a0…08c0 6e 20 74 72 61 6e 73 70 6f 73 65 2d 70 61 72 61 67 72 61 70 68 73 20 28 61 72 67 29 20 22 5c 0a   ┆n transpose-paragraphs (arg) "\ ┆
0x08c0…08e0 49 6e 74 65 72 63 68 61 6e 67 65 20 74 68 69 73 20 28 6f 72 20 6e 65 78 74 29 20 70 61 72 61 67   ┆Interchange this (or next) parag┆
0x08e0…0900 72 61 70 68 20 77 69 74 68 20 70 72 65 76 69 6f 75 73 20 6f 6e 65 2e 22 20 28 69 6e 74 65 72 61   ┆raph with previous one." (intera┆
0x0900…0920 63 74 69 76 65 20 22 2a 70 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 c2 c3 08 5c 22 87   ┆ctive "*p") (byte-code "     \" ┆
0x0920…0940 22 20 5b 61 72 67 20 6e 69 6c 20 74 72 61 6e 73 70 6f 73 65 2d 73 75 62 72 20 66 6f 72 77 61 72   ┆" [arg nil transpose-subr forwar┆
0x0940…0960 64 2d 70 61 72 61 67 72 61 70 68 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 73 74 61 72 74 2d 6f   ┆d-paragraph] 3))  (defun start-o┆
0x0960…0980 66 2d 70 61 72 61 67 72 61 70 68 2d 74 65 78 74 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20   ┆f-paragraph-text nil (byte-code ┆
0x0980…09a0 22 60 c2 19 18 c3 c4 21 88 60 89 11 88 c5 c6 21 88 60 08 59 85 21 00 09 62 88 09 65 56 85 21 00   ┆"`     ! `     ! ` Y !  b  eV ! ┆
0x09a0…09c0 c7 20 2a 87 22 20 5b 6f 70 6f 69 6e 74 20 6e 70 6f 69 6e 74 20 6e 69 6c 20 66 6f 72 77 61 72 64   ┆  * " [opoint npoint nil forward┆
0x09c0…09e0 2d 70 61 72 61 67 72 61 70 68 20 2d 31 20 73 6b 69 70 2d 63 68 61 72 73 2d 66 6f 72 77 61 72 64   ┆-paragraph -1 skip-chars-forward┆
0x09e0…0a00 20 22 20 09 0a 22 20 73 74 61 72 74 2d 6f 66 2d 70 61 72 61 67 72 61 70 68 2d 74 65 78 74 5d 20   ┆ "   " start-of-paragraph-text] ┆
0x0a00…0a20 34 29 29 0a 0a 28 64 65 66 75 6e 20 65 6e 64 2d 6f 66 2d 70 61 72 61 67 72 61 70 68 2d 74 65 78   ┆4))  (defun end-of-paragraph-tex┆
0x0a20…0a40 74 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 60 18 c1 c2 21 88 68 c3 3d 85 0f 00 c4 c5   ┆t nil (byte-code "`   ! h =     ┆
0x0a40…0a60 21 88 60 08 58 85 5c 22 00 c4 c2 21 88 60 64 57 85 5c 22 00 c6 20 29 87 22 20 5b 6f 70 6f 69 6e   ┆! ` X \"   ! `dW \"   ) " [opoin┆
0x0a60…0a80 74 20 66 6f 72 77 61 72 64 2d 70 61 72 61 67 72 61 70 68 20 31 20 31 30 20 66 6f 72 77 61 72 64   ┆t forward-paragraph 1 10 forward┆
0x0a80…0aa0 2d 63 68 61 72 20 2d 31 20 65 6e 64 2d 6f 66 2d 70 61 72 61 67 72 61 70 68 2d 74 65 78 74 5d 20   ┆-char -1 end-of-paragraph-text] ┆
0x0aa0…0ac0 35 29 29 0a 0a 28 64 65 66 75 6e 20 66 6f 72 77 61 72 64 2d 73 65 6e 74 65 6e 63 65 20 28 26 6f   ┆5))  (defun forward-sentence (&o┆
0x0ac0…0ae0 70 74 69 6f 6e 61 6c 20 61 72 67 29 20 22 5c 0a 4d 6f 76 65 20 66 6f 72 77 61 72 64 20 74 6f 20   ┆ptional arg) "\ Move forward to ┆
0x0ae0…0b00 6e 65 78 74 20 73 65 6e 74 65 6e 63 65 2d 65 6e 64 2e 20 20 57 69 74 68 20 61 72 67 75 6d 65 6e   ┆next sentence-end.  With argumen┆
0x0b00…0b20 74 2c 20 72 65 70 65 61 74 2e 0a 57 69 74 68 20 6e 65 67 61 74 69 76 65 20 61 72 67 75 6d 65 6e   ┆t, repeat. With negative argumen┆
0x0b20…0b40 74 2c 20 6d 6f 76 65 20 62 61 63 6b 77 61 72 64 20 72 65 70 65 61 74 65 64 6c 79 20 74 6f 20 73   ┆t, move backward repeatedly to s┆
0x0b40…0b60 65 6e 74 65 6e 63 65 2d 62 65 67 69 6e 6e 69 6e 67 2e 0a 53 65 6e 74 65 6e 63 65 20 65 6e 64 73   ┆entence-beginning. Sentence ends┆
0x0b60…0b80 20 61 72 65 20 69 64 65 6e 74 69 66 69 65 64 20 62 79 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20   ┆ are identified by the value of ┆
0x0b80…0ba0 73 65 6e 74 65 6e 63 65 2d 65 6e 64 0a 74 72 65 61 74 65 64 20 61 73 20 61 20 72 65 67 75 6c 61   ┆sentence-end treated as a regula┆
0x0ba0…0bc0 72 20 65 78 70 72 65 73 73 69 6f 6e 2e 20 20 41 6c 73 6f 2c 20 65 76 65 72 79 20 70 61 72 61 67   ┆r expression.  Also, every parag┆
0x0bc0…0be0 72 61 70 68 20 62 6f 75 6e 64 61 72 79 0a 74 65 72 6d 69 6e 61 74 65 73 20 73 65 6e 74 65 6e 63   ┆raph boundary terminates sentenc┆
0x0be0…0c00 65 73 20 61 73 20 77 65 6c 6c 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 70 22 29 20 28   ┆es as well." (interactive "p") (┆
0x0c00…0c20 62 79 74 65 2d 63 6f 64 65 20 22 c5 88 08 86 09 00 c6 89 10 88 08 c7 57 85 35 00 8a c8 20 88 60   ┆byte-code "            W 5     `┆
0x0c20…0c40 29 19 c9 0a ca 50 09 c3 23 83 29 00 cb c7 21 53 62 82 2b 00 09 62 29 88 08 54 89 10 88 82 0a 00   ┆)    P  # )   !Sb +  b)  T      ┆
0x0c40…0c60 88 08 c7 56 85 5d 00 8a cc 20 88 60 29 1c cd 0a 0c c3 23 83 51 00 ce cf 21 82 53 00 0c 62 29 88   ┆   V ]     `)     # Q   ! S  b) ┆
0x0c60…0c80 08 53 89 10 88 82 36 00 87 22 20 5b 61 72 67 20 70 61 72 2d 62 65 67 20 73 65 6e 74 65 6e 63 65   ┆ S    6  " [arg par-beg sentence┆
0x0c80…0ca0 2d 65 6e 64 20 74 20 70 61 72 2d 65 6e 64 20 6e 69 6c 20 31 20 30 20 73 74 61 72 74 2d 6f 66 2d   ┆-end t par-end nil 1 0 start-of-┆
0x0ca0…0cc0 70 61 72 61 67 72 61 70 68 2d 74 65 78 74 20 72 65 2d 73 65 61 72 63 68 2d 62 61 63 6b 77 61 72   ┆paragraph-text re-search-backwar┆
0x0cc0…0ce0 64 20 22 5b 5e 20 09 0a 5d 22 20 6d 61 74 63 68 2d 65 6e 64 20 65 6e 64 2d 6f 66 2d 70 61 72 61   ┆d "[^   ]" match-end end-of-para┆
0x0ce0…0d00 67 72 61 70 68 2d 74 65 78 74 20 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 73 6b 69   ┆graph-text re-search-forward ski┆
0x0d00…0d20 70 2d 63 68 61 72 73 2d 62 61 63 6b 77 61 72 64 20 22 20 09 0a 22 5d 20 39 29 29 0a 0a 28 64 65   ┆p-chars-backward "   "] 9))  (de┆
0x0d20…0d40 66 75 6e 20 62 61 63 6b 77 61 72 64 2d 73 65 6e 74 65 6e 63 65 20 28 26 6f 70 74 69 6f 6e 61 6c   ┆fun backward-sentence (&optional┆
0x0d40…0d60 20 61 72 67 29 20 22 5c 0a 4d 6f 76 65 20 62 61 63 6b 77 61 72 64 20 74 6f 20 73 74 61 72 74 20   ┆ arg) "\ Move backward to start ┆
0x0d60…0d80 6f 66 20 73 65 6e 74 65 6e 63 65 2e 20 20 57 69 74 68 20 61 72 67 2c 20 64 6f 20 69 74 20 61 72   ┆of sentence.  With arg, do it ar┆
0x0d80…0da0 67 20 74 69 6d 65 73 2e 0a 53 65 65 20 66 6f 72 77 61 72 64 2d 73 65 6e 74 65 6e 63 65 20 66 6f   ┆g times. See forward-sentence fo┆
0x0da0…0dc0 72 20 6d 6f 72 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76   ┆r more information." (interactiv┆
0x0dc0…0de0 65 20 22 70 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 08 86 09 00 c2 89 10 88 c3 08 5b   ┆e "p") (byte-code "            [┆
0x0de0…0e00 21 87 22 20 5b 61 72 67 20 6e 69 6c 20 31 20 66 6f 72 77 61 72 64 2d 73 65 6e 74 65 6e 63 65 5d   ┆! " [arg nil 1 forward-sentence]┆
0x0e00…0e20 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 6b 69 6c 6c 2d 73 65 6e 74 65 6e 63 65 20 28 26 6f 70 74   ┆ 2))  (defun kill-sentence (&opt┆
0x0e20…0e40 69 6f 6e 61 6c 20 61 72 67 29 20 22 5c 0a 4b 69 6c 6c 20 66 72 6f 6d 20 70 6f 69 6e 74 20 74 6f   ┆ional arg) "\ Kill from point to┆
0x0e40…0e60 20 65 6e 64 20 6f 66 20 73 65 6e 74 65 6e 63 65 2e 0a 57 69 74 68 20 61 72 67 2c 20 72 65 70 65   ┆ end of sentence. With arg, repe┆
0x0e60…0e80 61 74 2c 20 6f 72 20 62 61 63 6b 77 61 72 64 20 69 66 20 6e 65 67 61 74 69 76 65 20 61 72 67 2e   ┆at, or backward if negative arg.┆
0x0e80…0ea0 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 2a 70 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20   ┆" (interactive "*p") (byte-code ┆
0x0ea0…0ec0 22 c2 88 60 18 c3 09 21 88 c4 08 60 5c 22 29 87 22 20 5b 62 65 67 20 61 72 67 20 6e 69 6c 20 66   ┆"  `   !   `\") " [beg arg nil f┆
0x0ec0…0ee0 6f 72 77 61 72 64 2d 73 65 6e 74 65 6e 63 65 20 6b 69 6c 6c 2d 72 65 67 69 6f 6e 5d 20 34 29 29   ┆orward-sentence kill-region] 4))┆
0x0ee0…0f00 0a 0a 28 64 65 66 75 6e 20 62 61 63 6b 77 61 72 64 2d 6b 69 6c 6c 2d 73 65 6e 74 65 6e 63 65 20   ┆  (defun backward-kill-sentence ┆
0x0f00…0f20 28 26 6f 70 74 69 6f 6e 61 6c 20 61 72 67 29 20 22 5c 0a 4b 69 6c 6c 20 62 61 63 6b 20 66 72 6f   ┆(&optional arg) "\ Kill back fro┆
0x0f20…0f40 6d 20 70 6f 69 6e 74 20 74 6f 20 73 74 61 72 74 20 6f 66 20 73 65 6e 74 65 6e 63 65 2e 0a 57 69   ┆m point to start of sentence. Wi┆
0x0f40…0f60 74 68 20 61 72 67 2c 20 72 65 70 65 61 74 2c 20 6f 72 20 66 6f 72 77 61 72 64 20 69 66 20 6e 65   ┆th arg, repeat, or forward if ne┆
0x0f60…0f80 67 61 74 69 76 65 20 61 72 67 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 2a 70 22 29 20   ┆gative arg." (interactive "*p") ┆
0x0f80…0fa0 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 88 60 18 c3 09 21 88 c4 08 60 5c 22 29 87 22 20 5b 62 65   ┆(byte-code "  `   !   `\") " [be┆
0x0fa0…0fc0 67 20 61 72 67 20 6e 69 6c 20 62 61 63 6b 77 61 72 64 2d 73 65 6e 74 65 6e 63 65 20 6b 69 6c 6c   ┆g arg nil backward-sentence kill┆
0x0fc0…0fe0 2d 72 65 67 69 6f 6e 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 72 6b 2d 65 6e 64 2d 6f 66   ┆-region] 4))  (defun mark-end-of┆
0x0fe0…1000 2d 73 65 6e 74 65 6e 63 65 20 28 61 72 67 29 20 22 5c 0a 50 75 74 20 6d 61 72 6b 20 61 74 20 65   ┆-sentence (arg) "\ Put mark at e┆
0x1000…1020 6e 64 20 6f 66 20 73 65 6e 74 65 6e 63 65 2e 20 20 41 72 67 20 77 6f 72 6b 73 20 61 73 20 69 6e   ┆nd of sentence.  Arg works as in┆
0x1020…1040 20 66 6f 72 77 61 72 64 2d 73 65 6e 74 65 6e 63 65 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65   ┆ forward-sentence." (interactive┆
0x1040…1060 20 22 70 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 c2 8a c3 08 21 88 60 29 21 87 22 20   ┆ "p") (byte-code "      ! `)! " ┆
0x1060…1080 5b 61 72 67 20 6e 69 6c 20 70 75 73 68 2d 6d 61 72 6b 20 66 6f 72 77 61 72 64 2d 73 65 6e 74 65   ┆[arg nil push-mark forward-sente┆
0x1080…10a0 6e 63 65 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 74 72 61 6e 73 70 6f 73 65 2d 73 65 6e 74 65   ┆nce] 3))  (defun transpose-sente┆
0x10a0…10c0 6e 63 65 73 20 28 61 72 67 29 20 22 5c 0a 49 6e 74 65 72 63 68 61 6e 67 65 20 74 68 69 73 20 28   ┆nces (arg) "\ Interchange this (┆
0x10c0…10e0 6e 65 78 74 29 20 61 6e 64 20 70 72 65 76 69 6f 75 73 20 73 65 6e 74 65 6e 63 65 2e 22 20 28 69   ┆next) and previous sentence." (i┆
0x10e0…1100 6e 74 65 72 61 63 74 69 76 65 20 22 2a 70 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 c2   ┆nteractive "*p") (byte-code "   ┆
0x1100…1120 c3 08 5c 22 87 22 20 5b 61 72 67 20 6e 69 6c 20 74 72 61 6e 73 70 6f 73 65 2d 73 75 62 72 20 66   ┆  \" " [arg nil transpose-subr f┆
0x1120…1135 6f 72 77 61 72 64 2d 73 65 6e 74 65 6e 63 65 5d 20 33 29 29 0a   ┆orward-sentence] 3)) ┆
DataMuseum.dk

DKUUG/EUUG Conference tapes

⟦8aa1d8c23⟧

Derivation

Hex Dump
