From: tomo <tomo>
Date: Mon, 28 Jun 1999 14:35:45 +0000 (+0000)
Subject: (string-width): Use `charset-width' instead of `charset-columns'.
X-Git-Tag: r21-2-17-tomo-3~55
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=7b31c2c07110b63683a04d01cd25ebd0a67ed9f8;p=chise%2Fxemacs-chise.git

(string-width): Use `charset-width' instead of `charset-columns'.
(char-width): Likewise.
(coding-system-get): Fix typo.
---

diff --git a/lisp/mule/mule-misc.el b/lisp/mule/mule-misc.el
index a8524e0..d5f915d 100644
--- a/lisp/mule/mule-misc.el
+++ b/lisp/mule/mule-misc.el
@@ -64,7 +64,7 @@ using a window system."
 	(len (length string))
 	(i 0))
     (while (< i len)
-      (setq col (+ col (charset-columns (char-charset (aref string i)))))
+      (setq col (+ col (charset-width (char-charset (aref string i)))))
       (setq i (1+ i)))
     col))
 
@@ -170,7 +170,7 @@ It returns only 1 in XEmacs.  It is for compatibility with MULE 2.3."
 
 (defun char-width (character)
   "Return number of columns a CHARACTER occupies when displayed."
-  (charset-columns (char-charset character)))
+  (charset-width (char-charset character)))
 
 (defalias 'char-columns 'char-width)
 (make-obsolete 'char-columns 'char-width)
@@ -323,7 +323,7 @@ when the language environment is made current."
        (get (coding-system-name coding-system) 'coding-system-property)
        prop)
       (condition-case nil
-	  (coding-system-property 'iso-2022-jp 'mnemonics)
+	  (coding-system-property coding-system prop)
 	(error nil))))
 
 (defun coding-system-put (coding-system prop val)