From 8f7bd1a7a8dc60010d49ed35477474e0f88b8c34 Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 9 Mar 1998 19:27:22 +0000 Subject: [PATCH] tm 7.69. --- ChangeLog | 45 +++++++++++++++++++++++++++++++++++++++++++++ Makefile | 2 +- emu-e19.el | 7 ++++++- emu-mule.el | 54 +++++++++++++++++++++++++++++++++++++++++++++++++++--- emu-nemacs.el | 11 ++++++++++- emu-x20.el | 10 ++++++++-- 6 files changed, 121 insertions(+), 8 deletions(-) diff --git a/ChangeLog b/ChangeLog index 6b315bb..3651ea3 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,48 @@ +Thu Jun 27 17:29:23 1996 MORIOKA Tomohiko + + * tl: Version 7.31 was released. + + * mu-cite.el (mu-cite/make-methods): run-hooks + `mu-cite/instantiation-hook'. + +Wed Jun 26 15:33:39 1996 MORIOKA Tomohiko + + * emu-mule.el (character-decode-string): New implementation. + +Wed Jun 26 08:41:17 1996 MORIOKA Tomohiko + + * emu-x20.el (code-converter-is-broken): XEmacs 20.0 beta 26 is + broken too. + + * emu-mule.el, emu-e19.el, emu-nemacs.el, emu-x20.el + (as-binary-process): New macro. + +Wed Jun 19 23:24:56 1996 Shuhei KOBAYASHI + + * mu-cite.el: NISHIJIMA Takanori + 's patch was applied with + some modifications. (cf. [tm-ja:1935]) + +Mon Jun 17 23:49:48 1996 MORIOKA Tomohiko + + * emu-mule.el (regulate-latin-char, regulate-latin-string): New + function. + +Mon Jun 17 23:47:19 1996 MORIOKA Tomohiko + + * tl-822.el (rfc822/qtext-regexp, rfc822/quoted-string-regexp): + new constant; define again. + +Thu Jun 13 17:13:13 1996 MORIOKA Tomohiko + + * tl-822.el: Variable `rfc822/qtext-regexp' and + `rfc822/quoted-string-regexp' were abolished. + + * tl-822.el: Function `rfc822/analyze-quoted-pair' was abolished. + + * tl-822.el (rfc822/analyze-quoted-string): New implementation. + + Wed Jun 12 05:28:42 1996 MORIOKA Tomohiko * tl: Version 7.30 was released. diff --git a/Makefile b/Makefile index b8a3677..573b217 100644 --- a/Makefile +++ b/Makefile @@ -21,7 +21,7 @@ FILES = tl/README.en tl/Makefile tl/mk-tl tl/tl-els \ tl/*.el tl/*.bdf \ tl/doc/*.ol tl/doc/*.tex tl/doc/*.texi tl/ChangeLog -TARFILE = tl-7.30.tar +TARFILE = tl-7.31.tar elc: diff --git a/emu-e19.el b/emu-e19.el index 7793241..d3a0e09 100644 --- a/emu-e19.el +++ b/emu-e19.el @@ -6,7 +6,7 @@ ;;; ;;; Author: MORIOKA Tomohiko ;;; Version: -;;; $Id: emu-e19.el,v 7.21 1996/06/10 07:34:46 morioka Exp $ +;;; $Id: emu-e19.el,v 7.22 1996/06/26 08:27:20 morioka Exp $ ;;; Keywords: emulation, compatibility, Mule, Latin-1 ;;; ;;; This file is part of tl (Tiny Library). @@ -137,6 +137,11 @@ between START and END. [emu-e19.el; Mule emulating function]" (defun set-file-coding-system (coding-system &optional force) ) +(defmacro as-binary-process (&rest body) + (` (let (selective-display) ; Disable ^M to nl translation. + (,@ body) + ))) + ;;; @ character ;;; diff --git a/emu-mule.el b/emu-mule.el index b8ea85e..7782a4a 100644 --- a/emu-mule.el +++ b/emu-mule.el @@ -6,7 +6,7 @@ ;;; ;;; Author: MORIOKA Tomohiko ;;; Version: -;;; $Id: emu-mule.el,v 7.22 1996/06/10 07:32:52 morioka Exp $ +;;; $Id: emu-mule.el,v 7.25 1996/06/26 15:33:39 morioka Exp $ ;;; Keywords: emulation, compatibility, Mule ;;; ;;; This file is part of tl (Tiny Library). @@ -112,8 +112,19 @@ (defun character-decode-string (str coding-system) "Decode the string STR which is encoded in CODING-SYSTEM. \[emu-mule.el]" - (code-convert-string str coding-system *internal*) - ) + (let ((len (length str)) + ret) + (while (and + (< 0 len) + (null + (setq ret + (code-convert-string (substring str 0 len) + coding-system *internal*)) + )) + (setq len (1- len)) + ) + (concat ret (substring str len)) + )) (defun character-encode-region (start end coding-system) "Encode the text between START and END which is @@ -127,6 +138,15 @@ encoded in CODING-SYSTEM. [emu-mule.el]" (code-convert start end coding-system *internal*) ) +(defmacro as-binary-process (&rest body) + (` (let (selective-display ; Disable ^M to nl translation. + ;; Mule + mc-flag + (default-process-coding-system (cons *noconv* *noconv*)) + program-coding-system-alist) + (,@ body) + ))) + ;;; @ character ;;; @@ -180,6 +200,34 @@ Optional non-nil arg START-COLUMN specifies the starting column. ) +;;; @ 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-nemacs.el b/emu-nemacs.el index 23f58f2..c200e9d 100644 --- a/emu-nemacs.el +++ b/emu-nemacs.el @@ -7,7 +7,7 @@ ;;; Author: MORIOKA Tomohiko ;;; modified by KOBAYASHI Shuhei ;;; Version: -;;; $Id: emu-nemacs.el,v 7.30 1996/06/10 07:31:34 morioka Exp $ +;;; $Id: emu-nemacs.el,v 7.31 1996/06/26 08:25:19 morioka Exp $ ;;; Keywords: emulation, compatibility, NEmacs, Mule ;;; ;;; This file is part of tl (Tiny Library). @@ -173,6 +173,15 @@ else returns nil. [emu-nemacs.el; Mule emulating function]" (set-kanji-fileio-code coding-system) ) +(defmacro as-binary-process (&rest body) + (` (let (selective-display ; Disable ^M to nl translation. + ;; NEmacs + kanji-flag + (default-kanji-process-code 0) + program-kanji-code-alist) + (,@ body) + ))) + ;;; @ character ;;; diff --git a/emu-x20.el b/emu-x20.el index 142f0e4..e8187de 100644 --- a/emu-x20.el +++ b/emu-x20.el @@ -6,7 +6,7 @@ ;;; ;;; Author: MORIOKA Tomohiko ;;; Version: -;;; $Id: emu-x20.el,v 7.15 1996/06/10 07:59:23 morioka Exp $ +;;; $Id: emu-x20.el,v 7.17 1996/06/26 08:41:17 morioka Exp $ ;;; Keywords: emulation, compatibility, Mule, XEmacs ;;; ;;; This file is part of tl (Tiny Library). @@ -118,7 +118,7 @@ in the region between START and END. (defconst *koi8* nil) (defvar code-converter-is-broken - (and xemacs-beta-version (<= xemacs-beta-version 24))) + (and xemacs-beta-version (<= xemacs-beta-version 26))) (if code-converter-is-broken (progn @@ -158,6 +158,12 @@ in the region between START and END. (defalias 'character-encode-region 'encode-coding-region) (defalias 'character-decode-region 'decode-coding-region) +(defmacro as-binary-process (&rest body) + `(let (selective-display ; Disable ^M to nl translation. + process-input-coding-system + process-output-coding-system) + ,@body)) + ;;; @ character ;;; -- 1.7.10.4