I think this is fucking horrible, but I value Ilya’s input as a user, and it’s not a ridiculously complicated change. src/ChangeLog addition: 2006-11-28 Aidan Kehoe <kehoea(a)parhasard.net&gt; * mule-charset.c (Fset_charset_registries): Add an optional argument FORCE, to allow specifying badly-formed CHARSET_REGISTRY-CHARSET_ENCODING combinations. Re-enables the sort of hacks described in 96wt67fa3f.fsf(a)mo.msk.ru from Ilya Golubev. XEmacs Trunk source patch: Diff command: cvs -q diff -u Files affected: src/mule-charset.c =================================================================== RCS Index: src/mule-charset.c =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/src/mule-charset.c,v retrieving revision 1.52 diff -u -r1.52 mule-charset.c --- src/mule-charset.c 2006/11/15 21:40:02 1.52 +++ src/mule-charset.c 2006/11/28 13:31:11 ＠＠ -891,7 +891,7 ＠＠ face_property_was_changed (Vdefault_face, Qfont, Qglobal); } -DEFUN ("set-charset-registries", Fset_charset_registries, 2, 2, 0, /* +DEFUN ("set-charset-registries", Fset_charset_registries, 2, 3, 0, /* Set the `registries' property of CHARSET to REGISTRIES. REGISTRIES is an ordered vector of strings that describe the X11 ＠＠ -906,8 +906,22 ＠＠ (set-charset-registries 'ascii ["jisx0201.1976-0"]) +If optional argument FORCE is non-nil, avoid sanity-checking the elements of +REGISTRIES. Normally the strings are checked to make sure they contain no +XLFD wild cards and that they contain at least one hyphen; the only context +in which one might want not to do this is in order to use a font which +doesn't have a full XLFD--and thus, an effective +CHARSET_REGISTRY-CHARSET_ENCODING of ""--to display ASCII. + +We recommend strongly that you specify a full XLFD, since this makes +multilingual and variant font handling work much better. To get the full +XLFD of any font, start xfd with the short name as the pattern argument: + + xfd -fn 8x16kana + +and use the text that appears at the top of the window. */ - (charset, registries)) + (charset, registries, force)) { int i; charset = Fget_charset (charset); ＠＠ -916,6 +930,12 ＠＠ for (i = 0; i < XVECTOR_LENGTH(registries); ++i) { CHECK_STRING (XVECTOR_DATA(registries)[i]); + + if (!NILP(force)) + { + continue; + } + if (NULL == qxestrchr(XSTRING_DATA(XVECTOR_DATA(registries)[i]), '-')) { invalid_argument("Not an X11 REGISTRY-ENCODING combination", -- Santa Maradona, priez pour moi! _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches