aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/ChangeLog3
-rw-r--r--lisp/textmodes/po.el2
2 files changed, 4 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index eb7ad60d3ce..dcdb805651f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
12002-03-15 Eli Zaretskii <eliz@is.elta.co.il> 12002-03-15 Eli Zaretskii <eliz@is.elta.co.il>
2 2
3 * textmodes/po.el (po-find-file-coding-system-guts): Use
4 with-temp-buffer instead of po-with-temp-buffer.
5
3 * international/mule-conf.el (file-coding-system-alist): Add an 6 * international/mule-conf.el (file-coding-system-alist): Add an
4 association for PO files. 7 association for PO files.
5 8
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.
149Called through file-coding-system-alist, before the file is visited for real." 149Called through file-coding-system-alist, before the file is visited for real."
150 (and (eq operation 'insert-file-contents) 150 (and (eq operation 'insert-file-contents)
151 (file-exists-p filename) 151 (file-exists-p filename)
152 (po-with-temp-buffer 152 (with-temp-buffer
153 (let* ((coding-system-for-read 'no-conversion) 153 (let* ((coding-system-for-read 'no-conversion)
154 (charset (or (po-find-charset filename) "ascii")) 154 (charset (or (po-find-charset filename) "ascii"))
155 (charset-upper (intern (upcase charset))) 155 (charset-upper (intern (upcase charset)))