From eb400532b3ab5f1c04f1814be79e0375326c3846 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Wed, 21 Oct 1998 11:50:56 +0000 Subject: [PATCH] (do-auto-fill): Adjust argument for fill-find-break-point. --- lisp/simple.el | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) diff --git a/lisp/simple.el b/lisp/simple.el index f02e2f478a9..b8eb9e6fd5d 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -2987,11 +2987,15 @@ Setting this variable automatically makes it local to the current buffer.") ;; 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") -- 2.39.2