(toplevel) [XEmacs]: Define `emacs-mule' coding

system in order to cancel difference on coding systems of
auto-saved files between FSF Emacs and XEmacs.
(nnheader-auto-save-coding-system) [Mule]: The default value of
Mule2 is changed from `*junet*' to `*internal*', in order to unify
coding system of files auto-saved by Mule2.

diff --git a/ChangeLog b/ChangeLog
index 0d4896f..e2bde96 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,9 +1,18 @@
+2002-09-12  TSUCHIYA Masatoshi  <tsuchiya@namazu.org>
+
+       * lisp/nnheader.el (toplevel) [XEmacs]: Define `emacs-mule' coding
+       system in order to cancel difference on coding systems of
+       auto-saved files between FSF Emacs and XEmacs.
+       (nnheader-auto-save-coding-system) [Mule]: The default value of
+       Mule2 is changed from `*junet*' to `*internal*', in order to unify
+       coding system of files auto-saved by Mule2.
+
 2002-09-08  Daiki Ueno  <ueno@unixuser.org>
 
        * lisp/gnus-msg.el (gnus-configure-posting-styles): Follow the
        change of arglist of gnus-configure-posting-style.
        (gnus-configure-posting-style): Check circular import.
-       
+
 2002-09-08  Daiki Ueno  <ueno@unixuser.org>
 
        * lisp/gnus-vers.el (gnus-revision-number): Increment to 03.
@@ -27,7 +36,7 @@
        (gnus-configure-posting-styles): Expand named entries in
        gnus-posting-styles.
        (gnus-summary-execute-command-with-posting-style): New command.
-       
+
 2002-09-06  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * lisp/gnus-vers.el (gnus-revision-number): Increment to 01.

diff --git a/lisp/nnheader.el b/lisp/nnheader.el
index e9fc870..7f271f8 100644 (file)
--- a/lisp/nnheader.el
+++ b/lisp/nnheader.el
@@ -108,9 +108,27 @@ 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.
+(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))))
+
 (defvar nnheader-auto-save-coding-system
   (cond
-   ((boundp 'MULE) '*junet*)
+   ((boundp 'MULE) '*internal*)
    ((not (fboundp 'find-coding-system)) nil)
    ((find-coding-system 'emacs-mule)
     (if (memq system-type '(windows-nt ms-dos ms-windows))