[nongnu] externals/caml 2a6dc28 087/197: changed defmacro -> defalias

[Stefan Monnier]

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

    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))