Mercurial > emacs
comparison lisp/textmodes/fill.el @ 29484:59d0015683a5
(fill-find-break-point): Check the validity of charset.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Wed, 07 Jun 2000 12:00:23 +0000 |
| parents | 3fe2e55e31da |
| children | 8d54281f48c3 |
comparison
equal
deleted
inserted
replaced
| 29483:d12a2182fd9f | 29484:59d0015683a5 |
|---|---|
| 313 (charset (char-charset ch)) | 313 (charset (char-charset ch)) |
| 314 func) | 314 func) |
| 315 (if (eq charset 'ascii) | 315 (if (eq charset 'ascii) |
| 316 (setq ch (preceding-char) | 316 (setq ch (preceding-char) |
| 317 charset (char-charset ch))) | 317 charset (char-charset ch))) |
| 318 (setq func (get-charset-property charset 'fill-find-break-point-function)) | 318 (if (charsetp charset) |
| 319 (setq func | |
| 320 (get-charset-property charset 'fill-find-break-point-function))) | |
| 319 (if (and func (fboundp func)) | 321 (if (and func (fboundp func)) |
| 320 (funcall func limit)))) | 322 (funcall func limit)))) |
| 321 | 323 |
| 322 (defun fill-region-as-paragraph (from to &optional justify | 324 (defun fill-region-as-paragraph (from to &optional justify |
| 323 nosqueeze squeeze-after) | 325 nosqueeze squeeze-after) |