diff options
| author | Kenichi Handa | 2003-06-10 01:24:23 +0000 |
|---|---|---|
| committer | Kenichi Handa | 2003-06-10 01:24:23 +0000 |
| commit | 2f1e746b76414ea42165c9c0363019110e1f6d31 (patch) | |
| tree | 343ae23c7fd388823e9c326379db02220a3cfd01 | |
| parent | 6e323e571cee317fd46b311a908dbbcf61e55b75 (diff) | |
| download | emacs-2f1e746b76414ea42165c9c0363019110e1f6d31.tar.gz emacs-2f1e746b76414ea42165c9c0363019110e1f6d31.zip | |
(coding-system-category): New function.
| -rw-r--r-- | lisp/international/mule.el | 4 |
1 files changed, 4 insertions, 0 deletions
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'. | |||
| 695 | If CODING-SYSTEM supports all emacs-mule charsets, return `emacs-mule'." | 695 | If CODING-SYSTEM supports all emacs-mule charsets, return `emacs-mule'." |
| 696 | (plist-get (coding-system-plist coding-system) :charset-list)) | 696 | (plist-get (coding-system-plist coding-system) :charset-list)) |
| 697 | 697 | ||
| 698 | (defun coding-system-category (coding-system) | ||
| 699 | "Return a category symbol of CODING-SYSTEM." | ||
| 700 | (plist-get (coding-system-plist coding-system) :category)) | ||
| 701 | |||
| 698 | (defun coding-system-get (coding-system prop) | 702 | (defun coding-system-get (coding-system prop) |
| 699 | "Extract a value from CODING-SYSTEM's property list for property PROP. | 703 | "Extract a value from CODING-SYSTEM's property list for property PROP. |
| 700 | For compatibility with Emacs 20/21, this accepts old-style symbols | 704 | For compatibility with Emacs 20/21, this accepts old-style symbols |