Mercurial > hg > xemacs-beta

comparison lisp/paragraphs.el @ 444:576fb035e263 r21-2-37

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-37
author cvs
date Mon, 13 Aug 2007 11:36:19 +0200
parents 3ecd8885ac67
children 1ccc32a20af4
comparison
equal deleted inserted replaced
443:a8296e22da4e 444:576fb035e263
97 (if (not (eobp)) 97 (if (not (eobp))
98 (set-hard-newline-properties 98 (set-hard-newline-properties
99 (point) (1+ (point)))))))))))) 99 (point) (1+ (point))))))))))))
100 (setq use-hard-newlines t))) 100 (setq use-hard-newlines t)))
101 101
102 ;; XEmacs - use purecopy 102 (defconst paragraph-start "[ \t\n\f]" "\
103 (defconst paragraph-start (purecopy "[ \t\n\f]") "\
104 *Regexp for beginning of a line that starts OR separates paragraphs. 103 *Regexp for beginning of a line that starts OR separates paragraphs.
105 This regexp should match lines that separate paragraphs 104 This regexp should match lines that separate paragraphs
106 and should also match lines that start a paragraph 105 and should also match lines that start a paragraph
107 \(and are part of that paragraph). 106 \(and are part of that paragraph).
108 107
121 ;; It is assumed that paragraph-separate is distinctive enough to be believed 120 ;; It is assumed that paragraph-separate is distinctive enough to be believed
122 ;; whenever it occurs, while it is reasonable to set paragraph-start to 121 ;; whenever it occurs, while it is reasonable to set paragraph-start to
123 ;; something very minimal, even including "." (which makes every hard newline 122 ;; something very minimal, even including "." (which makes every hard newline
124 ;; start a new paragraph). 123 ;; start a new paragraph).
125 124
126 ;; XEmacs -- use purecopy 125 (defconst paragraph-separate "[ \t\f]*$" "\
127 (defconst paragraph-separate (purecopy "[ \t\f]*$") "\
128 *Regexp for beginning of a line that separates paragraphs. 126 *Regexp for beginning of a line that separates paragraphs.
129 If you change this, you may have to change paragraph-start also. 127 If you change this, you may have to change paragraph-start also.
130 128
131 This is matched against the text at the left margin, which is not necessarily 129 This is matched against the text at the left margin, which is not necessarily
132 the beginning of the line, so it should not use \"^\" as an anchor. This 130 the beginning of the line, so it should not use \"^\" as an anchor. This
133 ensures that the paragraph functions will work equally within a region of 131 ensures that the paragraph functions will work equally within a region of
134 text indented by a margin setting.") 132 text indented by a margin setting.")
135 133
136 ;; XEmacs -- use purecopy 134 (defconst sentence-end "[.?!][]\"')}]*\\($\\| $\\|\t\\| \\)[ \t\n]*" "\
137 (defconst sentence-end (purecopy "[.?!][]\"')}]*\\($\\| $\\|\t\\| \\)[ \t\n]*") "\
138 *Regexp describing the end of a sentence. 135 *Regexp describing the end of a sentence.
139 All paragraph boundaries also end sentences, regardless. 136 All paragraph boundaries also end sentences, regardless.
140 137
141 In order to be recognized as the end of a sentence, the ending period, 138 In order to be recognized as the end of a sentence, the ending period,
142 question mark, or exclamation point must be followed by two spaces, 139 question mark, or exclamation point must be followed by two spaces,
143 unless it's inside some sort of quotes or parenthesis.") 140 unless it's inside some sort of quotes or parenthesis.")
144 141
145 ;; XEmacs -- use purecopy 142 (defconst page-delimiter "^\014" "\
146 (defconst page-delimiter (purecopy "^\014") "\
147 *Regexp describing line-beginnings that separate pages.") 143 *Regexp describing line-beginnings that separate pages.")
148 144
149 (defvar paragraph-ignore-fill-prefix nil "\ 145 (defvar paragraph-ignore-fill-prefix nil "\
150 Non-nil means the paragraph commands are not affected by `fill-prefix'. 146 Non-nil means the paragraph commands are not affected by `fill-prefix'.
151 This is desirable in modes where blank lines are the paragraph delimiters.") 147 This is desirable in modes where blank lines are the paragraph delimiters.")