diff options
| -rw-r--r-- | lisp/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/textmodes/po.el | 2 |
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 @@ | |||
| 1 | 2002-03-15 Eli Zaretskii <eliz@is.elta.co.il> | 1 | 2002-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. | |||
| 149 | Called through file-coding-system-alist, before the file is visited for real." | 149 | Called 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))) |