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

b1376368 · Kenichi Handa · e4044bb0 · b1376368
Commit b1376368 authored Jun 07, 2000 by Kenichi Handa
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 1 deletion

lisp/textmodes/fill.el lisp/textmodes/fill.el +3 -1

No files found.
--- 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))))