2 ;;; emu-mule: Mule 2.* emulation module for Mule
4 ;;; $Id: emu-mule.el,v 6.1 1995/08/26 18:07:55 morioka Exp $
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)
14 (if (funcall pred (setq element (elt seq i)))
22 "Return leading character of CHAR or LEADING-CHARACTER."
28 (if (not (boundp 'emacs-major-version))
29 (defconst emacs-major-version (string-to-int emacs-version))
32 (cond ((>= emacs-major-version 19)
33 (defun fontset-pixel-size (fontset)
41 (cdr (get-fontset-info fontset))
44 (t (require 'emu-18)))