Permalink
Browse files

tm 7.56.

  • Loading branch information...
1 parent f99ace8 commit fde522d62a012bb8ad23d4b88d5731a5f12c22c9 morioka committed Mar 9, 1998
Showing with 468 additions and 39 deletions.
  1. +67 −0 ChangeLog
  2. +1 −1 Makefile
  3. +152 −0 emu-e19.el
  4. +53 −29 emu-mule.el
  5. +37 −5 emu-nemacs.el
  6. +146 −0 emu-x20.el
  7. +12 −4 emu.el
View
@@ -1,3 +1,70 @@
+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.
+
+
Fri Apr 26 05:28:30 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
* tl: Version 7.22 was released.
View
@@ -21,7 +21,7 @@ FILES = tl/README.en tl/Makefile tl/mk-tl tl/tl-els \
tl/*.el tl/*.bdf \
tl/doc/*.texi tl/ChangeLog
-TARFILE = tl-7.22.tar
+TARFILE = tl-7.22.1.tar
elc:
View
@@ -0,0 +1,152 @@
+;;;
+;;; 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$
+;;; 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
View
@@ -27,48 +27,72 @@
;;;
;;; 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)
Oops, something went wrong.

0 comments on commit fde522d

Please sign in to comment.