From: Eli Zaretskii Date: Fri, 15 Mar 2002 19:30:36 +0000 (+0000) Subject: (po-find-file-coding-system-guts): Use X-Git-Tag: ttn-vms-21-2-B4~16151 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2ca514455eb9fce8ade9c23d5bcc5bbc69bdb9fd;p=emacs.git (po-find-file-coding-system-guts): Use with-temp-buffer instead of po-with-temp-buffer. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index eb7ad60d3ce..dcdb805651f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2002-03-15 Eli Zaretskii + * textmodes/po.el (po-find-file-coding-system-guts): Use + with-temp-buffer instead of po-with-temp-buffer. + * international/mule-conf.el (file-coding-system-alist): Add an association for PO files. diff --git a/lisp/textmodes/po.el b/lisp/textmodes/po.el index d65eb3b6bc9..30a188cf688 100644 --- a/lisp/textmodes/po.el +++ b/lisp/textmodes/po.el @@ -149,7 +149,7 @@ Return a Mule (DECODING . ENCODING) pair, according to PO file charset. Called through file-coding-system-alist, before the file is visited for real." (and (eq operation 'insert-file-contents) (file-exists-p filename) - (po-with-temp-buffer + (with-temp-buffer (let* ((coding-system-for-read 'no-conversion) (charset (or (po-find-charset filename) "ascii")) (charset-upper (intern (upcase charset)))