From: Kenichi Handa <handa@m17n.org>
Date: Wed, 7 Jun 2000 12:00:23 +0000 (+0000)
Subject: (fill-find-break-point): Check the validity of charset.
X-Git-Tag: emacs-pretest-21.0.90~3467
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b1376368e2a5e612c53b9a9de24d8c228af89b88;p=emacs.git

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

diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el
index 6463c3b82c7..9e5df39fcb0 100644
--- 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))))