From 1817100e6620170187eaca0d4ca5b5a4f2cc3dc7 Mon Sep 17 00:00:00 2001 From: tomo Date: Thu, 8 Apr 1999 16:48:30 +0000 Subject: [PATCH] Move function `split-char-or-char-int' to mule-misc.el. --- lisp/mule/vietnamese.el | 11 ----------- 1 file changed, 11 deletions(-) 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)) -- 1.7.10.4