From: Gerd Moellmann <gerd@gnu.org>
Date: Tue, 10 Apr 2001 14:55:03 +0000 (+0000)
Subject: (forward-sentence): Put the sentence-end
X-Git-Tag: emacs-pretest-21.0.103~246
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3fe35f35c02fd27ccfe458583bf3858a86143975;p=emacs.git

(forward-sentence): Put the sentence-end
regexp in parentheses when building the regexp for searching
backwards.
---

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)))