changeset 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 d12a2182fd9f
children 362c61b5411b
files lisp/textmodes/fill.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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))))