emacs/external/ml/caml-emacs.el

   1 ;(***********************************************************************)
   2 ;(*                                                                     *)
   3 ;(*                           Objective Caml                            *)
   4 ;(*                                                                     *)
   5 ;(*            Didier Remy, projet Cristal, INRIA Rocquencourt          *)
   6 ;(*                                                                     *)
   7 ;(*  Copyright 2003 Institut National de Recherche en Informatique et   *)
   8 ;(*  en Automatique.  All rights reserved.  This file is distributed    *)
   9 ;(*  under the terms of the GNU General Public License.                 *)
  10 ;(*                                                                     *)
  11 ;(***********************************************************************)
  12
  13 ;(* $Id: caml-emacs.el,v 1.6.6.1 2004/08/09 16:09:33 doligez Exp $ *)
  14
  15 ;; for caml-help.el
  16 (defalias 'caml-info-other-window 'info-other-window)
  17
  18 ;; for caml-types.el
  19
  20 (defalias 'caml-line-beginning-position 'line-beginning-position)
  21
  22 (defalias 'caml-read-event 'read-event)
  23 (defalias 'caml-window-edges 'window-edges)
  24 (defun caml-mouse-vertical-position ()
  25   (cddr (mouse-position)))
  26 (defalias 'caml-ignore-event-p 'integer-or-marker-p)
  27 (defalias 'caml-mouse-movement-p 'mouse-movement-p)
  28 (defalias 'caml-sit-for 'sit-for)
  29
  30 (defmacro caml-track-mouse (&rest body) (cons 'track-mouse body))
  31
  32 (defun caml-event-window (e) (posn-window (event-start e)))
  33 (defun caml-event-point-start (e) (posn-point (event-start e)))
  34 (defun caml-event-point-end (e) (posn-point (event-end e)))
  35
  36 (defun caml-release-event-p (original event)
  37   (and (equal (event-basic-type original) (event-basic-type event))
  38        (let ((modifiers  (event-modifiers event)))
  39          (or (member 'drag modifiers)
  40              (member 'click modifiers)))))
  41
  42
  43 (provide 'caml-emacs)