From: Kenichi Handa <handa@m17n.org>
Date: Mon, 29 Jul 2002 05:11:40 +0000 (+0000)
Subject: Fix previous unexpected change.
X-Git-Tag: ttn-vms-21-2-B4~13825
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2653e2a77fcfcbf320fae7dd17b26d870d8d6016;p=emacs.git

Fix previous unexpected change.
---

diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index fc5b10bcb9b..7efcb9c1fb7 100644
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -429,8 +429,7 @@ code-point in CCS.  Currently not supported and just ignored."
   "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))))
+  (aref (coding-system-spec coding-system) coding-spec-type-idx))
 
 (defun coding-system-mnemonic (coding-system)
   "Return the mnemonic character of CODING-SYSTEM.
@@ -441,21 +440,18 @@ to indicate the coding system.  If the arg is nil, return ?-."
 
 (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))))
+  (aref (coding-system-spec coding-system) 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))))
+  (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."
-  (let ((spec (coding-system-spec coding-system)))
-    (if spec (aref spec coding-spec-flags-idx))))
+  (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,8 +462,8 @@ for more detail."
   (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)))))))
+      (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.