From: tsuchiya <tsuchiya>
Date: Thu, 12 Sep 2002 14:26:16 +0000 (+0000)
Subject: (toplevel) [XEmacs]: Changed the expressiont to define `emacs-mule'
X-Git-Tag: t-gnus-6_15_8-04-quimby~44
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=eeb46cb8eaf87b9c031cef768c84c32cca2c2e28;p=elisp%2Fgnus.git-

(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
--- 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