tm 7.102.

diff --git a/emu-e19.el b/emu-e19.el
index 378d66c..f658115 100644 (file)
--- a/emu-e19.el
+++ b/emu-e19.el
@@ -1,9 +1,9 @@
 ;;; emu-e19.el --- emu module for Emacs 19 and XEmacs 19
 
-;; Copyright (C) 1995,1996 Free Software Foundation, Inc.
+;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc.
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Id: emu-e19.el,v 7.42 1996/12/10 14:41:46 morioka Exp $
+;; Version: $Id: emu-e19.el,v 7.43 1997/01/29 14:58:00 morioka Exp $
 ;; Keywords: emulation, compatibility, mule, Latin-1
 
 ;; This file is part of emu.
@@ -135,6 +135,11 @@
        (,@ body)
        )))
 
+(defmacro as-binary-output-file (&rest body)
+  (` (let ((emx-binary-mode t)) ; Stop CRLF to LF conversion in OS/2
+       (,@ body)
+       )))
+
 
 ;;; @@ for old MULE emulation
 ;;;

diff --git a/emu-e20.el b/emu-e20.el
index cdaf629..896ca34 100644 (file)
--- a/emu-e20.el
+++ b/emu-e20.el
@@ -1,9 +1,9 @@
-;;; emu-e20.el --- emu API implementation for Emacs/mule (19.34.91)
+;;; emu-e20.el --- emu API implementation for Emacs/mule (19.34.91-delta)
 
 ;; Copyright (C) 1996,1997 Free Software Foundation, Inc.
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Id: emu-e20.el,v 7.9 1997/01/18 09:35:35 morioka Exp $
+;; Version: $Id: emu-e20.el,v 7.11 1997/01/29 15:00:58 morioka Exp $
 ;; Keywords: emulation, compatibility, Mule
 
 ;; This file is part of emu.
@@ -80,6 +80,10 @@ in the region between START and END.
   `(let ((coding-system-for-read 'no-conversion))
      ,@body))
 
+(defmacro as-binary-output-file (&rest body)
+  `(let ((coding-system-for-write 'no-conversion))
+     ,@body))
+
 (defalias 'set-process-input-coding-system 'set-process-coding-system)
 
 
@@ -126,14 +130,11 @@ in the region between START and END.
 (defvar default-mime-charset 'x-ctext)
 
 (defvar mime-charset-coding-system-alist
-  '((x-ctext           . coding-system-ctext)
-    (hz-gb-2312                . coding-system-hz)
-    (cn-gb-2312                . coding-system-euc-china)
-    (gb2312            . coding-system-euc-china)
-    (cn-big5           . coding-system-big5)
-    (iso-2022-jp-2     . coding-system-iso-2022-ss2-7)
-    (iso-2022-int-1    . coding-system-iso-2022-int)
-    (shift_jis         . coding-system-sjis)
+  '((x-ctext           . ctext)
+    (gb2312            . cn-gb-2312)
+    (iso-2022-jp-2     . iso-2022-ss2-7)
+    (iso-2022-int-1    . iso-2022-int)
+    (shift_jis         . sjis)
     ))
 
 (defun mime-charset-to-coding-system (charset &optional lbt)
@@ -142,10 +143,8 @@ in the region between START and END.
     )
   (let ((cs
         (or (cdr (assq charset mime-charset-coding-system-alist))
-            (let ((cs (intern (concat "coding-system-"
-                                      (symbol-name charset)))))
-              (and (coding-system-p cs) cs)
-              ))))
+            (and (coding-system-p charset) charset)
+            )))
     (if lbt
        (intern (concat (symbol-name cs) "-" (symbol-name lbt)))
       cs)))
@@ -232,34 +231,6 @@ TABLE defaults to the current buffer's category table.
 (defalias 'string-to-int-list 'string-to-char-list)
 
 
-;;; @ regulation
-;;;
-
-;; (defun regulate-latin-char (chr)
-;;   (cond ((and (<= ?\e$B#A\e(B chr)(<= chr ?\e$B#Z\e(B))
-;;          (+ (- chr ?\e$B#A\e(B) ?A)
-;;          )
-;;         ((and (<= ?\e$B#a\e(B chr)(<= chr ?\e$B#z\e(B))
-;;          (+ (- chr ?\e$B#a\e(B) ?a)
-;;          )
-;;         ((eq chr ?\e$B!%\e(B) ?.)
-;;         ((eq chr ?\e$B!$\e(B) ?,)
-;;         (t chr)
-;;         ))
-
-;; (defun regulate-latin-string (str)
-;;   (let ((len (length str))
-;;         (i 0)
-;;         chr (dest ""))
-;;     (while (< i len)
-;;       (setq chr (sref str i))
-;;       (setq dest (concat dest
-;;                          (char-to-string (regulate-latin-char chr))))
-;;       (setq i (+ i (char-bytes chr)))
-;;       )
-;;     dest))
-
-
 ;;; @ end
 ;;;
 

diff --git a/emu-mule.el b/emu-mule.el
index 12ba4eb..ea8242e 100644 (file)
--- a/emu-mule.el
+++ b/emu-mule.el
@@ -1,12 +1,12 @@
 ;;; emu-mule.el --- emu module for Mule 1.* and Mule 2.*
 
-;; Copyright (C) 1995,1996 Free Software Foundation, Inc.
+;; Copyright (C) 1995,1996,1997 MORIOKA Tomohiko
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Id: emu-mule.el,v 7.58 1996/10/20 00:13:58 morioka Exp $
+;; Version: $Id: emu-mule.el,v 7.60 1997/01/29 15:48:26 morioka Exp $
 ;; Keywords: emulation, compatibility, Mule
 
-;; This file is part of tl (Tiny Library).
+;; This file is part of emu.
 
 ;; This program is free software; you can redistribute it and/or
 ;; modify it under the terms of the GNU General Public License as
@@ -114,6 +114,13 @@
        (,@ body)
        )))
 
+(defmacro as-binary-output-file (&rest body)
+  (` (let (mc-flag
+          (file-coding-system *noconv*)
+          )
+       (,@ body)
+       )))
+
 (defalias 'set-process-input-coding-system 'set-process-coding-system)
 
 

diff --git a/emu-nemacs.el b/emu-nemacs.el
index 5dfc04f..3605199 100644 (file)
--- a/emu-nemacs.el
+++ b/emu-nemacs.el
@@ -1,12 +1,12 @@
-;;; emu-nemacs.el --- Mule 2 emulation module for NEmacs
+;;; emu-nemacs.el --- emu API implementation for NEmacs
 
-;; Copyright (C) 1995,1996 Free Software Foundation, Inc.
+;; Copyright (C) 1995,1996,1997 MORIOKA Tomohiko
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Id: emu-nemacs.el,v 7.49 1996/10/01 13:26:34 morioka Exp $
+;; Version: $Id: emu-nemacs.el,v 7.50 1997/01/29 14:49:46 morioka Exp $
 ;; Keywords: emulation, compatibility, NEmacs, mule
 
-;; This file is part of tl (Tiny Library).
+;; This file is part of emu.
 
 ;; This program is free software; you can redistribute it and/or
 ;; modify it under the terms of the GNU General Public License as
@@ -175,6 +175,11 @@
        (,@ body)
        )))
 
+(defmacro as-binary-output-file (&rest body)
+  (` (let (kanji-flag)
+       (,@ body)
+       )))
+
 
 ;;; @@ for old MULE emulation
 ;;;

diff --git a/emu-x20.el b/emu-x20.el
index 3dfd4bd..a11259c 100644 (file)
--- a/emu-x20.el
+++ b/emu-x20.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 1994,1995,1996,1997 MORIOKA Tomohiko
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Id: emu-x20.el,v 7.45 1997/01/18 09:44:43 morioka Exp $
+;; Version: $Id: emu-x20.el,v 7.46 1997/01/29 15:02:16 morioka Exp $
 ;; Keywords: emulation, compatibility, Mule, XEmacs
 
 ;; This file is part of XEmacs.
@@ -57,6 +57,10 @@
   `(let ((file-coding-system-for-read 'no-conversion))
      ,@body))
 
+(defmacro as-binary-output-file (&rest body)
+  `(let ((file-coding-system 'no-conversion))
+     ,@body))
+
 
 ;;; @ MIME charset
 ;;;