pkg/30131: mule-ucs on Emacs20

[akiho%kawachi.zaq.ne.jp@localhost]

>Number:         30131
>Category:       pkg
>Synopsis:       mule-ucs on Emacs20
>Confidential:   no
>Severity:       serious
>Priority:       medium
>Responsible:    pkg-manager
>State:          open
>Class:          sw-bug
>Submitter-Id:   net
>Arrival-Date:   Wed May 04 13:18:00 +0000 2005
>Originator:     Tsuyoshi AKIHO
>Release:        NetBSD 2.0_STABLE
>Organization:
>Environment:
NetBSD filesv 2.0_STABLE NetBSD 2.0_STABLE (FILESV) #0: Sun May  1 02:18:37 JST 
2005  root@filesv:/usr/obj-i386/sys/arch/i386/compile/FILESV i386

>Description:
I couldn't install editors/mule-ucs with pkgsrc after installed editors/emacs20.

error output
==========
Compiling 2nd stage!!---
While compiling toplevel forms in file 
/usr/obj/pkg/editors/mule-ucs.orig/work/Mule-UCS-0.84/lisp/jisx0213/x0213-udef.el:
  !! Wrong number of arguments ((#<subr mapcar> 1))
==========

>How-To-Repeat:
With pkgsrc, first install editors/emacs20, next try to install 
editors/mule-ucs.

>Fix:
Wrong is position of ")" with editors/mule-ucs/patches/patch-aa. 

==========
--- editors/mule-ucs/patch-aa.orig      2003-03-14 10:26:41.000000000 +0900
+++ editors/mule-ucs/patches/patch-aa   2005-05-04 20:39:28.000000000 +0900
@@ -26,8 +26,8 @@
 +       (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)))
++       (coding-system-put (car y) 'alias-coding-systems (list (car x))))
++      (cdr x))))
    `((utf-8
       (utf-8-unix
        ?u "UTF-8 coding system"