Mercurial > emacs
changeset 23520:b697f796a473
(do-auto-fill): Adjust argument for fill-find-break-point.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Wed, 21 Oct 1998 11:50:56 +0000 |
| parents | 78085d485d73 |
| children | 616acf65d243 |
| files | lisp/simple.el |
| diffstat | 1 files changed, 9 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- 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")