martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(do-auto-fill): Don't check kinsoku-enable here.

Browse Source 
Don't call kinsoku directly, intead call fill-find-break-point.
This commit is contained in:
Kenichi Handa
1998-10-19 00:40:10 +00:00
parent 9732380494
commit 22c47bc5ff
1 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/simple.el
View File

@@ -2986,9 +2986,12 @@ Setting this variable automatically makes it local to the current buffer.")
(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")