+++ /dev/null
-;;;
-;;; $Id: tl-orig.el,v 1.2 1994/10/20 00:37:48 morioka Exp $
-;;;
-
-(provide 'tl-orig)
-
-
-;;; @ constants
-;;;
-(defconst lc-ascii 0)
-(defconst lc-ltn1 129)
-
-
-;;; @ functions
-;;;
-
-(defun get-lc (chr)
- "Return leading character of CHAR or LEADING-CHARACTER."
- (if (< chr 128)
- lc-ascii
- lc-ltn1))
-
-(defun string-width (str) (length str))
-(defun char-bytes (chr) 1)
-(defun char-width (chr) 1)