From: Kenichi Handa <handa@m17n.org>
Date: Sat, 11 Apr 1998 02:18:31 +0000 (+0000)
Subject: (generic-char-p): A character of code 0 is not a generic char.
X-Git-Tag: emacs-20.3~1604
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1d9356692360b1be498cc52e0a95c636548f56dc;p=emacs.git

(generic-char-p): A character of code 0 is not a generic char.
---

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