From: tomo <tomo>
Date: Thu, 8 Apr 1999 16:48:30 +0000 (+0000)
Subject: Move function `split-char-or-char-int' to mule-misc.el.
X-Git-Tag: r21-2-12~7
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1817100e6620170187eaca0d4ca5b5a4f2cc3dc7;p=chise%2Fxemacs-chise.git

Move function `split-char-or-char-int' to mule-misc.el.
---

diff --git a/lisp/mule/vietnamese.el b/lisp/mule/vietnamese.el
index 241d6c6..d71dbcf 100644
--- a/lisp/mule/vietnamese.el
+++ b/lisp/mule/vietnamese.el
@@ -51,17 +51,6 @@
    ?.1Np ?Nq ?Nr ?Ns ?Nt ?Nu ?Nv ?Nw ?Nx ?Ny ?Nz ?N{ ?N| ?N} ?N~ ?.2Nf ]
   "Vietnamese VISCII decoding table.")
 
-(defun split-char-or-char-int (char)
-  "Return list of charset and one or two position-codes of CHAR.
-CHAR must be character or integer."
-  (if (characterp char)
-      (split-char char)
-    (let ((c (int-char char)))
-      (if c
-	  (split-char c)
-	(list 'ascii c)
-	))))
-
 (defvar viet-viscii-encode-table
   (let ((table-lower (make-vector 128 0))
 	(table-upper (make-vector 128 0))