pkg/38180: codepage-setup is broken in emacs20

[uwe%NetBSD.org@localhost]

>Number:         38180
>Category:       pkg
>Synopsis:       codepage-setup is broken in emacs20
>Confidential:   no
>Severity:       non-critical
>Priority:       medium
>Responsible:    pkg-manager
>State:          open
>Class:          sw-bug
>Submitter-Id:   net
>Arrival-Date:   Thu Mar 06 08:55:00 +0000 2008
>Originator:     Valeriy E. Ushakov
>Release:        NetBSD-4.0
>Organization:
>Environment:
NetBSD bigmac 4.0_STABLE NetBSD 4.0_STABLE (BIGMAC4) #1: Fri Feb  1 06:31:56 
MSK 2008  
toor@bigmac:/export/netbsd/cvs/src-release-4/sys/arch/macppc/compile/BIGMAC4 
macppc
>Description:
I'm still using emacs20 and as I need access to different encodings
for Cyrillic I have (codepage-setup 1251) in my ~/.emacs to define
windows cp1251 (cyrillic) coding system.

When emacs starts up and reads ~/.emacs there's an error:

Error in init file: error: "Invalid code points: 32 32"

>How-To-Repeat:
Evaluate

  (codepage-setup 1251)

you will get the error:

  Invalid code points: 32 32
>Fix:
The patch below fixes it for me.  I've been running with this patch
for quite some time (as the date in the diff shows).

If this patch is added to 'patches' the elc file needs to be recompiled
and elc file added to 'files' and dropped into the tree in post-patch
or something.  My pkgsrc fu is really weak, so I'm just providing the
source patch and let pkgsrc folks integrate it properly.

--- lisp/international/codepage.el.orig 1999-05-02 13:46:56.000000000 +0400
+++ lisp/international/codepage.el      2006-09-14 19:06:49.000000000 +0400
@@ -527,7 +527,7 @@
                   ??))
          (charsets (delq 'ascii (delq iso-name
                                       (copy-sequence charset-list))))
-         (wide-column-char (make-char 'japanese-jisx0208 32 32)))
+         (wide-column-char (make-char 'japanese-jisx0208 33 33)))
       (while charsets
        (aset tbl (make-char (car charsets))
              (if (= (charset-width (car charsets)) 1) undef wide-column-char))