X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fmule%2Fmule-misc.el;h=fe9948f2b8db319c8d43fc4438d9c496c455e4d0;hb=976b002b16336930724ae22476014583ad022e7d;hp=348878155b49c328b659c15f426eaa4c863d9fe2;hpb=eb1f7fa6e0f89ff92b86f02c7cbdee048edd8b0d;p=chise%2Fxemacs-chise.git-

diff --git a/lisp/mule/mule-misc.el b/lisp/mule/mule-misc.el
index 3488781..fe9948f 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.
@@ -175,8 +175,6 @@ It returns only 1 in XEmacs.  It is for compatibility with MULE 2.3."
 (defalias 'char-columns 'char-width)
 (make-obsolete 'char-columns 'char-width)
 
-(defalias 'charset-description 'charset-doc-string)
-
 (defalias 'find-charset-string 'charsets-in-string)
 (defalias 'find-charset-region 'charsets-in-region)
 
@@ -210,6 +208,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