(toplevel) [XEmacs]: Changed the expressiont to define `emacs-mule'

coding system in order to avoid byte-compile error.

diff --git a/lisp/nnheader.el b/lisp/nnheader.el
index 7f271f8..e50e941 100644 (file)
--- 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