--- po-mode.el.orig	Thu Jun 14 11:09:03 2001
+++ po-mode.el	Fri Jun 22 13:13:27 2001
@@ -697,9 +697,8 @@
 ;;; Mode activation.
 
 (eval-and-compile
-  (if po-EMACS20
-
-      (defun po-find-file-coding-system (arg-list)
+  (if (or po-EMACS20 po-XEMACS)
+      (defun po-find-file-coding-system-backend (arg-list)
 	"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 (car arg-list) 'insert-file-contents)
@@ -719,9 +718,18 @@
 				 (if (memq charset-lower (coding-system-list))
 				     charset-lower
 				   'no-conversion))))
-		   '(no-conversion))))))
+		   '(no-conversion)))))))
+
+  (cond
+   (po-EMACS20
+      (define-function 'po-find-file-coding-system 'po-find-file-coding-system-backend))
 
-    ))
+   (po-XEMACS
+      (defun po-find-file-coding-system (operation filename)
+	"Return a Mule (DECODING . ENCODING) pair, according to PO file charset.
+Called through file-coding-system-alist, before the file is visited for real."
+	(po-find-file-coding-system-backend (list operation filename))))
+   ))
 
 (defvar po-mode-map nil
   "Keymap for PO mode.")