X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fmule%2Fmule-misc.el;fp=lisp%2Fmule%2Fmule-misc.el;h=2a411dde8c13323bf5548bc07f5c37f70b08ca93;hb=b5eeb6918c29470b36f8461c402eb0c65cb19bd2;hp=9b4906ec2dc561994c9fa7d8d54ca4aaa21dfbb0;hpb=755e352634f2cf331256ecc3bf7e45facab3cdc3;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/mule/mule-misc.el b/lisp/mule/mule-misc.el
index 9b4906e..2a411dd 100644
--- a/lisp/mule/mule-misc.el
+++ b/lisp/mule/mule-misc.el
@@ -163,8 +163,8 @@ If each element of LIST is not a string, it is converted to string
 (defalias 'sref 'aref)
 (defalias 'map-char-concat 'mapcar)
 (defun char-bytes (character)
-  "Return number of length a CHARACTER occupies in a string or buffer.
-It returns only 1 in XEmacs.  It is for compatibility with MULE 2.3."
+  "Return number of bytes a CHARACTER occupies in a string or buffer.
+It always returns 1 in XEmacs.  It is for compatibility with MULE 2.3."
   1)
 (defalias 'char-length 'char-bytes)
 
@@ -208,19 +208,6 @@ because its `find-charset-string' ignores ASCII charset."
 ;	(cons charset dest)
 ;	))))
 
-(defun char-octet (ch &optional n)
-  "Return the octet numbered N (should be 0 or 1) of char CH.
-N defaults to 0 if omitted."
-  (let ((split (split-char ch)))
-    (setq n (or n 0))
-    (cond ((eq n 0)
-	   (nth 1 split))
-	  ((eq n 1)
-	   (nth 2 split))
-	  (t (error "n must be 0 or 1")))))
-;; Made obsolete June 15, 1999.  Delete ASAP.
-(make-obsolete 'char-octet "Use split-char")
-
 ;(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."