This commit was generated by cvs2svn to compensate for changes in r5670,

[chise/xemacs-chise.git.1] / lisp / mule / mule-charset.el

diff --git a/lisp/mule/mule-charset.el b/lisp/mule/mule-charset.el
index c31abc8..6e3c366 100644 (file)
--- a/lisp/mule/mule-charset.el
+++ b/lisp/mule/mule-charset.el
@@ -97,12 +97,12 @@ BUFFER defaults to the current buffer if omitted."
 \f
 ;;;; Charset accessors
 
 \f
 ;;;; 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))
 
   "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))
 
   "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))
 
   "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)."
   "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))
 
 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
 
 
 ;;;; Define setf methods for all settable Charset properties