From 2f1e746b76414ea42165c9c0363019110e1f6d31 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Tue, 10 Jun 2003 01:24:23 +0000 Subject: [PATCH] (coding-system-category): New function. --- lisp/international/mule.el | 4 ++++ 1 file changed, 4 insertions(+) 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 -- 2.39.5