Mule-UCS (was: How to add some more charsets to mew?)

[Tatsuya Kinoshita <tats@iris.ne.jp>]

At 15 Apr 2002 22:17:35 +0100,
Jason Rumney <jasonr@gnu.org> wrote:

> Dave Love had some success. He posted his patches to
> gnu.emacs.sources and the mule@m17n.org mailing list on 29 March.
> You even followed that up with a comment about Mule-UCS no longer
> seeming to be maintained.

I know that.  Debian's mule-ucs 0.84-10 applied the Dave Love's
patch, mule@m17n.org: 03279, on 29 Mar 2002.

However, it fails on Emacs 20 and XEmacs.  mule-ucs 0.84-11 has
fixed this problem.

I've found a small bug fix in mule-ucs 0.84-11.  See the
following patch:

---- 
--- mule-ucs-0.84-10/lisp/un-define.el	Tue Apr 16 09:47:40 2002
+++ mule-ucs-0.84-11/lisp/un-define.el	Tue Apr 16 09:47:54 2002
@@ -618,13 +618,13 @@
         (mucs-define-coding-system
          (car x) (nth 1 y) (nth 2 y)
          (nth 3 y) (nth 4 y) (nth 5 y)))
-     (mapcar
-      (lambda (y)
+    (mapcar
+     (lambda (y)
        (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)))))
-     (cdr x)))
+	(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))))
+     (cdr x))))
   `((utf-8
      (utf-8-unix
       ?u "UTF-8 coding system"
---- 

-- 
Tatsuya Kinoshita