code-pages.el - Problem with encoding

[Benjamin Riefenstahl]

This bug report will be sent to the Free Software Foundation,
not to your local site managers!
Please write in English if possible, because the Emacs maintainers
usually do not have translators to read other languages for them.

Your bug report will be posted to the address@hidden mailing list.

Please describe exactly what actions triggered the bug
and the precise symptoms of the bug:


Current CVS version of cp-make-coding-system in code-pages.el doesn't
encode the ASCII range.  For a test try this code:

  (require 'code-pages)
  (encode-coding-string "abcd" 'cp850)
  => "????"

The attached patch fixes the problem. 

Additional note 1: We had a very similar problem lately with the
mac-roman coding system.  Is there some example or template that these
CCL scripts are derived from, that has this problem?

Additional note 2: code-pages.elc takes a long time to load.  Could we
split it into individual files or even autoload coding-systems?

2003-01-08  Benjamin Riefenstahl  <address@hidden>

        * code-pages.el (cp-make-coding-system): Add check for ascii
          in the encoding CCL script.

txtrFFZ0z2SWx.txt
Description: Text document

In GNU Emacs 21.3.50.2 (powerpc-apple-darwin6.3)
 of 2003-01-03 on octavian.benny.turtle-trading.net
configured using `configure '--without-x' '--with-carbon''

Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: en_US
  locale-coding-system: iso-latin-1
  default-enable-multibyte-characters: t

Recent input:
<left> <left> <left> <left> <left> <left> <left> <return> 
<S-kp-end> a b c A B C C-x c C-x <return> c <return> 
C-x C-s C-x k C-x <return> c <up> <return> <return> 
M-x d e s c r i b e - C-g C-g M-x C-g C-g C-h v b u 
f f e r - f i e <backspace> l e <tab> c o <tab> <return> 
<S-escape> <down> <down> <return> C-x 1 C-x v l <kp-prior> 
<kp-next> <kp-prior> C-x o C-x v = <kp-next> <C-kp-home> 
<C-S-kp-end> <C-kp-insert> <C-kp-insert> M-x r e p 
o r t - e m <tab> <return>

Recent messages:
Loading pp...done
Type C-x 1 to remove help window.  C-M-v to scroll the help.
Commands: d, s, x, u; f, o, 1, 2, m, v; ~, %; q to quit; ? for help.
Loading vc...done
Running cvs in the background...
Loading log-view...done
Running cvs in the background... done
Running cvs in the background... done
Mark set [2 times]
Loading emacsbug...done