From 1d9356692360b1be498cc52e0a95c636548f56dc Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Sat, 11 Apr 1998 02:18:31 +0000 Subject: [PATCH] (generic-char-p): A character of code 0 is not a generic char. --- lisp/international/mule.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/international/mule.el b/lisp/international/mule.el index 5c4e14c0082..fde894ec484 100644 --- a/lisp/international/mule.el +++ b/lisp/international/mule.el @@ -261,9 +261,10 @@ Now we have the variable `charset-list'." (defsubst generic-char-p (char) "Return t if and only if CHAR is a generic character. See also the documentation of make-char." - (let ((l (split-char char))) - (and (or (= (nth 1 l) 0) (eq (nth 2 l) 0)) - (not (eq (car l) 'composition))))) + (and (>= char 0400) + (let ((l (split-char char))) + (and (or (= (nth 1 l) 0) (eq (nth 2 l) 0)) + (not (eq (car l) 'composition)))))) ;; Coding system staffs -- 2.39.2