# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1075188696 0
# Node ID 40f76024a6c1b29fd68baf031e418ffd7426a43e
# Parent  f4286b8e919620ae1ce9881da966e44ae77535d6
(sentence-end-without-space): New variable.
(sentence-end): Define using sentence-end-without-space.

diff -r f4286b8e9196 -r 40f76024a6c1 lisp/textmodes/paragraphs.el
--- a/lisp/textmodes/paragraphs.el	Tue Jan 27 04:57:18 2004 +0000
+++ b/lisp/textmodes/paragraphs.el	Tue Jan 27 07:31:36 2004 +0000
@@ -132,14 +132,23 @@
   :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.