[Emacs-diffs] /srv/bzr/emacs/trunk r105591: textmodes/paragraphs.el. Undo previous accidental patch.

[Alan Mackenzie]

------------------------------------------------------------
revno: 105591
committer: Alan Mackenzie <address@hidden>
branch nick: trunk
timestamp: Sat 2011-08-27 11:14:50 +0000
message:
  textmodes/paragraphs.el.  Undo previous accidental patch.
modified:
  lisp/textmodes/paragraphs.el

=== modified file 'lisp/textmodes/paragraphs.el'
--- a/lisp/textmodes/paragraphs.el      2011-08-27 08:41:23 +0000
+++ b/lisp/textmodes/paragraphs.el      2011-08-27 11:14:50 +0000
@@ -456,25 +456,21 @@
         (sentence-end (sentence-end)))
     (while (< arg 0)
       (let ((pos (point))
-           (par-beg
-            (save-excursion
-              (start-of-paragraph-text)
-              ;; Move PAR-BEG back over indentation
-              ;; to allow s1entence-end to match if it is anchored at
-              ;; BOL and the paragraph starts indented.
-              (beginning-of-line)
-              (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)))
+           ;; We used to use (start-of-paragraph-text), but this can
+           ;; prevent sentence-end from matching if it is anchored at
+           ;; BOL and the paragraph starts indented.
+           (par-beg (save-excursion (backward-paragraph) (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)
       (let ((par-end (save-excursion (end-of-paragraph-text) (point))))
-       (if (re-search-forward sentence-end par-end t)
-           (skip-chars-backward " \t\n")
-         (goto-char par-end)))
+       (if (re-search-forward sentence-end par-end t)
+          (skip-chars-backward " \t\n")
+        (goto-char par-end)))
       (setq arg (1- arg)))
     (constrain-to-field nil opoint t)))