X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;ds=sidebyside;f=lisp%2Fmule%2Fmule-charset.el;h=9dd8fef3f4e1d308ac79712beebfb064d318e6fd;hb=1a5e625ffcc6b2e9a9828a89763c062a0b09b361;hp=c31abc8b422fe2815750cc8d74af34d421d9641b;hpb=976b002b16336930724ae22476014583ad022e7d;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/mule/mule-charset.el b/lisp/mule/mule-charset.el
index c31abc8..6e3c366 100644
--- a/lisp/mule/mule-charset.el
+++ b/lisp/mule/mule-charset.el
@@ -97,12 +97,12 @@ BUFFER defaults to the current buffer if omitted."
 
 ;;;; Charset accessors
 
-(defun charset-iso-graphic-plane (charset)
+(defun charset-graphic (charset)
   "Return the `graphic' property of CHARSET.
 See `make-charset'."
   (charset-property charset 'graphic))
 
-(defun charset-iso-final-char (charset)
+(defun charset-final (charset)
   "Return the final byte of the ISO 2022 escape sequence designating CHARSET."
   (charset-property charset 'final))
 
@@ -110,7 +110,7 @@ See `make-charset'."
   "Return the number of characters per dimension of CHARSET."
   (charset-property charset 'chars))
 
-(defun charset-width (charset)
+(defun charset-columns (charset)
   "Return the number of display columns per character of CHARSET.
 This only applies to TTY mode (under X, the actual display width can
 be automatically determined)."
@@ -131,14 +131,10 @@ that can display the characters in CHARSET."
 See `make-charset'."
   (charset-property charset 'ccl-program))
 
-(defun charset-bytes (charset)
-  "Useless in XEmacs, returns 1."
-   1)
-
-(define-obsolete-function-alias 'charset-columns 'charset-width) ;; 19990409
-(define-obsolete-function-alias 'charset-final 'charset-iso-final-char) ;; 19990409
-(define-obsolete-function-alias 'charset-graphic 'charset-iso-graphic-plane) ;; 19990409
-(define-obsolete-function-alias 'charset-doc-string 'charset-description) ;; 19990409
+(defun charset-leading-byte (charset)
+  "Return the leading byte of CHARSET.
+See `make-charset'."
+  (charset-property charset 'leading-byte))
 
 ;;;; Define setf methods for all settable Charset properties