;;;
;;; $Id$
;;;

(provide 'tl-mule)

(defun get-lc (chr)
  "Return leading character of CHAR or LEADING-CHARACTER."
  (if (< chr 128)
      lc-ascii
    chr))