# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 960379223 0
# Node ID 59d0015683a51323ba49d2a22c968b1f6fddf352
# Parent  d12a2182fd9f13b6c62797c6994347798027a93e
(fill-find-break-point): Check the validity of charset.

diff -r d12a2182fd9f -r 59d0015683a5 lisp/textmodes/fill.el
--- a/lisp/textmodes/fill.el	Wed Jun 07 11:59:25 2000 +0000
+++ b/lisp/textmodes/fill.el	Wed Jun 07 12:00:23 2000 +0000
@@ -315,7 +315,9 @@
     (if (eq charset 'ascii)
 	(setq ch (preceding-char)
 	      charset (char-charset ch)))
-    (setq func (get-charset-property charset 'fill-find-break-point-function))
+    (if (charsetp charset)
+	(setq func
+	      (get-charset-property charset 'fill-find-break-point-function)))
     (if (and func (fboundp func))
 	(funcall func limit))))