[Emacs-diffs] Changes to emacs/lisp/international/mule.el

[Kenichi Handa]

Index: emacs/lisp/international/mule.el
diff -c emacs/lisp/international/mule.el:1.154 
emacs/lisp/international/mule.el:1.155
*** emacs/lisp/international/mule.el:1.154      Mon Jul 29 01:05:19 2002
--- emacs/lisp/international/mule.el    Mon Jul 29 01:11:40 2002
***************
*** 429,436 ****
    "Return the coding type of CODING-SYSTEM.
  A coding type is an integer value indicating the encoding method
  of CODING-SYSTEM.  See the function `make-coding-system' for more detail."
!   (let ((spec (coding-system-spec coding-system)))
!     (if spec (aref spec coding-spec-type-idx))))
  
  (defun coding-system-mnemonic (coding-system)
    "Return the mnemonic character of CODING-SYSTEM.
--- 429,435 ----
    "Return the coding type of CODING-SYSTEM.
  A coding type is an integer value indicating the encoding method
  of CODING-SYSTEM.  See the function `make-coding-system' for more detail."
!   (aref (coding-system-spec coding-system) coding-spec-type-idx))
  
  (defun coding-system-mnemonic (coding-system)
    "Return the mnemonic character of CODING-SYSTEM.
***************
*** 441,461 ****
  
  (defun coding-system-doc-string (coding-system)
    "Return the documentation string for CODING-SYSTEM."
!   (let ((spec (coding-system-spec coding-system)))
!     (if spec (aref spec coding-spec-doc-string-idx))))
  
  (defun coding-system-plist (coding-system)
    "Return the property list of CODING-SYSTEM."
!   (let ((spec (coding-system-spec coding-system)))
!     (if spec (aref spec coding-spec-plist-idx))))
  
  (defun coding-system-flags (coding-system)
    "Return `flags' of CODING-SYSTEM.
  A `flags' of a coding system is a vector of length 32 indicating detailed
  information of a coding system.  See the function `make-coding-system'
  for more detail."
!   (let ((spec (coding-system-spec coding-system)))
!     (if spec (aref spec coding-spec-flags-idx))))
  
  (defun coding-system-get (coding-system prop)
    "Extract a value from CODING-SYSTEM's property list for property PROP."
--- 440,457 ----
  
  (defun coding-system-doc-string (coding-system)
    "Return the documentation string for CODING-SYSTEM."
!   (aref (coding-system-spec coding-system) coding-spec-doc-string-idx))
  
  (defun coding-system-plist (coding-system)
    "Return the property list of CODING-SYSTEM."
!   (aref (coding-system-spec coding-system) coding-spec-plist-idx))
  
  (defun coding-system-flags (coding-system)
    "Return `flags' of CODING-SYSTEM.
  A `flags' of a coding system is a vector of length 32 indicating detailed
  information of a coding system.  See the function `make-coding-system'
  for more detail."
!   (aref (coding-system-spec coding-system) coding-spec-flags-idx))
  
  (defun coding-system-get (coding-system prop)
    "Extract a value from CODING-SYSTEM's property list for property PROP."
***************
*** 466,473 ****
    (let ((plist (coding-system-plist coding-system)))
      (if plist
        (plist-put plist prop val)
!       (let ((spec (coding-system-spec coding-system)))
!       (if spec (aset spec coding-spec-plist-idx (list prop val)))))))
  
  (defun coding-system-category (coding-system)
    "Return the coding category of CODING-SYSTEM.
--- 462,469 ----
    (let ((plist (coding-system-plist coding-system)))
      (if plist
        (plist-put plist prop val)
!       (aset (coding-system-spec coding-system) coding-spec-plist-idx
!           (list prop val)))))
  
  (defun coding-system-category (coding-system)
    "Return the coding category of CODING-SYSTEM.