tl-mule.el

   1 ;;;
   2 ;;; $Id$
   3 ;;;
   4
   5 (provide 'tl-mule)
   6
   7 (defun get-lc (chr)
   8   "Return leading character of CHAR or LEADING-CHARACTER."
   9   (if (< chr 128)
  10       lc-ascii
  11     chr))