From: tsuchiya <tsuchiya>
Date: Fri, 13 Sep 2002 06:09:18 +0000 (+0000)
Subject: (toplevel) [XEmacs]: Remove code to define `emacs-mule' coding-system,
X-Git-Tag: t-gnus-6_15_8-04-quimby~43
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e0013d90a5e4a6173ad705d21465ac1a1016b532;p=elisp%2Fgnus.git-

(toplevel) [XEmacs]: Remove code to define `emacs-mule' coding-system,
because the generated coding system is not compatible to the original
coding system of FSF Emacs.
---

diff --git a/ChangeLog b/ChangeLog
index e2bde96..1466d8b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2002-09-13  TSUCHIYA Masatoshi  <tsuchiya@namazu.org>
+
+	* lisp/nnheader.el (toplevel) [XEmacs]: Remove code to define
+	`emacs-mule' coding-system, because the generated coding system is
+	not compatible to the original coding system of FSF Emacs.
+
 2002-09-12  TSUCHIYA Masatoshi  <tsuchiya@namazu.org>
 
 	* lisp/nnheader.el (toplevel) [XEmacs]: Define `emacs-mule' coding
diff --git a/lisp/nnheader.el b/lisp/nnheader.el
index e50e941..7290f6a 100644
--- a/lisp/nnheader.el
+++ b/lisp/nnheader.el
@@ -108,24 +108,6 @@ This variable is a substitute for `mm-text-coding-system'.")
   "Text coding system for write.
 This variable is a substitute for `mm-text-coding-system-for-write'.")
 
-;; Define `emacs-mule' coding system for XEmacs.
-(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
    ((boundp 'MULE) '*internal*)