emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] externals/caml c834fac 085/197: caml-xemacs.el


From: Stefan Monnier
Subject: [nongnu] externals/caml c834fac 085/197: caml-xemacs.el
Date: Sat, 21 Nov 2020 01:19:43 -0500 (EST)

branch: externals/caml
commit c834fac8a4754559b7630bc21ac786fae8e8b54e
Author: Didier Rémy <Didier.Remy@inria.fr>
Commit: Didier Rémy <Didier.Remy@inria.fr>

    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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]