;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Tue May 3 21:52:32 1994 ;;; from file /gd/gnu/emacs/19.0/lisp/paragraphs.el ;;; emacs version 19.22.92.2. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "`/gd/gnu/emacs/19.0/lisp/paragraphs.el' was compiled for Emacs 19")) (defconst paragraph-start "^[ \n\f]" "\ *Regexp for beginning of a line that starts OR separates paragraphs. This regexp should match lines that separate paragraphs and should also match lines that start a paragraph (and are part of that paragraph). The variable `paragraph-separate' specifies how to distinguish lines that start paragraphs from lines that separate them.") (defconst paragraph-separate "^[ \f]*$" "\ *Regexp for beginning of a line that separates paragraphs. If you change this, you may have to change paragraph-start also.") (defconst sentence-end (purecopy "[.?!][]\"')}]*\\($\\| $\\| \\| \\)[ \n]*") "\ *Regexp describing the end of a sentence. All paragraph boundaries also end sentences, regardless. In order to be recognized as the end of a sentence, the ending period, question mark, or exclamation point must be followed by two spaces, unless it's inside some sort of quotes or parenthesis.") (defconst page-delimiter "^\f" "\ *Regexp describing line-beginnings that separate pages.") (defvar paragraph-ignore-fill-prefix nil "\ Non-nil means the paragraph commands are not affected by `fill-prefix'. This is desirable in modes where blank lines are the paragraph delimiters.") (defalias 'forward-paragraph #[(&optional arg) "„Á\n…\nÚ?…\f?…Å\n!‰ƒ)ÈÉR‚+ÊWƒ¿o„¿Ë!„IÌÍ`Se]Î#„¸ÏuˆÊyˆo„`Ë!ƒ`Ïyˆ‚Oo„¸ÐˆƒŒÊyˆo„‡Ë!„‡Ë!ƒ‡Ïyˆ‚lo?‚’ÌÐÎ#ƒµm„¦Ë!ƒ¦Áyˆ‚•`ÒZfÓ=ƒ¸Ïyˆ‚¸ebˆT‰‚.ÊV…m?…Êyˆm?…ÖË!Áyˆ„̓ùm„\fË!„\fË!ƒ\fÁyˆ‚áÔÐÎ#ƒ Ê”bˆ‚\fdbˆS‰‚À*‡" [arg 1 fill-prefix "" paragraph-ignore-fill-prefix regexp-quote fill-prefix-regexp paragraph-separate "\\|^" "[ ]*$" 0 looking-at re-search-backward "^\n" t -1 nil paragraph-start 2 10 re-search-forward] 5 "\ Move forward to end of paragraph. With arg N, do it N times; negative arg -N means move backward N paragraphs. A line which `paragraph-start' matches either separates paragraphs (if `paragraph-separate' matches it also) or is the first line of a paragraph. A paragraph end is the beginning of a line which is not part of the paragraph to which the end of the previous line belongs, or the end of the buffer." "p"]) (defalias 'backward-paragraph #[(&optional arg) "„ÁÂ[!‡" [arg 1 forward-paragraph] 2 "\ Move backward to start of paragraph. With arg N, do it N times; negative arg -N means move forward N paragraphs. A paragraph start is the beginning of a line which is a `first-line-of-paragraph' or which is ordinary text and follows a paragraph-separating line; except: if the first real line of a paragraph is preceded by a blank line, the paragraph starts at that blank line. See `forward-paragraph' for more information." "p"]) (defalias 'mark-paragraph #[nil "ÀÁ!ˆÂÃĉ#ˆÅÁ!‡" [forward-paragraph 1 push-mark nil t backward-paragraph] 4 "\ Put point at beginning of this paragraph, mark at end. The paragraph marked is the one that contains point or follows point." nil]) (defalias 'kill-paragraph #[(arg) "À`Á\n!ˆ`\"‡" [kill-region forward-paragraph arg] 4 "\ Kill forward to end of paragraph. With arg N, kill forward to Nth end of paragraph; negative arg -N means kill backward to Nth start of paragraph." "p"]) (defalias 'backward-kill-paragraph #[(arg) "À`Á\n!ˆ`\"‡" [kill-region backward-paragraph arg] 4 "\ Kill back to start of paragraph. With arg N, kill back to Nth start of paragraph; negative arg -N means kill forward to Nth end of paragraph." "p"]) (defalias 'transpose-paragraphs #[(arg) "ÀÁ\n\"‡" [transpose-subr forward-paragraph arg] 3 "\ Interchange this (or next) paragraph with previous one." "*p"]) (byte-code "ÀÁÂ\"ˆÀÃÄ\"‡" [defalias start-of-paragraph-text #[nil "`ÀÃÄ!ˆ`ÅÀwˆ`\nY…% \nW…% bˆ eV…%Æ *‡" [nil npoint opoint forward-paragraph -1 " \n" start-of-paragraph-text] 2] end-of-paragraph-text #[nil "`ÁÂ!ˆhÃ=ƒÄuˆ`X… Âuˆ`dW… Å )‡" [opoint forward-paragraph 1 10 -1 end-of-paragraph-text] 2]] 3) (defalias 'forward-sentence #[(&optional arg) "„ÁÂWƒ1ŠÃ ˆ`)ÅÇP\fÈ#ƒ&•Sbˆ‚)\fbˆ)T‰‚ÂV…\\ŠÉ ˆ`)\nË\nÈ#ƒPÌÍxˆ‚T\nbˆ)S‰‚2‡" [arg 1 0 start-of-paragraph-text par-beg re-search-backward sentence-end "[^ \n]" t end-of-paragraph-text par-end re-search-forward " \n" nil] 5 "\ Move forward to next `sentence-end'. With argument, repeat. With negative argument, move backward repeatedly to `sentence-beginning'. The variable `sentence-end' is a regular expression that matches ends of sentences. Also, every paragraph boundary terminates sentences as well." "p"]) (defalias 'backward-sentence #[(&optional arg) "„ÁÂ[!‡" [arg 1 forward-sentence] 2 "\ Move backward to start of sentence. With arg, do it arg times. See `forward-sentence' for more information." "p"]) (defalias 'kill-sentence #[(&optional arg) "À`Á\n!ˆ`\"‡" [kill-region forward-sentence arg] 4 "\ Kill from point to end of sentence. With arg, repeat; negative arg -N means kill back to Nth start of sentence." "*p"]) (defalias 'backward-kill-sentence #[(&optional arg) "À`Á\n!ˆ`\"‡" [kill-region backward-sentence arg] 4 "\ Kill back from point to start of sentence. With arg, repeat, or kill forward to Nth end of sentence if negative arg -N." "*p"]) (defalias 'mark-end-of-sentence #[(arg) "ÀŠÁ\n!ˆ`)ÃÄ#‡" [push-mark forward-sentence arg nil t] 4 "\ Put mark at end of sentence. Arg works as in `forward-sentence'." "p"]) (defalias 'transpose-sentences #[(arg) "ÀÁ\n\"‡" [transpose-subr forward-sentence arg] 3 "\ Interchange this (next) and previous sentence." "*p"])