;;;
;;; $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)