[COMMIT] Tell the category infrastructure about the Mule-UCS coding systems

APPROVE COMMIT NOTE: This patch has been committed. Tell the category infrastructure about the Mule-UCS coding systems; this allows the prefer-coding-system calls documented for GNU Emacs for UTF-8 support to work on 21.4 and SXEmacs. mule-packages/mule-ucs/lisp/ChangeLog addition: 2007-09-30 Aidan Kehoe <kehoea(a)parhasard.net&gt; * un-define.el (un-define): Tell the category infrastructure about the Mule-UCS coding systems. XEmacs Packages source patch: Diff command: cvs -q diff -Nu Files affected: mule-packages/mule-ucs/lisp/un-define.el =================================================================== RCS Index: mule-packages/mule-ucs/lisp/un-define.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/mule-packages/mule-ucs/lisp/un-define.el,v retrieving revision 1.5 diff -u -u -r1.5 un-define.el --- mule-packages/mule-ucs/lisp/un-define.el 2007/08/08 20:45:11 1.5 +++ mule-packages/mule-ucs/lisp/un-define.el 2007/09/30 15:59:59 ＠＠ -629,7 +629,9 ＠＠ (mucs-define-coding-system (nth 0 y) (nth 1 y) (nth 2 y) (nth 3 y) (nth 4 y) (nth 5 y) (nth 6 y)) - (coding-system-put (car y) 'alias-coding-systems (list (car x)))) + (coding-system-put (car y) 'alias-coding-systems (list (car x))) + (when (memq (car x) (coding-category-list)) + (coding-system-put (car y) 'category (car x)))) (cdr x))) `((utf-8 (utf-8-unix -- On the quay of the little Black Sea port, where the rescued pair came once more into contact with civilization, Dobrinton was bitten by a dog which was assumed to be mad, though it may only have been indiscriminating. (Saki) _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches