emu-mule.el

   1 ;;;
   2 ;;; emu-mule: Mule 2.* emulation module for Mule
   3 ;;;
   4 ;;; $Id: emu-mule.el,v 6.1 1995/08/26 18:07:55 morioka Exp $
   5 ;;;
   6
   7 (defun some-element (pred seq)
   8   "Return the first element of sequence SEQ
   9 whose return value applied function PRED is not nil.
  10 [emu-mule; tl-list function]"
  11  (let ((i 0)(len (length seq)) element)
  12    (catch 'tag
  13      (while (< i len)
  14        (if (funcall pred (setq element (elt seq i)))
  15            (throw 'tag element)
  16          )
  17        (setq i (+ i 1))
  18        ))
  19    ))
  20
  21 (defun get-lc (chr)
  22   "Return leading character of CHAR or LEADING-CHARACTER."
  23   (if (< chr 128)
  24       lc-ascii
  25     chr))
  26
  27
  28 (if (not (boundp 'emacs-major-version))
  29     (defconst emacs-major-version (string-to-int emacs-version))
  30   )
  31
  32 (cond ((>= emacs-major-version 19)
  33        (defun fontset-pixel-size (fontset)
  34          (elt
  35           (get-font-info
  36            (some-element
  37             (function
  38              (lambda (n)
  39                (not (= n -1))
  40                ))
  41             (cdr (get-fontset-info fontset))
  42             )) 5))
  43        )
  44       (t (require 'emu-18)))
  45
  46 (provide 'emu-mule)