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

[Aidan Kehoe]

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 at parhasard.net>

	* 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)