From bea51dfdc1720d284e69ddfe8a5fa0cf7e9256ac Mon Sep 17 00:00:00 2001 From: tsuchiya Date: Thu, 12 Sep 2002 08:34:39 +0000 Subject: [PATCH] (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. --- ChangeLog | 13 +++++++++++-- lisp/nnheader.el | 20 +++++++++++++++++++- 2 files changed, 30 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index 0d4896f..e2bde96 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,9 +1,18 @@ +2002-09-12 TSUCHIYA Masatoshi + + * 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 * 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 * 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 * lisp/gnus-vers.el (gnus-revision-number): Increment to 01. diff --git a/lisp/nnheader.el b/lisp/nnheader.el index e9fc870..7f271f8 100644 --- 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)) -- 1.7.10.4