From: Kenichi Handa <handa@m17n.org>
Date: Tue, 27 Jan 2004 07:31:36 +0000 (+0000)
Subject: (sentence-end-without-space): New variable.
X-Git-Tag: ttn-vms-21-2-B4~7816
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9402a4b9ff009f8bcf9a6a31879be099acfcea98;p=emacs.git

(sentence-end-without-space): New variable.
(sentence-end): Define using sentence-end-without-space.
---

diff --git a/lisp/textmodes/paragraphs.el b/lisp/textmodes/paragraphs.el
index 97abc2c1583..0c5d969105f 100644
--- a/lisp/textmodes/paragraphs.el
+++ b/lisp/textmodes/paragraphs.el
@@ -132,14 +132,23 @@ without a period."
   :type 'boolean
   :group 'fill)
 
+(defcustom sentence-end-without-space
+  "$B!#!%!)!*$A!##.#?#!$(0!$!%!)!*$(G!$!%!)!*(B"
+  "*String containing characters that end sentence without following spaces.
+If you change this, you should also change `sentence-end'.  See Info
+node `Sentences'."
+  :group 'paragraphs
+  :type 'string)
+
 (defcustom sentence-end
   (purecopy
    ;; This is a bit stupid since it's not auto-updated when the
    ;; other variables are changes, but it's still useful info.
    (concat (if sentence-end-without-period "\\w  \\|")
-	   "[.?!$B!#!%!)!*$A!##.#?#!$(0!$!%!)!*$(G!$!%!)!*(B][]\"')}]*"
+	   "\\([.?!][]\"')}]*"
 	   (if sentence-end-double-space
 	       "\\($\\| $\\|\t\\|  \\)" "\\($\\|[\t ]\\)")
+	   "\\|[" sentence-end-without-space "]+\\)"
 	   "[ \t\n]*"))
   "*Regexp describing the end of a sentence.
 The value includes the whitespace following the sentence.