(do-auto-fill): Bug fix for kinsoku processing.

diff --git a/lisp/simple.el b/lisp/simple.el
index c26e7dcc8fab7587e9707d05d964837d6376f41a..8878edcaf92fe1dfb5caf675bb53d153aec6ff7d 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -2619,11 +2619,11 @@ Setting this variable automatically makes it local to the current buffer."
                           ;; Break the line at word boundary.
                           (skip-chars-backward " \t")
                         ;; Break the line after/before \c|.
-                        (forward-char 1)
-                         (if (and enable-kinsoku enable-multibyte-characters)
-                            (kinsoku (save-excursion
-                                       (forward-line 0) (point)))))))
-                  ;; Let fill-point be set to the place where we end up.
+                        (forward-char 1))))
+                  (if (and enable-kinsoku enable-multibyte-characters)
+                      (kinsoku (save-excursion
+                                 (forward-line 0) (point)))))))
+             ;; Let fill-point be set to the place where we end up.
                   (point)))))
          ;; If that place is not the beginning of the line,
          ;; break the line there.