Mercurial > emacs

changeset 21470:b6c858daa80d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(generic-char-p): A character of code 0 is not a generic char.
author Kenichi Handa <handa@m17n.org>
date Sat, 11 Apr 1998 02:18:31 +0000
parents ea652c41eec6
children ae34e7d5c51f
files lisp/international/mule.el
diffstat 1 files changed, 4 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/mule.el	Sat Apr 11 01:06:37 1998 +0000
+++ b/lisp/international/mule.el	Sat Apr 11 02:18:31 1998 +0000
@@ -261,9 +261,10 @@
 (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