Browse files

tm 7.102.

  • Loading branch information...
1 parent 2211013 commit 417148e3970770a9782143faf3fa4fa08544ade0 morioka committed Mar 11, 1998
Showing with 39 additions and 47 deletions.
  1. +6 −1 emu-e19.el
  2. +12 −41 emu-e20.el
  3. +9 −2 emu-mule.el
  4. +8 −3 emu-nemacs.el
  5. +4 −0 emu-x20.el
View
7 emu-e19.el
@@ -1,6 +1,6 @@
;;; 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$
@@ -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
;;;
View
53 emu-e20.el
@@ -1,4 +1,4 @@
-;;; 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.
@@ -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 (<= ?$B#A(B chr)(<= chr ?$B#Z(B))
-;; (+ (- chr ?$B#A(B) ?A)
-;; )
-;; ((and (<= ?$B#a(B chr)(<= chr ?$B#z(B))
-;; (+ (- chr ?$B#a(B) ?a)
-;; )
-;; ((eq chr ?$B!%(B) ?.)
-;; ((eq chr ?$B!$(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
;;;
View
11 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$
;; 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)
View
11 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$
;; 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
;;;
View
4 emu-x20.el
@@ -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
;;;

0 comments on commit 417148e

Please sign in to comment.