Mercurial > emacs
changeset 23491:608e86fcce73
(do-auto-fill): Don't check kinsoku-enable here.
Don't call kinsoku directly, intead call fill-find-break-point.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Mon, 19 Oct 1998 00:40:10 +0000 |
| parents | dc320f6914fe |
| children | dc49b662b956 |
| files | lisp/simple.el |
| diffstat | 1 files changed, 6 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Mon Oct 19 00:40:10 1998 +0000 +++ b/lisp/simple.el Mon Oct 19 00:40:10 1998 +0000 @@ -2986,9 +2986,12 @@ (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)))) + (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)))) ;; Let fill-point be set to the place where we end up. ;; But move back before any whitespace here. (skip-chars-backward " \t")