# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 997178227 0
# Node ID 06ad87abb7a410e1cd21dbdc5def285cd018b7e3
# Parent  d0fff85bebaaf5aa137db0c71585f6145c57f74f
(forward-sentence): Avoid building
a regexp from sentence-end.  From Kenichi Handa <handa@etl.go.jp>.

diff -r d0fff85bebaa -r 06ad87abb7a4 lisp/textmodes/paragraphs.el
--- a/lisp/textmodes/paragraphs.el	Tue Aug 07 09:47:06 2001 +0000
+++ b/lisp/textmodes/paragraphs.el	Tue Aug 07 09:57:07 2001 +0000
@@ -369,10 +369,12 @@
   (or arg (setq arg 1))
   (let ((opoint (point)))
     (while (< arg 0)
-      (let ((par-beg (save-excursion (start-of-paragraph-text) (point))))
-       (if (re-search-backward (concat "\\(" sentence-end "\\)[^ \t\n]")
-			       par-beg t)
-	   (goto-char (1- (match-end 0)))
+      (let ((pos (point))
+	    (par-beg (save-excursion (start-of-paragraph-text) (point))))
+       (if (and (re-search-backward sentence-end par-beg t)
+		(or (< (match-end 0) pos)
+		    (re-search-backward sentence-end par-beg t)))
+	   (goto-char (match-end 0))
 	 (goto-char par-beg)))
       (setq arg (1+ arg)))
     (while (> arg 0)