From: Kenichi Handa <handa@m17n.org>
Date: Tue, 10 Jun 2003 01:24:23 +0000 (+0000)
Subject: (coding-system-category): New function.
X-Git-Tag: emacs-pretest-23.0.90~8295^2~1864^2~6
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2f1e746b76414ea42165c9c0363019110e1f6d31;p=emacs.git

(coding-system-category): New function.
---

diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index 687a58b94ac..51ae8832c1c 100644
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -695,6 +695,10 @@ If CODING-SYSTEM supports all ISO-2022 charsets, return `iso-2022'.
 If CODING-SYSTEM supports all emacs-mule charsets, return `emacs-mule'."
   (plist-get (coding-system-plist coding-system) :charset-list))
 
+(defun coding-system-category (coding-system)
+  "Return a category symbol of CODING-SYSTEM."
+  (plist-get (coding-system-plist coding-system) :category))
+
 (defun coding-system-get (coding-system prop)
   "Extract a value from CODING-SYSTEM's property list for property PROP.
 For compatibility with Emacs 20/21, this accepts old-style symbols