1 |
;;; paragraphs.el --- paragraph and sentence parsing |
;;; paragraphs.el --- paragraph and sentence parsing |
2 |
|
|
3 |
;; Copyright (C) 1985, 86, 87, 91, 94, 95, 96, 1997, 1999, 2000, 2001 |
;; Copyright (C) 1985, 86, 87, 91, 94, 95, 96, 1997, 1999, 2000, 2001, 2004 |
4 |
;; Free Software Foundation, Inc. |
;; Free Software Foundation, Inc. |
5 |
|
|
6 |
;; Maintainer: FSF |
;; Maintainer: FSF |
122 |
and `colon-double-space'. |
and `colon-double-space'. |
123 |
|
|
124 |
This value is used by the function `sentence-end' to construct the |
This value is used by the function `sentence-end' to construct the |
125 |
regexp describing the end of a sentence, in case when the value of |
regexp describing the end of a sentence, when the value of the variable |
126 |
the variable `sentence-end' is nil. See Info node `Sentences'." |
`sentence-end' is nil. See Info node `(elisp)Standard Regexps'." |
127 |
:type 'boolean |
:type 'boolean |
128 |
:group 'fill) |
:group 'fill) |
129 |
|
|
133 |
without a period. |
without a period. |
134 |
|
|
135 |
This value is used by the function `sentence-end' to construct the |
This value is used by the function `sentence-end' to construct the |
136 |
regexp describing the end of a sentence, in case when the value of |
regexp describing the end of a sentence, when the value of the variable |
137 |
the variable `sentence-end' is nil. See Info node `Sentences'." |
`sentence-end' is nil. See Info node `(elisp)Standard Regexps'." |
138 |
:type 'boolean |
:type 'boolean |
139 |
:group 'fill) |
:group 'fill) |
140 |
|
|
141 |
(defcustom sentence-end-without-space |
(defcustom sentence-end-without-space |
142 |
"$B!#!%!)!*$A!##.#?#!$(0!$!%!)!*$(G!$!%!)!*(B" |
"$B!#!%!)!*$A!##.#?#!$(0!$!%!)!*$(G!$!%!)!*(B" |
143 |
"*String containing characters that end sentence without following spaces. |
"*String of characters that end sentence without following spaces. |
144 |
|
|
145 |
This value is used by the function `sentence-end' to construct the |
This value is used by the function `sentence-end' to construct the |
146 |
regexp describing the end of a sentence, in case when the value of |
regexp describing the end of a sentence, when the value of the variable |
147 |
the variable `sentence-end' is nil. See Info node `Sentences'." |
`sentence-end' is nil. See Info node `(elisp)Standard Regexps'." |
148 |
:group 'paragraphs |
:group 'paragraphs |
149 |
:type 'string) |
:type 'string) |
150 |
|
|
169 |
that in order to be recognized as the end of a sentence, the |
that in order to be recognized as the end of a sentence, the |
170 |
ending period, question mark, or exclamation point must be |
ending period, question mark, or exclamation point must be |
171 |
followed by two spaces, unless it's inside some sort of quotes or |
followed by two spaces, unless it's inside some sort of quotes or |
172 |
parenthesis. See Info node `Sentences'." |
parenthesis. See Info node `(elisp)Standard Regexps'." |
173 |
(or sentence-end |
(or sentence-end |
174 |
(concat (if sentence-end-without-period "\\w \\|") |
(concat (if sentence-end-without-period "\\w \\|") |
175 |
"\\([.?!][]\"'\xd0c9\x5397d)}]*" |
"\\([.?!][]\"'\xd0c9\x5397d)}]*" |