Re: Coding system of compressed PO files is not recognized

[Sven Joachim]

Kenichi Handa wrote:
> At last we reached an agreement on how to solve this
> problem, and I've just installed a fix.  Could you please
> try the latest CVS code?

Your changes work well in `emacs -Q'.  However, there is a bad
interference with the Elisp files from the GNU gettext distribution
which now signal an error:

Debugger entered--Lisp error: (wrong-type-argument stringp ("/home/sven/tmp/de.po" . 
#<buffer de.po.gz>))
  file-exists-p(("/home/sven/tmp/de.po" . #<buffer de.po.gz>))
  po-find-file-coding-system-guts(insert-file-contents ("/home/sven/tmp/de.po" . 
#<buffer de.po.gz>))
  po-find-file-coding-system((insert-file-contents ("/home/sven/tmp/de.po" . 
#<buffer de.po.gz>) t nil nil nil))
  find-operation-coding-system(insert-file-contents ("/home/sven/tmp/de.po" . 
#<buffer de.po.gz>) t nil nil nil)
  decode-coding-inserted-region(1 19361 "/home/sven/tmp/de.po" t nil nil nil)
  jka-compr-insert-file-contents("/home/sven/tmp/de.po.gz" t nil nil nil)
  apply(jka-compr-insert-file-contents ("/home/sven/tmp/de.po.gz" t nil nil 
nil))
  jka-compr-handler(insert-file-contents "/home/sven/tmp/de.po.gz" t nil nil 
nil)
  insert-file-contents("~/tmp/de.po.gz" t)
  byte-code("<snipped>" [inhibit-read-only filename t insert-file-contents] 3)
  find-file-noselect-1(#<buffer de.po.gz> "~/tmp/de.po.gz" nil nil 
"~/tmp/de.po.gz" (228066 780))
  find-file-noselect("~/tmp/de.po.gz" nil nil t)
  find-file("~/tmp/de.po.gz" t)
  call-interactively(find-file)

po-find-file-coding-system is a compiled Lisp function in `po-compat.el'.
(po-find-file-coding-system arg-list)

Return a Mule (DECODING . ENCODING) pair, according to PO file charset.
Called through file-coding-system-alist, before the file is visited for real.

The file `po-compat.el' is part of GNU gettext.