From e0013d90a5e4a6173ad705d21465ac1a1016b532 Mon Sep 17 00:00:00 2001 From: tsuchiya Date: Fri, 13 Sep 2002 06:09:18 +0000 Subject: [PATCH] (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. --- ChangeLog | 6 ++++++ lisp/nnheader.el | 18 ------------------ 2 files changed, 6 insertions(+), 18 deletions(-) diff --git a/ChangeLog b/ChangeLog index e2bde96..1466d8b 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2002-09-13 TSUCHIYA Masatoshi + + * 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 * 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*) -- 1.7.10.4