149 |
Called through file-coding-system-alist, before the file is visited for real." |
Called through file-coding-system-alist, before the file is visited for real." |
150 |
(and (eq operation 'insert-file-contents) |
(and (eq operation 'insert-file-contents) |
151 |
(file-exists-p filename) |
(file-exists-p filename) |
152 |
(po-with-temp-buffer |
(with-temp-buffer |
153 |
(let* ((coding-system-for-read 'no-conversion) |
(let* ((coding-system-for-read 'no-conversion) |
154 |
(charset (or (po-find-charset filename) "ascii")) |
(charset (or (po-find-charset filename) "ascii")) |
155 |
(charset-upper (intern (upcase charset))) |
(charset-upper (intern (upcase charset))) |