Fix last patch.

diff --git a/misc/ChangeLog b/misc/ChangeLog
index 817133c98ddc29d4cb8f94a2733ebb5bec2a1159..4433f632b5f2a07a4f4f0f374b029b8a4463cf55 100644 (file)
--- a/misc/ChangeLog
+++ b/misc/ChangeLog
@@ -1,7 +1,14 @@
+2002-03-11  Karl Eichwalder  <ke@suse.de>
+
+       * po-mode.el (po-find-file-coding-system-guts): Checking
+       'insert-file-contents' must come first to avoid messing up with
+       arguments.
+       Reported by Neil Darlow; fixed by Andreas Schwab.
+
 2002-03-09  Karl Eichwalder  <ke@suse.de>
 
        * po-mode.el (po-find-file-coding-system-guts): Don't try to
-       detect the coding system when filename does not exists.
+       detect the coding system when filename does not exist.
        (po-compute-counters): Search for "^msgid" not 'po-next-entry' if
        we don't know for sure any entry will follow at all.
 

diff --git a/misc/po-mode.el b/misc/po-mode.el
index 6d4f2be182453f1131aa567cb5beaef9ca225e9a..b67bb0eed2516a0c330e8f5da2c559b161543d1d 100644 (file)
--- a/misc/po-mode.el
+++ b/misc/po-mode.el
@@ -964,8 +964,8 @@ Content-Type into a Mule coding system.")
        "\
 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 (file-exists-p filename)
-            (eq operation 'insert-file-contents)
+       (and (eq operation 'insert-file-contents)
+            (file-exists-p filename)
             (po-with-temp-buffer
               (let ((coding-system-for-read 'no-conversion))
                  (let* ((charset (or (po-find-charset filename)