/[emacs]/emacs/lisp/textmodes/paragraphs.el
ViewVC logotype

Diff of /emacs/lisp/textmodes/paragraphs.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.79 by ttn, Sat Aug 6 17:41:15 2005 UTC revision 1.80 by rms, Fri Oct 21 18:56:56 2005 UTC
# Line 159  to obtain the value of this variable." Line 159  to obtain the value of this variable."
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"

Legend:
Removed from v.1.79  
changed lines
  Added in v.1.80

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26