# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 908970656 0
# Node ID b697f796a473a47efbdf21b3d51a7e63b6756b90
# Parent  78085d485d73159d3528aeccfd1919aa7e496a22
(do-auto-fill): Adjust argument for fill-find-break-point.

diff -r 78085d485d73 -r b697f796a473 lisp/simple.el
--- a/lisp/simple.el	Wed Oct 21 11:50:56 1998 +0000
+++ b/lisp/simple.el	Wed Oct 21 11:50:56 1998 +0000
@@ -2987,11 +2987,15 @@
 			  ;; Break the line after/before \c|.
 			  (forward-char 1))))
 		    (if enable-multibyte-characters
-			(let ((charset (charset-after (1- (point)))))
-			  (if (eq charset 'ascii)
-			      (setq charset (charset-after (point))))
-			  (if (not (eq charset 'ascii))
-			      (fill-find-break-point charset after-prefix))))
+			;; If we are going to break the line after or
+			;; before a non-ascii character, we may have
+			;; to run a special function for the charset
+			;; of the character to find the correct break
+			;; point.
+			(if (not (and (eq (charset-after (1- (point))) 'ascii)
+				      (eq (charset-after (point)) 'ascii)))
+			    (fill-find-break-point after-prefix)))
+
 		    ;; Let fill-point be set to the place where we end up.
 		    ;; But move back before any whitespace here.
 		    (skip-chars-backward " \t")