# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 865860702 0
# Node ID cf5b766b9da28647b90775b19f15d8425891cf13
# Parent  fc07ea29cd818d58616e1f75e2f59a4fe73d28f6
(do-auto-fill): Bug fix for kinsoku processing.

diff -r fc07ea29cd81 -r cf5b766b9da2 lisp/simple.el
--- a/lisp/simple.el	Mon Jun 09 12:51:37 1997 +0000
+++ b/lisp/simple.el	Mon Jun 09 12:51:42 1997 +0000
@@ -2619,11 +2619,11 @@
 			   ;; 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.