From 5c06b8040e362ea2310685547763062c83bb5844 Mon Sep 17 00:00:00 2001 From: morioka Date: Fri, 5 Jun 1998 00:28:47 +0000 Subject: [PATCH] (charset-chars): New function. --- emu-mule.el | 6 ++++++ 1 file changed, 6 insertions(+) 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 ;;; -- 1.7.10.4