emu-mule.el

   1 ;;;
   2 ;;; emu-mule.el --- Mule 2.* emulation module for Mule
   3 ;;;
   4 ;;; Copyright (C) 1995 Free Software Foundation, Inc.
   5 ;;; Copyright (C) 1994,1995 MORIOKA Tomohiko
   6 ;;;
   7 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
   8 ;;; Version:
   9 ;;;     $Id: emu-mule.el,v 6.3 1995/09/21 00:08:02 morioka Exp $
  10 ;;; Keywords: emulation, compatibility, Mule
  11 ;;;
  12 ;;; This file is part of tl and tm (Tools for MIME).
  13 ;;;
  14
  15 (defun some-element (pred seq)
  16   "Return the first element of sequence SEQ
  17 whose return value applied function PRED is not nil.
  18 [emu-mule; tl-list function]"
  19  (let ((i 0)(len (length seq)) element)
  20    (catch 'tag
  21      (while (< i len)
  22        (if (funcall pred (setq element (elt seq i)))
  23            (throw 'tag element)
  24          )
  25        (setq i (+ i 1))
  26        ))
  27    ))
  28
  29 (defun get-lc (chr)
  30   "Return leading character of CHAR or LEADING-CHARACTER."
  31   (if (< chr 128)
  32       lc-ascii
  33     chr))
  34
  35
  36 (if (not (boundp 'emacs-major-version))
  37     (defconst emacs-major-version (string-to-int emacs-version))
  38   )
  39
  40 (cond ((>= emacs-major-version 19)
  41        (require 'emu-19)
  42        (defun fontset-pixel-size (fontset)
  43          (elt
  44           (get-font-info
  45            (some-element
  46             (function
  47              (lambda (n)
  48                (not (= n -1))
  49                ))
  50             (cdr (get-fontset-info fontset))
  51             )) 5))
  52        )
  53       (t
  54        (require 'emu-18)
  55        (defun tl:make-overlay (beg end &optional buffer type))
  56        (defun tl:overlay-put (overlay prop value))
  57        (defun tl:add-text-properties (start end properties &optional object))
  58        ))
  59
  60
  61 (provide 'emu-mule)