Mercurial > emacs

comparison lisp/textmodes/paragraphs.el @ 269:2ca8cdb96a9f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Jim Blandy <jimb@redhat.com>
date Mon, 13 May 1991 22:05:14 +0000
parents 7db4ff4204a5
children 505130d1ddf8
comparison
equal deleted inserted replaced
268:2dd411fe2f72 269:2ca8cdb96a9f
16 ;; You should have received a copy of the GNU General Public License 16 ;; You should have received a copy of the GNU General Public License
17 ;; along with GNU Emacs; see the file COPYING. If not, write to 17 ;; along with GNU Emacs; see the file COPYING. If not, write to
18 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. 18 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
19 19
20 20
21 ;;;###autoload (defconst paragraph-start "^[ \t\n\f]" 21 ;;;###autoload
22 ;;;###autoload "*Regexp for beginning of a line that starts OR separates paragraphs.") 22 (defconst paragraph-start "^[ \t\n\f]" "\
23 23 *Regexp for beginning of a line that starts OR separates paragraphs.")
24 ;;;###autoload (defconst paragraph-separate "^[ \t\f]*$" 24
25 ;;;###autoload "*Regexp for beginning of a line that separates paragraphs. 25 ;;;###autoload
26 ;;;###autoload If you change this, you may have to change paragraph-start also.") 26 (defconst paragraph-separate "^[ \t\f]*$" "\
27 27 *Regexp for beginning of a line that separates paragraphs.
28 ;;;###autoload (defconst sentence-end (purecopy "[.?!][]\"')}]*\\($\\| $\\|\t\\| \\)[ \t\n]*") "\ 28 If you change this, you may have to change paragraph-start also.")
29 ;;;###autoload *Regexp describing the end of a sentence. 29
30 ;;;###autoload All paragraph boundaries also end sentences, regardless.") 30 ;;;###autoload
31 31 (defconst sentence-end (purecopy "[.?!][]\"')}]*\\($\\| $\\|\t\\| \\)[ \t\n]*") "\
32 ;;;###autoload (defconst page-delimiter "^\014" "\ 32 *Regexp describing the end of a sentence.
33 ;;;###autoload *Regexp describing line-beginnings that separate pages.") 33 All paragraph boundaries also end sentences, regardless.")
34 34
35 ;;;###autoload (defvar paragraph-ignore-fill-prefix nil 35 ;;;###autoload
36 ;;;###autoload "Non-nil means the paragraph commands are not affected by `fill-prefix'. 36 (defconst page-delimiter "^\014" "\
37 ;;;###autoload This is desirable in modes where blank lines are the paragraph delimiters.") 37 *Regexp describing line-beginnings that separate pages.")
38
39 ;;;###autoload
40 (defvar paragraph-ignore-fill-prefix nil "\
41 Non-nil means the paragraph commands are not affected by `fill-prefix'.
42 This is desirable in modes where blank lines are the paragraph delimiters.")
38 43
39 44
40 (defun forward-paragraph (&optional arg) 45 (defun forward-paragraph (&optional arg)
41 "Move forward to end of paragraph. 46 "Move forward to end of paragraph.
42 With arg N, do it N times; negative arg -N means move forward N paragraphs. 47 With arg N, do it N times; negative arg -N means move forward N paragraphs.