changeset 18177:cf5b766b9da2

(do-auto-fill): Bug fix for kinsoku processing.
author Kenichi Handa <handa@m17n.org>
date Mon, 09 Jun 1997 12:51:42 +0000
parents fc07ea29cd81
children b45b431879bf
files lisp/simple.el
diffstat 1 files changed, 5 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- 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.