branch: externals/caml
commit 2a6dc285946cdc0097a8513e0e7c79c2d8fd2d12
Author: Didier Rémy <[email protected]>
Commit: Didier Rémy <[email protected]>
changed defmacro -> defalias
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@5754
f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
---
caml-emacs.el | 4 ++--
caml-types.el | 2 +-
caml-xemacs.el | 2 +-
3 files changed, 4 insertions(+), 4 deletions(-)
diff --git a/caml-emacs.el b/caml-emacs.el
index aa35c7c..01a575e 100644
--- a/caml-emacs.el
+++ b/caml-emacs.el
@@ -5,10 +5,10 @@
(defalias 'caml-line-beginning-position 'line-beginning-position)
-(defun caml-event-window (e) (event-window (event-start e)))
+(defun caml-event-window (e) (posn-window (event-start e)))
(defun caml-event-point-start (e) (posn-point (event-stact e)))
(defun caml-event-point-end (e) (posn-point (event-end e)))
-(defmacro caml-track-mouse (el) (track-mouse el))
+(defalias 'caml-track-mouse 'track-mouse)
(defalias 'caml-read-event 'read-event)
(defun caml-mouse-movement-p mouse-mouvement)
diff --git a/caml-types.el b/caml-types.el
index 643125f..01167b5 100644
--- a/caml-types.el
+++ b/caml-types.el
@@ -411,7 +411,7 @@ and its type is displayed in the minibuffer, until the move
is released."
(setq limits (caml-types-find-interval target-buf target-pos
tree))
))
- (message (format "type: %s" type))
+ (message (setq mes (format "type: %s" type)))
(insert type)
))
(setq event (caml-read-event))
diff --git a/caml-xemacs.el b/caml-xemacs.el
index fae561c..9fae982 100644
--- a/caml-xemacs.el
+++ b/caml-xemacs.el
@@ -12,7 +12,7 @@
(defun caml-event-window (e) (event-window e))
(defun caml-event-point-start (e) (event-closest-point e))
(defun caml-event-point-end (e) (event-closest-point e))
-(defmacro caml-track-mouse (el) (progn el))
+(defalias 'caml-track-mouse 'progn)
(defalias 'caml-read-event 'next-event)
(defun mouse-movement-p (e) (equal (event-type e) 'motion))
