diff options
| author | Kenichi Handa | 1997-06-09 12:51:42 +0000 |
|---|---|---|
| committer | Kenichi Handa | 1997-06-09 12:51:42 +0000 |
| commit | 53dcf39300d26b58088ec09ebf471878d96a8f4a (patch) | |
| tree | ff3116e4c051110ea653b5e72420aa1e01ba9e34 | |
| parent | a904b20bf2da629932434cccc318b4fb62614f2f (diff) | |
| download | emacs-53dcf39300d26b58088ec09ebf471878d96a8f4a.tar.gz emacs-53dcf39300d26b58088ec09ebf471878d96a8f4a.zip | |
(do-auto-fill): Bug fix for kinsoku processing.
| -rw-r--r-- | lisp/simple.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index c26e7dcc8fa..8878edcaf92 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -2619,11 +2619,11 @@ Setting this variable automatically makes it local to the current buffer." | |||
| 2619 | ;; Break the line at word boundary. | 2619 | ;; Break the line at word boundary. |
| 2620 | (skip-chars-backward " \t") | 2620 | (skip-chars-backward " \t") |
| 2621 | ;; Break the line after/before \c|. | 2621 | ;; Break the line after/before \c|. |
| 2622 | (forward-char 1) | 2622 | (forward-char 1)))) |
| 2623 | (if (and enable-kinsoku enable-multibyte-characters) | 2623 | (if (and enable-kinsoku enable-multibyte-characters) |
| 2624 | (kinsoku (save-excursion | 2624 | (kinsoku (save-excursion |
| 2625 | (forward-line 0) (point))))))) | 2625 | (forward-line 0) (point))))))) |
| 2626 | ;; Let fill-point be set to the place where we end up. | 2626 | ;; Let fill-point be set to the place where we end up. |
| 2627 | (point))))) | 2627 | (point))))) |
| 2628 | ;; If that place is not the beginning of the line, | 2628 | ;; If that place is not the beginning of the line, |
| 2629 | ;; break the line there. | 2629 | ;; break the line there. |