From a66e29a3b1932fe9e29bfa1e8034e158d607a8f8 Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Mon, 17 May 1999 09:41:52 +0000
Subject: [PATCH] (split-char-or-char-int): New function [moved from
 vietnamese.el].

---
 lisp/mule/mule-misc.el |   13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/lisp/mule/mule-misc.el b/lisp/mule/mule-misc.el
index 3488781..0c93929 100644
--- a/lisp/mule/mule-misc.el
+++ b/lisp/mule/mule-misc.el
@@ -1,6 +1,6 @@
 ;; mule-misc.el --- Miscellaneous Mule functions.
 
-;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
+;; Copyright (C) 1995,1999 Electrotechnical Laboratory, JAPAN.
 ;; Licensed to the Free Software Foundation.
 ;; Copyright (C) 1992,93,94,95 Free Software Foundation, Inc.
 ;; Copyright (C) 1995 Amdahl Corporation.
@@ -210,6 +210,17 @@ because its `find-charset-string' ignores ASCII charset."
 	(cons charset dest)
 	))))
 
+(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)
+	))))
+
 
 ;;; Commands
 
-- 
1.7.10.4