From ccf2f64b0078cae63454ee0f742ee638c9c2bbaa Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 9 Mar 1998 16:00:18 +0000 Subject: [PATCH] tm 7.46. --- ChangeLog | 33 +++++++++++++++++++++++++++++++++ Makefile | 2 +- emu-nemacs.el | 39 ++++++++++++++++++++++++++++++--------- 3 files changed, 64 insertions(+), 10 deletions(-) diff --git a/ChangeLog b/ChangeLog index c0db5e0..31585c6 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,36 @@ +Wed Feb 28 13:26:26 1996 Morioka Tomohiko + + * tl: Version 7.13 was released. + +Wed Feb 27 19:37:46 1996 Shuhei KOBAYASHI + + * mk-tl: Add `mu-bbdb.el' to module list. + + * mu-bbdb.el: New file. + + * mu-cite.el: (mu-cite/get-field-value-method-alist), + (mu-cite/get-field-value): Typo fixed. + (mu-cite/get-citation-name): Changed to function. + (mu-cite/add-citation-name): New implementation. + (mu-cite/save-to-file): Add sore comments. + (mu-cite/get-prefix-register-method), + (mu-cite/get-prefix-register-verbose-method): Use 'x-attribution. + (mu-cite/default-methods-alist): Method `'x-attribution' was added. + (replace-top-string): New implementation. + +Tue Feb 27 17:50:41 1996 Morioka Tomohiko + + * emu-nemacs.el (*noconv*): New constant. + (*sjis*): New constant. + (code-detect-region): New function. + (set-file-coding-system): New function. + + * emu-orig.el (code-detect-region): New function. + (set-file-coding-system): New function. + + * emu-orig.el (*noconv*): New constant. + + Mon Feb 26 01:14:28 1996 Morioka Tomohiko * tl: Version 7.11.3 was released. diff --git a/Makefile b/Makefile index b7f102a..2e00839 100644 --- a/Makefile +++ b/Makefile @@ -20,7 +20,7 @@ TLDIR19 = $(HOME)/lib/emacs19/lisp FILES = tl/README.eng tl/Makefile tl/mk-tl tl/*.el tl/doc/*.texi \ tl/ChangeLog -TARFILE = tl-7.11.3.tar +TARFILE = tl-7.13.tar elc: diff --git a/emu-nemacs.el b/emu-nemacs.el index 52b7e5b..e8d2847 100644 --- a/emu-nemacs.el +++ b/emu-nemacs.el @@ -2,12 +2,12 @@ ;;; emu-nemacs.el --- Mule 2 emulation module for NEmacs ;;; ;;; Copyright (C) 1995 Free Software Foundation, Inc. -;;; Copyright (C) 1994 .. 1996 MORIOKA Tomohiko +;;; Copyright (C) 1993 .. 1996 MORIOKA Tomohiko ;;; ;;; Author: MORIOKA Tomohiko ;;; modified by KOBAYASHI Shuhei ;;; Version: -;;; $Id: emu-nemacs.el,v 7.4 1996/01/25 02:11:31 morioka Exp $ +;;; $Id: emu-nemacs.el,v 7.7 1996/02/27 17:50:41 morioka Exp $ ;;; Keywords: emulation, compatibility, NEmacs, Mule ;;; ;;; This file is part of tl (Tiny Library). @@ -56,9 +56,11 @@ ;;; @ coding-system ;;; -(defconst *junet* 2) -(defconst *ctext* 2) -(defconst *internal* 3) +(defconst *noconv* 0) +(defconst *sjis* 1) +(defconst *junet* 2) +(defconst *ctext* 2) +(defconst *internal* 3) (defconst *euc-japan* 3) (defun code-convert-string (str ic oc) @@ -76,24 +78,39 @@ else returns nil. [emu-nemacs.el; Mule emulating function]" (if (not (eq ic oc)) (convert-region-kanji-code beg end ic oc))) +(defun code-detect-region (start end) + "Detect coding-system of the text in the region between START and END. +\[emu-orig.el; Mule emulating function]" + (if (save-excursion + (save-restriction + (narrow-to-region start end) + (goto-char start) + (re-search-forward "[\200-\377]" nil t) + )) + *euc-japan* + )) + +(defun set-file-coding-system (coding-system &optional force) + (set-kanji-fileio-code coding-system) + ) + ;;; @ character and string ;;; (defun char-bytes (chr) "Return number of bytes CHAR will occupy in a buffer. - [Mule compatible function in tm-nemacs]" +\[Mule compatible function in tm-nemacs]" (if (< chr 128) 1 2)) (defun char-width (chr) "Return number of columns CHAR will occupy when displayed. - [Mule compatible function in tm-nemacs]" +\[Mule compatible function in tm-nemacs]" (if (< chr 128) 1 2)) -;; by mol. 1993/9/26 (defun string-width (str) "Return number of columns STRING will occupy. - [Mule compatible function in tm-nemacs]" +\[Mule compatible function in tm-nemacs]" (length str)) (defun string-to-char-list (str) @@ -111,11 +128,15 @@ else returns nil. [emu-nemacs.el; Mule emulating function]" )) (defun find-charset-string (str) + "Return a list of leading-chars in the string. +\[emu-nemacs.el; Mule emulating function]" (if (string-match "[\200-\377]" str) (list lc-jp) )) (defun find-charset-region (start end) + "Return a list of leading-chars in the region between START and END. +\[emu-nemacs.el; Mule emulating function]" (if (save-excursion (save-restriction (narrow-to-region start end) -- 1.7.10.4