branch: externals/caml
commit c834fac8a4754559b7630bc21ac786fae8e8b54e
Author: Didier Rémy <[email protected]>
Commit: Didier Rémy <[email protected]>
caml-xemacs.el
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@5752
f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
---
Makefile | 4 +++-
caml-xemacs.el | 20 ++++++++++++++++++++
2 files changed, 23 insertions(+), 1 deletion(-)
diff --git a/Makefile b/Makefile
index 7a1b70b..923d25a 100644
--- a/Makefile
+++ b/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:
diff --git a/caml-xemacs.el b/caml-xemacs.el
new file mode 100644
index 0000000..9c1aaa6
--- /dev/null
+++ b/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)
