From 90163b969fa600bbba4264aad36ceb474d1233b1 Mon Sep 17 00:00:00 2001 From: morioka Date: Wed, 11 Mar 1998 12:30:02 +0000 Subject: [PATCH] tm 7.102. --- emu-e19.el | 9 +++++++-- emu-e20.el | 55 +++++++++++++------------------------------------------ emu-mule.el | 13 ++++++++++--- emu-nemacs.el | 13 +++++++++---- emu-x20.el | 6 +++++- 5 files changed, 44 insertions(+), 52 deletions(-) diff --git a/emu-e19.el b/emu-e19.el index 378d66c..f658115 100644 --- 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 -;; 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 --- 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 -;; 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 (<= ?Ａ chr)(<= chr ?Ｚ)) -;; (+ (- chr ?Ａ) ?A) -;; ) -;; ((and (<= ?ａ chr)(<= chr ?ｚ)) -;; (+ (- chr ?ａ) ?a) -;; ) -;; ((eq chr ?．) ?.) -;; ((eq chr ?，) ?,) -;; (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 --- 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 -;; 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 --- 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 -;; 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 --- a/emu-x20.el +++ b/emu-x20.el @@ -3,7 +3,7 @@ ;; Copyright (C) 1994,1995,1996,1997 MORIOKA Tomohiko ;; Author: MORIOKA Tomohiko -;; 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 ;;; -- 1.7.10.4