+Tue May 28 06:48:04 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tl: Version 7.29 was released.
+
+ * mu-comment.el (comment-sexp): Unused local variable `p' was
+ abolished.
+
+Tue May 28 06:30:51 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * emu-e19.el, emu-nemacs.el (charset-description): New function.
+ (charset-registry): New function.
+ (charset-columns): New function.
+ (charset-direction): New function.
+
+\f
Mon May 27 14:04:12 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
* tl: Version 7.27.1 was released.
FILES = tl/README.en tl/Makefile tl/mk-tl tl/tl-els \
tl/*.el tl/*.bdf \
- tl/doc/*.texi tl/ChangeLog
+ tl/doc/*.ol tl/doc/*.tex tl/doc/*.texi tl/ChangeLog
-TARFILE = tl-7.27.tar
+TARFILE = tl-7.29.tar
elc:
;;;
;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Version:
-;;; $Id: emu-e19.el,v 7.18 1996/05/27 12:25:34 morioka Exp $
+;;; $Id: emu-e19.el,v 7.20 1996/05/28 06:37:36 morioka Exp $
;;; Keywords: emulation, compatibility, Mule, Latin-1
;;;
;;; This file is part of tl (Tiny Library).
(defconst charset-ascii 0 "Character set of ASCII")
(defconst charset-latin-1 129 "Character set of ISO-8859-1")
+(defun charset-description (charset)
+ "Return description of CHARSET. [emu-e19.el]"
+ (if (< charset 128)
+ (documentation-property 'charset-ascii 'variable-documentation)
+ (documentation-property 'charset-latin-1 'variable-documentation)
+ ))
+
+(defun charset-registry (charset)
+ "Return registry name of CHARSET. [emu-e19.el]"
+ (if (< charset 128)
+ "ASCII"
+ "ISO8859-1"))
+
+(defun charset-columns (charset)
+ "Return number of columns a CHARSET occupies when displayed.
+\[emu-e19.el]"
+ 1)
+
+(defun charset-direction (charset)
+ "Return the direction of a character of CHARSET by
+ 0 (left-to-right) or 1 (right-to-left). [emu-e19.el]"
+ 0)
+
+(defun find-charset-string (str)
+ "Return a list of charsets 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 charsets 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)
+ ))
+
;;; @@ for Mule emulation
;;;
;;; @ character
;;;
-(defun char-bytes (chr) 1)
-
-(defun char-columns (character)
- "Return number of columns a CHARACTER occupies when displayed.
-\[emu-nemacs.el]"
- 1)
-
(defun char-charset (chr)
"Return the character set of char CHR.
\[emu-e19.el; XEmacs 20 emulating function]"
charset-ascii
charset-latin-1))
-(defun find-charset-string (str)
- "Return a list of leading-chars in the string.
+(defun char-bytes (char)
+ "Return number of bytes a character in CHAR occupies in a buffer.
\[emu-e19.el; Mule emulating function]"
- (if (string-match "[\200-\377]" str)
- (list lc-ltn1)
- ))
+ 1)
-(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)
- ))
+(defun char-columns (character)
+ "Return number of columns a CHARACTER occupies when displayed.
+\[emu-nemacs.el]"
+ 1)
;;; @@ for Mule emulation
;;;
;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; modified by KOBAYASHI Shuhei <shuhei-k@jaist.ac.jp>
;;; Version:
-;;; $Id: emu-nemacs.el,v 7.27 1996/05/27 12:27:59 morioka Exp $
+;;; $Id: emu-nemacs.el,v 7.29 1996/05/28 06:39:56 morioka Exp $
;;; Keywords: emulation, compatibility, NEmacs, Mule
;;;
;;; This file is part of tl (Tiny Library).
(defconst charset-ascii 0 "Character set of ASCII")
(defconst charset-jisx0208 146 "Character set of JIS X0208-1983")
+(defun charset-description (charset)
+ "Return description of CHARSET. [emu-nemacs.el]"
+ (if (< charset 128)
+ (documentation-property 'charset-ascii 'variable-documentation)
+ (documentation-property 'charset-jisx0208 'variable-documentation)
+ ))
+
+(defun charset-registry (charset)
+ "Return registry name of CHARSET. [emu-nemacs.el]"
+ (if (< charset 128)
+ "ASCII"
+ "JISX0208.1983"))
+
+(defun charset-columns (charset)
+ "Return number of columns a CHARSET occupies when displayed.
+\[emu-nemacs.el]"
+ (if (< charset 128)
+ 1
+ 2))
+
+(defun charset-direction (charset)
+ "Return the direction of a character of CHARSET by
+ 0 (left-to-right) or 1 (right-to-left). [emu-nemacs.el]"
+ 0)
+
+(defun find-charset-string (str)
+ "Return a list of charsets 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 charsets in the region between START and END.
+\[emu-nemacs.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-jp)
+ ))
+
+(defun check-ASCII-string (str)
+ (let ((i 0)
+ len)
+ (setq len (length str))
+ (catch 'label
+ (while (< i len)
+ (if (>= (elt str i) 128)
+ (throw 'label nil))
+ (setq i (+ i 1))
+ )
+ str)))
+
;;; @@ for Mule emulation
;;;
(fset 'string-to-int-list (symbol-function 'string-to-char-list))
-(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)
- (goto-char start)
- (re-search-forward "[\200-\377]" nil t)
- ))
- (list lc-jp)
- ))
-
-(defun check-ASCII-string (str)
- (let ((i 0)
- len)
- (setq len (length str))
- (catch 'label
- (while (< i len)
- (if (>= (elt str i) 128)
- (throw 'label nil))
- (setq i (+ i 1))
- )
- str)))
-
;;; Imported from Mule-2.3
(defun truncate-string (str width &optional start-column)
"Truncate STR to fit in WIDTH columns.
;;;
;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Version:
-;;; $Id: emu-x20.el,v 7.11 1996/05/27 14:09:18 morioka Exp $
+;;; $Id: emu-x20.el,v 7.12 1996/05/28 06:42:21 morioka Exp $
;;; Keywords: emulation, compatibility, Mule, XEmacs
;;;
;;; This file is part of tl (Tiny Library).
(defalias 'charset-description 'charset-doc-string)
+(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))
+ )
+
;;; @@ for Mule emulation
;;;
(substring str start-column width)
)
-(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))
- )
-
;;; @ end
;;;
projects / elisp / apel.git / commitdiff