(forward-sentence): Put the sentence-end

regexp in parentheses when building the regexp for searching
backwards.

2 files changed, 7 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c41630731d4..e13c5cc9497 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2001-04-10  Gerd Moellmann  <gerd@gnu.org>
 
+        * textmodes/paragraphs.el (forward-sentence): Put the sentence-end
+        regexp in parentheses when building the regexp for searching
+        backwards.
+
         * simple.el (completion-list-mode-finish): New function.
         (toplevel): Add completion-list-mode-finish to
         temp-buffer-show-hook.
diff --git a/lisp/textmodes/paragraphs.el b/lisp/textmodes/paragraphs.el
index 2913c83134d..305f24b6049 100644
--- a/lisp/textmodes/paragraphs.el
+++ b/lisp/textmodes/paragraphs.el
@@ -1,6 +1,6 @@
 ;;; paragraphs.el --- paragraph and sentence parsing.
 
-;; Copyright (C) 1985, 86, 87, 91, 94, 95, 96, 1997, 1999
+;; Copyright (C) 1985, 86, 87, 91, 94, 95, 96, 1997, 1999, 2000, 2001
 ;;    Free Software Foundation, Inc.
 
 ;; Maintainer: FSF
@@ -369,7 +369,8 @@ sentences.  Also, every paragraph boundary terminates sentences as well."
   (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)
+       (if (re-search-backward (concat "\\(" sentence-end "\\)[^ \t\n]")
+                               par-beg t)
            (goto-char (1- (match-end 0)))
          (goto-char par-beg)))
       (setq arg (1+ arg)))