caml-xemacs.el

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@5752 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

emacs/Makefile

@@ -4,7 +4,8 @@ include ../config/Makefile
 
 # Files to install
 FILES=	caml-font.el caml-hilit.el caml.el camldebug.el \
-	inf-caml.el caml-compat.el caml-help.el caml-types.el
+	inf-caml.el caml-compat.el caml-help.el caml-types.el \
+	caml-xemacs.el
 
 # Where to install. If empty, automatically determined.
 #EMACSDIR=
@@ -22,6 +23,7 @@ COMPILECMD=(progn \
               (byte-compile-file "inf-caml.el") \
               (byte-compile-file "caml-help.el") \
               (byte-compile-file "caml-types.el") \
+              (byte-compile-file "caml-xemacs.el") \
               (byte-compile-file "camldebug.el"))
 
 install:

emacs/caml-xemacs.el

@@ -0,0 +1,20 @@
+(require 'overlay)
+
+;; for caml-help.el
+(defun info-other-window (arg)
+  (save-excursion (info arg))
+  (view-buffer-other-window "*info*"))
+
+;; for caml-types.el
+(defun event-start (e) e)
+(defun event-end (e) e)
+(defun line-beginning-position ()
+  (save-excursion (beginning-of-line) (point)))
+(defvar last-mouse-position t)
+(defun posn-point (e) (event-closest-point e))
+(defmacro track-mouse (el) (progn el))
+(defun read-event () (let ((e (next-event))) e))
+(defun mouse-movement-p (e) (equal (event-type e) 'motion))
+(defun posn-window (e) (event-window e))
+
+(provide 'caml-xemacs)