Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
e9f91ece
Commit
e9f91ece
authored
Feb 04, 2009
by
Kenichi Handa
Browse files
(coding_system_charset_list): New function.
parent
f5199465
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
33 additions
and
0 deletions
+33
-0
src/coding.c
src/coding.c
+33
-0
No files found.
src/coding.c
View file @
e9f91ece
...
...
@@ -5595,6 +5595,39 @@ coding_charset_list (coding)
}
/* Return a list of charsets supported by CODING-SYSTEM. */
Lisp_Object
coding_system_charset_list (coding_system)
Lisp_Object coding_system;
{
int id;
Lisp_Object attrs, charset_list;
CHECK_CODING_SYSTEM_GET_ID (coding_system, id);
attrs = CODING_ID_ATTRS (id);
if (EQ (CODING_ATTR_TYPE (attrs), Qiso_2022))
{
int flags = XINT (AREF (attrs, coding_attr_iso_flags));
if (flags & CODING_ISO_FLAG_FULL_SUPPORT)
charset_list = Viso_2022_charset_list;
else
charset_list = CODING_ATTR_CHARSET_LIST (attrs);
}
else if (EQ (CODING_ATTR_TYPE (attrs), Qemacs_mule))
{
charset_list = Vemacs_mule_charset_list;
}
else
{
charset_list = CODING_ATTR_CHARSET_LIST (attrs);
}
return charset_list;
}
/* Return raw-text or one of its subsidiaries that has the same
eol_type as CODING-SYSTEM. */
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment