(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 (file)
--- 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 (file)
--- 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*)