]> git.eshelyaron.com Git - emacs.git/commitdiff
textmodes/paragraphs.el. Undo previous accidental patch.
authorAlan Mackenzie <acm@muc.de>
Sat, 27 Aug 2011 11:14:50 +0000 (11:14 +0000)
committerAlan Mackenzie <acm@muc.de>
Sat, 27 Aug 2011 11:14:50 +0000 (11:14 +0000)
lisp/textmodes/paragraphs.el

index 59454043c4ed45a3ac2967e6baa55978cd783955..a0892b5ebbae991b375eed1169f0aece54c2cf18 100644 (file)
@@ -456,25 +456,21 @@ sentences.  Also, every paragraph boundary terminates sentences as well."
         (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)))