+Mon Apr 29 06:30:47 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tl: Version 7.22.1 was released.
+
+Sun Apr 28 16:53:05 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * emu-x20.el (find-charset-string, find-charset-region): don't
+ include ascii.
+
+Sat Apr 27 19:08:03 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * emu-x20.el (lc-ascii, lc-ltn1, lc-ltn2, lc-ltn3, lc-ltn4,
+ lc-crl, lc-arb, lc-grk, lc-hbw, lc-ltn5, lc-jp, lc-jp2, lc-kr,
+ lc-big5-1, lc-big5-2, lc-cn, lc-cns1, lc-cns2, lc-cns3, lc-cns4,
+ lc-cns5, lc-cns6, lc-cns7): New constant.
+
+Sat Apr 27 15:43:06 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * bitmap.el (bitmap-show-xbm): `j' should be defined as local
+ variable.
+
+ * tl-els: add emu-x20.el.
+
+Sat Apr 27 15:25:33 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * emu.el: require emu-x20 if running XEmacs 20 with Mule feature.
+
+Sat Apr 27 15:24:00 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * emu-x20.el: New module for XEmacs 20 with Mule.
+
+Sat Apr 27 13:48:55 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * emu-e19.el (decode-coding-region): New function.
+ (encode-coding-region): New function.
+ (decode-coding-string): New function.
+ (encode-coding-string): New function.
+
+Sat Apr 27 13:36:32 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * emu-nemacs.el (decode-coding-region): New function.
+ (encode-coding-region): New function.
+ (decode-coding-string): New function.
+ (encode-coding-string): New function.
+
+ * emu-nemacs.el: KOBAYASHI Shuhei's address was changed.
+
+Sat Apr 27 13:27:06 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * emu-mule.el (decode-coding-region): New function.
+ (encode-coding-region): New function.
+ (decode-coding-string): New function.
+ (encode-coding-string): New function.
+
+ * tl-els: emu-19.el was renamed to `emu-e19.el'.
+
+ * emu-mule.el (fontset-pixel-size): New implementation.
+
+Sat Apr 27 11:21:45 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * emu.el, emu-e19.el: emu-orig.el was renamed to `emu-e19.el'.
+
+ * emu-nemacs.el, emu-e19.el: Alias `get-lc' was abolished.
+
+ * emu-mule.el: Function `get-lc' was abolished.
+
+\f
Fri Apr 26 05:28:30 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
* tl: Version 7.22 was released.
tl/*.el tl/*.bdf \
tl/doc/*.texi tl/ChangeLog
-TARFILE = tl-7.22.tar
+TARFILE = tl-7.22.1.tar
elc:
--- /dev/null
+;;;
+;;; emu-e19.el --- Mule 2 emulation module for Emacs 19 and XEmacs 19
+;;;
+;;; Copyright (C) 1995 Free Software Foundation, Inc.
+;;; Copyright (C) 1994 .. 1996 MORIOKA Tomohiko
+;;;
+;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;;; Version:
+;;; $Id: emu-e19.el,v 7.10 1996/04/27 13:48:55 morioka Exp $
+;;; Keywords: emulation, compatibility, Mule
+;;;
+;;; This file is part of tl (Tiny Library).
+;;;
+;;; This program is free software; you can redistribute it and/or
+;;; modify it under the terms of the GNU General Public License as
+;;; published by the Free Software Foundation; either version 2, or
+;;; (at your option) any later version.
+;;;
+;;; This program is distributed in the hope that it will be useful,
+;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+;;; General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with This program. If not, write to the Free Software
+;;; Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+;;;
+;;; Code:
+
+;;; @ character set
+;;;
+
+(defconst lc-ascii 0)
+(defconst lc-ltn1 129)
+
+(defun char-charset (chr)
+ "Return the character set of char CHR.
+\[emu-e19.el; XEmacs 20 emulating function]"
+ (if (< chr 128)
+ lc-ascii
+ lc-ltn1))
+
+(defalias 'char-leading-char 'char-charset)
+
+(defun find-charset-string (str)
+ "Return a list of leading-chars in the string.
+\[emu-e19.el; Mule emulating function]"
+ (if (string-match "[\200-\377]" str)
+ (list lc-ltn1)
+ ))
+
+(defun find-charset-region (start end)
+ "Return a list of leading-chars in the region between START and END.
+\[emu-e19.el; Mule emulating function]"
+ (if (save-excursion
+ (save-restriction
+ (narrow-to-region start end)
+ (goto-char start)
+ (re-search-forward "[\200-\377]" nil t)
+ ))
+ (list lc-ltn1)
+ ))
+
+
+;;; @ coding-system
+;;;
+
+(defconst *internal* nil)
+(defconst *ctext* nil)
+(defconst *noconv* nil)
+
+(defun code-convert-string (str ic oc)
+ "Convert code in STRING from SOURCE code to TARGET code,
+On successful converion, returns the result string,
+else returns nil. [emu-e19.el; Mule emulating function]"
+ str)
+
+(defun decode-coding-string (str coding-system)
+ "Decode the string STR which is encoded in CODING-SYSTEM.
+\[emu-mule.el; XEmacs 20 emulating function]"
+ str)
+
+(defun encode-coding-string (str coding-system)
+ "Encode the string STR which is encoded in CODING-SYSTEM.
+\[emu-mule.el; XEmacs 20 emulating function]"
+ str)
+
+(defun code-convert-region (beg end ic oc)
+ "Convert code of the text between BEGIN and END from SOURCE
+to TARGET. On successful conversion returns t,
+else returns nil. [emu-e19.el; Mule emulating function]"
+ t)
+
+(defun decode-coding-region (start end coding-system &optional buffer)
+ "Decode the text between START and END which is encoded in CODING-SYSTEM.
+\[emu-mule.el; XEmacs 20 emulating function]"
+ t)
+
+(defun encode-coding-region (start end coding-system &optional buffer)
+ "Encode the text between START and END which is encoded in CODING-SYSTEM.
+\[emu-mule.el; XEmacs 20 emulating function]"
+ t)
+
+(defun code-detect-region (beg end)
+ "Detect coding-system of the text in the region between START and END.
+\[emu-e19.el; Mule emulating function]"
+ )
+
+(defun set-file-coding-system (coding-system &optional force)
+ )
+
+
+;;; @ character and string
+;;;
+
+(defun char-bytes (chr) 1)
+(defun char-width (chr) 1)
+
+(defalias 'string-width 'length)
+
+(defun string-to-char-list (str)
+ (mapcar (function identity) str)
+ )
+
+(defalias 'sref 'aref)
+
+(defun truncate-string (str width &optional start-column)
+ "Truncate STR to fit in WIDTH columns.
+Optional non-nil arg START-COLUMN specifies the starting column.
+\[emu-e19.el; Mule 2.3 emulating function]"
+ (or start-column
+ (setq start-column 0))
+ (substring str start-column width)
+ )
+
+
+;;; @ etc
+;;;
+
+(cond (running-xemacs
+ (require 'emu-xemacs))
+ (running-emacs-19
+ (require 'emu-19)
+ ))
+
+
+;;; @ end
+;;;
+
+(provide 'emu-e19)
+
+;;; emu-e19.el ends here
;;;
;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Version:
-;;; $Id: emu-mule.el,v 7.3 1996/04/24 13:48:31 morioka Exp $
+;;; $Id: emu-mule.el,v 7.7 1996/04/27 13:27:06 morioka Exp $
;;; Keywords: emulation, compatibility, Mule
;;;
;;; This file is part of tl (Tiny Library).
;;;
;;; Code:
-(defun some-element (pred seq)
- "Return the first element of sequence SEQ
-whose return value applied function PRED is not nil.
-[emu-mule; tl-list function]"
- (let ((i 0)(len (length seq)) element)
- (catch 'tag
- (while (< i len)
- (if (funcall pred (setq element (elt seq i)))
- (throw 'tag element)
- )
- (setq i (+ i 1))
- ))
- ))
+;;; @ character set
+;;;
+(defalias 'char-charset 'char-leading-char)
-;;; @ leading-character
+
+;;; @ coding system
;;;
-(defalias 'char-charset 'char-leading-char)
+(defun decode-coding-region (start end coding-system &optional buffer)
+ "Decode the text between START and END which is encoded in CODING-SYSTEM.
+\[emu-mule.el; XEmacs 20 emulating function]"
+ (save-excursion
+ (if buffer
+ (set-buffer buffer)
+ )
+ (code-convert start end coding-system *internal*)
+ ))
-(defun get-lc (chr)
- "Return leading character of CHAR or LEADING-CHARACTER."
- (if (< chr 128)
- lc-ascii
- chr))
+(defun encode-coding-region (start end coding-system &optional buffer)
+ "Encode the text between START and END which is encoded in CODING-SYSTEM.
+\[emu-mule.el; XEmacs 20 emulating function]"
+ (save-excursion
+ (if buffer
+ (set-buffer buffer)
+ )
+ (code-convert start end *internal* coding-system)
+ ))
+
+(defun decode-coding-string (str coding-system)
+ "Decode the string STR which is encoded in CODING-SYSTEM.
+\[emu-mule.el; XEmacs 20 emulating function]"
+ (code-convert-string str coding-system *internal*)
+ )
+
+(defun encode-coding-string (str coding-system)
+ "Encode the string STR which is encoded in CODING-SYSTEM.
+\[emu-mule.el; XEmacs 20 emulating function]"
+ (code-convert-string str *internal* coding-system)
+ )
;;; @ version specific features
(cond (running-emacs-19
(require 'emu-19)
+
(defun fontset-pixel-size (fontset)
- (elt
- (get-font-info
- (some-element
- (function
- (lambda (n)
- (not (= n -1))
- ))
- (cdr (get-fontset-info fontset))
- )) 5))
+ (let* ((fonts (cdr (get-fontset-info fontset)))
+ (font
+ (let ((i 0)
+ (len (length fonts))
+ n)
+ (catch 'tag
+ (while (< i len)
+ (setq n (aref fonts i))
+ (if (/= n -1)
+ (throw 'tag n)
+ )
+ (setq i (1+ i))
+ ))))
+ )
+ (if font
+ (aref (get-font-info font) 5)
+ )))
)
(running-emacs-18
(require 'emu-18)
;;; Copyright (C) 1993 .. 1996 MORIOKA Tomohiko
;;;
;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;;; modified by KOBAYASHI Shuhei <shuhei@cmpt01.phys.tohoku.ac.jp>
+;;; modified by KOBAYASHI Shuhei <shuhei-k@jaist.ac.jp>
;;; Version:
-;;; $Id: emu-nemacs.el,v 7.12 1996/04/24 13:45:09 morioka Exp $
+;;; $Id: emu-nemacs.el,v 7.15 1996/04/27 13:36:32 morioka Exp $
;;; Keywords: emulation, compatibility, NEmacs, Mule
;;;
;;; This file is part of tl (Tiny Library).
(require 'emu-18)
-;;; @ leading-char
+;;; @ character set
;;;
(defconst lc-ascii 0)
lc-jp))
(defalias 'char-leading-char 'char-charset)
-(defalias 'get-lc 'char-charset)
-;;; @ coding-system
+;;; @ coding system
;;;
(defconst *noconv* 0)
(convert-string-kanji-code str ic oc)
str))
+(defun decode-coding-string (str coding-system)
+ "Decode the string STR which is encoded in CODING-SYSTEM.
+\[emu-nemacs.el; XEmacs 20 emulating function]"
+ (convert-string-kanji-code str coding-system 3)
+ )
+
+(defun encode-coding-string (str coding-system)
+ "Encode the string STR which is encoded in CODING-SYSTEM.
+\[emu-nemacs.el; XEmacs 20 emulating function]"
+ (convert-string-kanji-code str 3 coding-system)
+ )
+
(defun code-convert-region (beg end ic oc)
"Convert code of the text between BEGIN and END from SOURCE
to TARGET. On successful conversion returns t,
else returns nil. [emu-nemacs.el; Mule emulating function]"
(if (not (eq ic oc))
- (convert-region-kanji-code beg end ic oc)))
+ (convert-region-kanji-code beg end ic oc)
+ ))
+
+(defun decode-coding-region (start end coding-system &optional buffer)
+ "Decode the text between START and END which is encoded in CODING-SYSTEM.
+\[emu-nemacs.el; XEmacs 20 emulating function]"
+ (save-excursion
+ (if buffer
+ (set-buffer buffer)
+ )
+ (convert-region-kanji-code start end coding-system 3)
+ ))
+
+(defun encode-coding-region (start end coding-system &optional buffer)
+ "Encode the text between START and END which is encoded in CODING-SYSTEM.
+\[emu-mule.el; XEmacs 20 emulating function]"
+ (save-excursion
+ (if buffer
+ (set-buffer buffer)
+ )
+ (convert-region-kanji-code start end 3 coding-system)
+ ))
(defun code-detect-region (start end)
"Detect coding-system of the text in the region between START and END.
--- /dev/null
+;;;
+;;; emu-x20.el --- Mule 2 emulation module for XEmacs 20 with Mule
+;;;
+;;; Copyright (C) 1995 Free Software Foundation, Inc.
+;;; Copyright (C) 1994 .. 1996 MORIOKA Tomohiko
+;;;
+;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;;; Version:
+;;; $Id: emu-x20.el,v 3.1 1996/04/28 16:53:05 morioka Exp $
+;;; Keywords: emulation, compatibility, Mule, XEmacs
+;;;
+;;; This file is part of tl (Tiny Library).
+;;;
+;;; This program is free software; you can redistribute it and/or
+;;; modify it under the terms of the GNU General Public License as
+;;; published by the Free Software Foundation; either version 2, or
+;;; (at your option) any later version.
+;;;
+;;; This program is distributed in the hope that it will be useful,
+;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+;;; General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with This program. If not, write to the Free Software
+;;; Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+;;;
+;;; Code:
+
+;;; @ character set
+;;;
+
+(defalias 'char-leading-char 'char-charset)
+
+(defun find-charset-string (string)
+ "Return a list of charsets in the STRING except ascii.
+\[emu-x20.el; Mule emulating function]"
+ (delq 'ascii (charsets-in-string string))
+ )
+
+(defun find-charset-region (start end)
+ "Return a list of charsets except ascii
+in the region between START and END.
+\[emu-x20.el; Mule emulating function]"
+ (delq 'ascii (charsets-in-region start end))
+ )
+
+(defconst lc-ascii 'ascii)
+(defconst lc-ltn1 'latin-1)
+(defconst lc-ltn2 'latin-2)
+(defconst lc-ltn3 'latin-3)
+(defconst lc-ltn4 'latin-4)
+(defconst lc-crl 'cyrillic)
+(defconst lc-arb 'arabic)
+(defconst lc-grk 'greek)
+(defconst lc-hbw 'hebrew)
+(defconst lc-ltn5 'latin-5)
+(defconst lc-jp 'japanese)
+(defconst lc-jp2 'japanese-2)
+(defconst lc-kr 'korean)
+(defconst lc-big5-1 'chinese-big5-1)
+(defconst lc-big5-2 'chinese-big5-2)
+(defconst lc-cn 'chinese-gb)
+(defconst lc-cns1 'chinese-cns-1)
+(defconst lc-cns2 'chinese-cns-2)
+(defconst lc-cns3 'chinese-cns-3)
+(defconst lc-cns4 'chinese-cns-4)
+(defconst lc-cns5 'chinese-cns-5)
+(defconst lc-cns6 'chinese-cns-6)
+(defconst lc-cns7 'chinese-cns-7)
+
+
+;;; @ coding-system
+;;;
+
+(defconst *noconv* 'noconv)
+(defconst *ctext* 'ctext)
+
+(defvar code-converter-is-broken (string-match "(beta17)" emacs-version))
+
+(if code-converter-is-broken
+(progn
+;;;
+(defun decode-coding-region (start end coding-system &optional buffer)
+ "Decode the text between START and END which is encoded in CODING-SYSTEM.
+\[emu-x20.el; XEmacs 20 emulating function]"
+ (save-excursion
+ (if buffer
+ (set-buffer buffer)
+ )
+ (save-restriction
+ (narrow-to-region start end)
+ (let ((process-output-coding-system 'noconv)
+ (process-input-coding-system coding-system))
+ (call-process-region start end "cat" t t nil)
+ ))))
+
+(defun encode-coding-region (start end coding-system &optional buffer)
+ "Encode the text between START and END which is encoded in CODING-SYSTEM.
+\[emu-x20.el; XEmacs 20 emulating function]"
+ (save-excursion
+ (if buffer
+ (set-buffer buffer)
+ )
+ (save-restriction
+ (narrow-to-region start end)
+ (let ((process-output-coding-system coding-system)
+ (process-input-coding-system 'noconv))
+ (call-process-region start end "cat" t t nil)
+ ))))
+;;;
+))
+
+
+;;; @ character and string
+;;;
+
+(defun char-bytes (chr) 1)
+(defun char-width (chr) 1)
+
+(defalias 'string-width 'length)
+
+(defalias 'sref 'aref)
+
+(defun truncate-string (str width &optional start-column)
+ "Truncate STR to fit in WIDTH columns.
+Optional non-nil arg START-COLUMN specifies the starting column.
+\[emu-x20.el; Mule 2.3 emulating function]"
+ (or start-column
+ (setq start-column 0))
+ (substring str start-column width)
+ )
+
+
+;;; @ etc
+;;;
+
+(require 'emu-xemacs)
+
+
+;;; @ end
+;;;
+
+(provide 'emu-x20)
+
+;;; emu-x20.el ends here
;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; modified by Shuhei KOBAYASHI <shuhei@cmpt01.phys.tohoku.ac.jp>
;;; Version:
-;;; $Id: emu.el,v 7.8 1996/04/24 00:13:31 morioka Exp $
+;;; $Id: emu.el,v 7.10 1996/04/27 15:25:33 morioka Exp $
;;; Keywords: emulation, compatibility, NEmacs, Mule, XEmacs
;;;
;;; This file is part of tl (Tiny Library).
(or (and running-emacs-19 (>= emacs-minor-version 29))
(>= emacs-major-version 20)))
-(cond ((boundp 'MULE) (require 'emu-mule))
- ((boundp 'NEMACS)(require 'emu-nemacs))
- (t (require 'emu-orig))
- )
+(cond ((boundp 'MULE)
+ (require 'emu-mule)
+ )
+ ((and running-xemacs-20 (featurep 'mule))
+ (require 'emu-x20)
+ )
+ ((boundp 'NEMACS)
+ (require 'emu-nemacs)
+ )
+ (t
+ (require 'emu-e19)
+ ))
;;; @ Emacs 19.29 emulation
projects / elisp / apel.git / commitdiff