tl-orig.el

   1 ;;;
   2 ;;; $Id: tl-orig.el,v 1.2 1994/10/20 00:37:48 morioka Exp $
   3 ;;;
   4
   5 (provide 'tl-orig)
   6
   7
   8 ;;; @ constants
   9 ;;;
  10 (defconst lc-ascii 0)
  11 (defconst lc-ltn1 129)
  12
  13
  14 ;;; @ functions
  15 ;;;
  16
  17 (defun get-lc (chr)
  18   "Return leading character of CHAR or LEADING-CHARACTER."
  19   (if (< chr 128)
  20       lc-ascii
  21     lc-ltn1))
  22
  23 (defun string-width (str) (length str))
  24 (defun char-bytes (chr) 1)
  25 (defun char-width (chr) 1)