+Thu Apr 25 12:08:33 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tl: Version 7.19.3 was released.
+
+Wed Apr 24 15:27:17 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * emu-orig.el (sref): New alias.
+
+ * emu-mule.el (char-charset): New alias.
+
+Wed Apr 24 13:46:56 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * emu-nemacs.el, emu-orig.el: Function `char-leading-char' was
+ renamed to `char-charset'; `char-leading-char' became alias of
+ function `char-charset'.
+
+ * tl-str.el (replace-char-by-char): abolished.
+
+ * emu-nemacs.el (sref): fixed.
+
+ * emu-nemacs.el (string-to-int-list): moved from emu-18.el.
+
+ * emu-18.el (string-to-int-list): moved to emu-nemacs.el.
+
+ * emu-xemacs.el, emu-19.el (string-to-int-list): fixed to define.
+
+ * emu-18.el (string-to-int-list): fixed.
+
+Wed Apr 24 00:57:07 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * mu-replace.el: defvar for global variables.
+
+ * tl-misc.el (get-latest-path): New implementation.
+
+Wed Apr 24 00:16:45 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tl-str.el (filename-special-char-range): use function `char-int'
+ and `string-to-int-list'.
+
+ * emu-xemacs.el, emu-19.el, emu-18.el (string-to-int-list):
+ New function.
+
+ * emu.el (char-int): New function.
+ (int-char): New function.
+
+\f
Sat Apr 20 13:10:42 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
* tl: Version 7.19.2 was released.
;;;
;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Version:
-;;; $Id: emu-18.el,v 7.10 1996/04/11 01:04:34 morioka Exp $
+;;; $Id: emu-18.el,v 7.13 1996/04/24 12:04:27 morioka Exp $
;;; Keywords: emulation, compatibility
;;;
;;; This file is part of tl (Tiny Library).
;;;
;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Version:
-;;; $Id: emu-19.el,v 7.1 1996/04/11 01:05:34 morioka Exp $
+;;; $Id: emu-19.el,v 7.3 1996/04/24 11:57:52 morioka Exp $
;;; Keywords: emulation, compatibility
;;;
;;; This file is part of tl (Tiny Library).
"")
))
+(fset 'string-to-int-list 'string-to-char-list)
+
;;; @ end
;;;
;;;
;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Version:
-;;; $Id: emu-mule.el,v 7.2 1996/04/17 15:17:24 morioka Exp $
+;;; $Id: emu-mule.el,v 7.3 1996/04/24 13:48:31 morioka Exp $
;;; Keywords: emulation, compatibility, Mule
;;;
;;; This file is part of tl (Tiny Library).
;;; @ leading-character
;;;
+(defalias 'char-charset 'char-leading-char)
+
(defun get-lc (chr)
"Return leading character of CHAR or LEADING-CHARACTER."
(if (< chr 128)
;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; modified by KOBAYASHI Shuhei <shuhei@cmpt01.phys.tohoku.ac.jp>
;;; Version:
-;;; $Id: emu-nemacs.el,v 7.9 1996/04/17 15:14:17 morioka Exp $
+;;; $Id: emu-nemacs.el,v 7.12 1996/04/24 13:45:09 morioka Exp $
;;; Keywords: emulation, compatibility, NEmacs, Mule
;;;
;;; This file is part of tl (Tiny Library).
(defconst lc-ascii 0)
(defconst lc-jp 146)
-(defun char-leading-char (chr)
- "Return leading character of CHAR.
-\[emu-nemacs.el; Mule emulating function]"
+(defun char-charset (chr)
+ "Return the character set of char CHR.
+\[emu-nemacs.el; XEmacs 20 emulating function]"
(if (< chr 128)
lc-ascii
lc-jp))
-(defalias 'get-lc 'char-leading-char)
+(defalias 'char-leading-char 'char-charset)
+(defalias 'get-lc 'char-charset)
;;; @ coding-system
(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]"
+\[emu-nemacs.el; Mule emulating function]"
(if (save-excursion
(save-restriction
(narrow-to-region start end)
(defun char-bytes (chr)
"Return number of bytes CHAR will occupy in a buffer.
-\[Mule compatible function in tm-nemacs]"
+\[emu-nemacs.el; Mule emulating function]"
(if (< chr 128) 1 2))
(defun char-width (chr)
"Return number of columns CHAR will occupy when displayed.
-\[Mule compatible function in tm-nemacs]"
+\[emu-nemacs.el; Mule emulating function]"
(if (< chr 128) 1 2))
(defun string-width (str)
"Return number of columns STRING will occupy.
-\[Mule compatible function in tm-nemacs]"
+\[emu-nemacs.el; Mule emulating function]"
(length str))
+(defun sref (str idx)
+ "Return the character in STR at index IDX.
+\[emu-nemacs.el; Mule emulating function]"
+ (let ((chr (aref str idx)))
+ (if (< chr 128)
+ chr
+ (logior (lsh (aref str (1+ idx)) 8) chr)
+ )))
+
(defun string-to-char-list (str)
(let ((i 0)(len (length str)) dest chr)
(while (< i len)
(reverse dest)
))
+(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]"
;;;
;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Version:
-;;; $Id: emu-xemacs.el,v 7.2 1996/04/11 01:05:58 morioka Exp $
+;;; $Id: emu-xemacs.el,v 7.4 1996/04/24 11:58:31 morioka Exp $
;;; Keywords: emulation, compatibility, XEmacs
;;;
;;; This file is part of tl (Tiny Library).
"Convert list of character CHAR-LIST to string. [emu-xemacs.el]"
`(mapconcat #'char-to-string ,char-list ""))
+(if running-xemacs-20
+ (defun string-to-int-list (str)
+ (mapcar #'char-int str)
+ )
+ (fset 'string-to-int-list 'string-to-char-list)
+ )
+
;;; @ end
;;;
;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; modified by Shuhei KOBAYASHI <shuhei@cmpt01.phys.tohoku.ac.jp>
;;; Version:
-;;; $Id: emu.el,v 7.7 1996/04/17 15:18:54 morioka Exp $
+;;; $Id: emu.el,v 7.8 1996/04/24 00:13:31 morioka Exp $
;;; Keywords: emulation, compatibility, NEmacs, Mule, XEmacs
;;;
;;; This file is part of tl (Tiny Library).
(defvar running-emacs-18 (<= emacs-major-version 18))
(defvar running-xemacs (string-match "XEmacs" emacs-version))
+(defvar running-xemacs-20 (and running-xemacs
+ (>= emacs-major-version 20)))
(defvar running-emacs-19 (and (not running-xemacs)
(= emacs-major-version 19)))
(defvar running-emacs-19_29-or-later
)
+;;; @ for XEmacs 20
+;;;
+
+(or (fboundp 'char-int)
+ (fset 'char-int (symbol-function 'identity))
+ )
+(or (fboundp 'int-char)
+ (fset 'int-char (symbol-function 'identity))
+ )
+
+
;;; @ end
;;;
projects / elisp / apel.git / commitdiff