From eeb46cb8eaf87b9c031cef768c84c32cca2c2e28 Mon Sep 17 00:00:00 2001
From: tsuchiya <tsuchiya>
Date: Thu, 12 Sep 2002 14:26:16 +0000
Subject: [PATCH] (toplevel) [XEmacs]: Changed the expressiont to define
 `emacs-mule' coding system in order to avoid byte-compile
 error.

---
 lisp/nnheader.el |   32 ++++++++++++++++----------------
 1 file changed, 16 insertions(+), 16 deletions(-)

diff --git a/lisp/nnheader.el b/lisp/nnheader.el
index 7f271f8..e50e941 100644
--- a/lisp/nnheader.el
+++ b/lisp/nnheader.el
@@ -109,22 +109,22 @@ This variable is a substitute for `mm-text-coding-system'.")
 This variable is a substitute for `mm-text-coding-system-for-write'.")
 
 ;; Define `emacs-mule' coding system for XEmacs.
-(and
- (featurep 'xemacs)
- (featurep 'mule)
- (not (find-coding-system 'emacs-mule))
- (let ((ccl (if (fboundp 'ccl-compile-write-multibyte-character)
-		'(1
-		  (loop
-		   (read-multibyte-character r0 r1)
-		   (write-multibyte-character r0 r1)
-		   (repeat)))
-	      '(1 (loop (read r0) (write-repeat r0))))))
-   (define-ccl-program emacs-mule-codec ccl)
-   (make-coding-system 'emacs-mule 'ccl
-		       "FSF Emacs internal format used in buffer and string."
-		       '(decode emacs-mule-codec
-			 encode emacs-mule-codec))))
+(when (and
+       (featurep 'xemacs)
+       (featurep 'mule)
+       (not (find-coding-system 'emacs-mule)))
+  (define-ccl-program emacs-mule-codec
+    (if (fboundp 'ccl-compile-write-multibyte-character)
+	'(1
+	  (loop
+	   (read-multibyte-character r0 r1)
+	   (write-multibyte-character r0 r1)
+	   (repeat)))
+      '(1 (loop (read r0) (write-repeat r0)))))
+  (make-coding-system 'emacs-mule 'ccl
+		      "FSF Emacs internal format used in buffer and string."
+		      '(decode emacs-mule-codec
+			encode emacs-mule-codec)))
 
 (defvar nnheader-auto-save-coding-system
   (cond
-- 
1.7.10.4