159 |
:group 'paragraphs |
:group 'paragraphs |
160 |
:type '(choice regexp (const :tag "Use default value" nil))) |
:type '(choice regexp (const :tag "Use default value" nil))) |
161 |
|
|
162 |
|
(defcustom sentence-end-base "[.?!][]\"'\xd0c9\x5397d)}]*" |
163 |
|
"*Regexp matching the basic end of a sentence, not including following space." |
164 |
|
:group 'paragraphs |
165 |
|
:type 'string |
166 |
|
:version "22.1") |
167 |
|
|
168 |
(defun sentence-end () |
(defun sentence-end () |
169 |
"Return the regexp describing the end of a sentence. |
"Return the regexp describing the end of a sentence. |
170 |
|
|
171 |
This function returns either the value of the variable `sentence-end' |
This function returns either the value of the variable `sentence-end' |
172 |
if it is non-nil, or the default value constructed from the |
if it is non-nil, or the default value constructed from the |
173 |
variables `sentence-end-double-space', `sentence-end-without-period' |
variables `sentence-end-base', `sentence-end-double-space', |
174 |
and `sentence-end-without-space'. The default value specifies |
`sentence-end-without-period' and `sentence-end-without-space'. |
175 |
that in order to be recognized as the end of a sentence, the |
|
176 |
ending period, question mark, or exclamation point must be |
The default value specifies that in order to be recognized as the |
177 |
followed by two spaces, unless it's inside some sort of quotes or |
end of a sentence, the ending period, question mark, or exclamation point |
178 |
parenthesis. See Info node `(elisp)Standard Regexps'." |
must be followed by two spaces, with perhaps some closing delimiters |
179 |
|
in between. See Info node `(elisp)Standard Regexps'." |
180 |
(or sentence-end |
(or sentence-end |
181 |
(concat (if sentence-end-without-period "\\w \\|") |
(concat (if sentence-end-without-period "\\w \\|") |
182 |
"\\([.?!][]\"'\xd0c9\x5397d)}]*" |
"\\(" |
183 |
|
sentence-end-base |
184 |
(if sentence-end-double-space |
(if sentence-end-double-space |
185 |
"\\($\\| $\\|\t\\| \\)" "\\($\\|[\t ]\\)") |
"\\($\\| $\\|\t\\| \\)" "\\($\\|[\t ]\\)") |
186 |
"\\|[" sentence-end-without-space "]+\\)" |
"\\|[" sentence-end-without-space "]+" |
187 |
|
"\\)" |
188 |
"[ \t\n]*"))) |
"[ \t\n]*"))) |
189 |
|
|
190 |
(defcustom page-delimiter "^\014" |
(defcustom page-delimiter "^\014" |