Commit f4b80eb1 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(sentence-end-base): New variable.

(sentence-end): Use sentence-end-base.
parent 5ae158bf
...@@ -159,23 +159,32 @@ to obtain the value of this variable." ...@@ -159,23 +159,32 @@ to obtain the value of this variable."
:group 'paragraphs :group 'paragraphs
:type '(choice regexp (const :tag "Use default value" nil))) :type '(choice regexp (const :tag "Use default value" nil)))
(defcustom sentence-end-base "[.?!][]\"'\xd0c9\x5397d)}]*"
"*Regexp matching the basic end of a sentence, not including following space."
:group 'paragraphs
:type 'string
:version "22.1")
(defun sentence-end () (defun sentence-end ()
"Return the regexp describing the end of a sentence. "Return the regexp describing the end of a sentence.
This function returns either the value of the variable `sentence-end' This function returns either the value of the variable `sentence-end'
if it is non-nil, or the default value constructed from the if it is non-nil, or the default value constructed from the
variables `sentence-end-double-space', `sentence-end-without-period' variables `sentence-end-base', `sentence-end-double-space',
and `sentence-end-without-space'. The default value specifies `sentence-end-without-period' and `sentence-end-without-space'.
that in order to be recognized as the end of a sentence, the
ending period, question mark, or exclamation point must be The default value specifies that in order to be recognized as the
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
parenthesis. See Info node `(elisp)Standard Regexps'." must be followed by two spaces, with perhaps some closing delimiters
in between. See Info node `(elisp)Standard Regexps'."
(or sentence-end (or sentence-end
(concat (if sentence-end-without-period "\\w \\|") (concat (if sentence-end-without-period "\\w \\|")
"\\([.?!][]\"'\xd0c9\x5397d)}]*" "\\("
sentence-end-base
(if sentence-end-double-space (if sentence-end-double-space
"\\($\\| $\\|\t\\| \\)" "\\($\\|[\t ]\\)") "\\($\\| $\\|\t\\| \\)" "\\($\\|[\t ]\\)")
"\\|[" sentence-end-without-space "]+\\)" "\\|[" sentence-end-without-space "]+"
"\\)"
"[ \t\n]*"))) "[ \t\n]*")))
(defcustom page-delimiter "^\014" (defcustom page-delimiter "^\014"
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment