From: morioka <morioka>
Date: Fri, 5 Jun 1998 00:28:47 +0000 (+0000)
Subject: (charset-chars): New function.
X-Git-Tag: apel-8_14~26
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=5c06b8040e362ea2310685547763062c83bb5844;p=elisp%2Fapel.git

(charset-chars): New function.
---

diff --git a/emu-mule.el b/emu-mule.el
index 2f0b476..60bfbd2 100644
--- a/emu-mule.el
+++ b/emu-mule.el
@@ -69,6 +69,12 @@
 (defalias 'charset-columns	'char-width)
 (defalias 'charset-direction	'char-direction)
 
+(defun charset-chars (charset)
+  "Return the number of characters per dimension of CHARSET."
+  (if (= (logand (nth 2 (character-set charset)) 1) 1)
+      96
+    94))
+
 
 ;;; @ coding system
 ;;;