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.
_______________________________________________
emacs-pretest-bug mailing list
emacs-pretest-bug@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-pretest-bug
