emacs-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: Tatsuya Kinoshita
Subject: Mule-UCS (was: How to add some more charsets to mew?)
Date: Tue, 16 Apr 2002 10:15:09 +0900 (JST)

At 15 Apr 2002 22:17:35 +0100,
Jason Rumney <address@hidden> wrote:

> Dave Love had some success. He posted his patches to
> gnu.emacs.sources and the address@hidden 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, address@hidden: 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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]