(fill-find-break-point): Check the validity of charset.

diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el
index 6463c3b82c7b4b91e4b5afc71ea744839b7c6df1..9e5df39fcb08acf7e3b1c9ec38b1fb96806f740e 100644 (file)
--- a/lisp/textmodes/fill.el
+++ b/lisp/textmodes/fill.el
@@ -315,7 +315,9 @@ If the charset has no such property, do nothing."
     (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))))